1 svar · 188 visningar · startad av Anders84
Hur gör jag så att ingen av de fyra bilderna som slupas fram kan bli samma?
Private Sub Command1_Click()
Dim intRandomNumber As Integer
Randomize
intRandomNumber = Int((16 * Rnd) + 1)
Picture1.Picture = ImageList2.ListImages(intRandomNumber).Picture
intRandomNumber = Int((16 * Rnd) + 1)
Picture2.Picture = ImageList2.ListImages(intRandomNumber).Picture
intRandomNumber = Int((16 * Rnd) + 1)
Picture3.Picture = ImageList2.ListImages(intRandomNumber).Picture
intRandomNumber = Int((16 * Rnd) + 1)
Picture4.Picture = ImageList2.ListImages(intRandomNumber).Picture
End Sub
MVH Anders
Tja vet inte om jag fattar dig rätt, men det här är kanske ett sätt?
slumpa fram tal1
slumpa fram tal2
så länge som tal2=tal1, slumpa om tal2
slumpa fram tal3
så länge som tal3=tal1 el tal3=tal2, slumpa om tal3
...
osv
sedan när du har dina 4 olika slumptal så visar du dina bilder
