Slumpa fram bild i VB

Hej! Jag hoppas att det är så här du menar.

I detta exemplet har jag en picturebox som heter Picture1 och en imagelist som heter ImageList1. I imagelisten har jag 6 bilder.

Private Sub Form_Load()
Dim intRandomNumber As Integer
Randomize
intRandomNumber = Int((6 * Rnd) + 1)
Picture1.Picture = ImageList1.ListImages(intRandomNumber).Picture
End Sub

Mvh
Anders

Jo de var så jag hade tänkt mig. men hur gör man en imagelist? Jag är nybörjare i VB.

MVH Anders

Vilken version av vb har du?

Jag har vb6 och där är det så att om man skapar ett nytt Standard EXE projekt så finns inte imagelist med i toolbox. Då får man i menyn Projects välja Components och i listan som man får upp väljer man Microsoft Windows Common Controls 6.0. När man trycker på OK eller Verkställ dyker det upp lite nya objekt i toolbox, bl.a. imagelist. Sedan är det bara att lägga in en imagelist i formuläret. Högerklicka på den och välj Properties, klicka på fliken Images, sedan klickar du på Insert Picture och väljer de bilderna du vill ha med.

Hoppas att det funkar som du tänkt dig.

Mvh
Anders

Jag har VB 5 men ska testa om de funkar att göra på samma sätt. Tack för den hjälp jag fått hittills!!

MVH Anders

De funkade även att göra exakt så i VB5. Tack åter igen!!

MVH Anders