Kan någon berätta hur jag lägger in bilder i en imagelist i runtime läge? <code>imagelist problem
Vill bara klicka på en bild så den hoppar dit och får indexvärde 1 och
nästa bild indexvärde 2 osvSv: imagelist problem
Private Sub Form_Load()
ImageList1.ListImages.Add (1), "open", LoadPicture("C:\Icons\Open.ico")
ImageList1.ListImages.Add (2), "save", LoadPicture("C:\Icons\Save.ico")
'Osv.
End Sub
Private Sub Form_Click()
Set Form1.Picture = ImageList1.ListImages(1).Picture
' eller öppna med Key
Set Form1.Picture = ImageList1.ListImages("open").Picture
End Sub
</code>