Dynamiskt lägga till som Array

[Almblad]

Jag försöker lägga till bilder dynamiskt till ett formulär. Det ska användas till en bildbrowser som visar alla bilder i en vald mapp.

Jag lyckas lägga till bilderna, men inte som en array. Nu skapar jag olika namn för varje bild, men mest praktist vore att bildkontrollen blir en array. Någon som vet?

 

Dessutom har jag problem att få bilden att visas. Det funkar alldeles utmärkt med ctlImg = LoadPicture("c:\bild.jpg") om kontrollen lagts till på vanligt sätt genom att man ritar ut den direkt, men det funkar inte om kontrollen lagts till med kod.

Jag använder följande kod

Set ctlImg = Controls.Add("VB.PictureBox", "Bild" & nr, frmBild)

ctlImg.Visible = True

ctlImg.BorderStyle = 1

ctlImg = LoadPicture(fil)

Set ctlImg = Nothing

 

Gott Nytt! // Johan