[VB6] Immagini random

[robx8]

Ciao ragazzi, :adhone: mi serve un aiuto da parte vostra.
Ho bisogno di cambiare l'immagine di sfondo del form in modalità random.
Ad esempio ho una cartella IMG con tre sfondi, quando carico il form mi deve scegliere un mmmagine a caso e metterla in sfondo come fare??? (Parlo di VB6)
Thanks

[Gugu]

Io farei così..

Private Sub Form_Load()

Dim MyValue
Randomize   ' Initialize random-number generator.

MyValue = Int((3 * Rnd) + 1)   ' Generate random value between 1 and 6.
Form1.Picture = Picture1(MyValue-1)
End Sub

Dove inserisci 3 picturebox1 in array con i tre sfondi che vuoi che vengano visualizzati.

Può andare?

[Gugu]

Scusa.. ho fatto copia ed incolla dell'esempio sull'help e ho lasciato i commenti sbagliati!

Come ho corretto il il numero che viene generato è tra 1 e 3 e non tra 1 e 6.

Ciao

[robx8]

Perfetto!!!!!!
Funziona benissimo, mille grazie

[robx8]

Ciao, mi è sorto un'altro problema. Ho un Form2 dove ad ogni avvio lo sfondo cambia in random, in questo Form c'è un pulsante che mi apre un altro form (Form3). Quello che voglio fare è mettere un controllo in maniera che l'immagine random usata sul Form1 non possa essere ripetuta sul Form2, in pratica non voglio avere due Form con la stessa immagine. Ho provato in questo modo:

Le IMAGE in array le ho inserite nel Form1

Private Sub Form_Load()

Dim sfondo

Randomize

sfondo = Int((2 * Rnd) + 1)

Do While (sfondo = Form2.Picture)

sfondo = Int((2 * Rnd) + 1)

Loop

Form3.Picture = Form1.Image1(sfondo - 1)

ma non funziona penso che il problema sia nel confronto del While
ma non so come altro fare. grazie

[Gugu]

Allora..
sicuramente il problema è che la variabile sfondo che confronti con form1.picture, non centra ninete!
Devi salvare una variabile sfondo dove assegni il valore 1 o 2 o 3 caricato in random per il form1.
Dopo fai il while sfondo1 = sfondo, dove sfondo1 invece è quello della form2 creata con lo stesso principio.

Chiaro no????!
Spero....