Pole ovládacích prvků??? – Visual Basic – Fórum – Programujte.com

Zdarec,
po??d nem??u p?ij?t na to, jak vytvo?it za b?hu programu pole ovl?dac?ch prvk? (konkr?tn? Image), kde ka?dej Img m? v procedu?e _click ten samej k?d.
M?m datab?zi s prom?nliv?m po?tem z?znam? a ke ka?d?mu z?znamu pot?ebuju vytvo?it Image a um?stit ho na formul?? na ur?it? m?sto (co? bych u? zvl?dl - .top a .left)
Ale jak je vytvo?it, to nev?m, moc se mi nechce na formul?? nal?dovat 300 Img s .visible=false. Pora?te, pls. ?.

nejdříve vlož na formulář "image" a v "properties" změň vlastnost "index" na "0". Pak tam vlož tohle:

Private Sub Form_Load()
Dim i As Integer, velikostDatabaze As Integer
velikostDatabaze = 5
image1(0).visible=false

For i = 1 To velikostDatabaze
Load Image1(i)
Image1(i).Left = souradnice
Image1(i).Top = souradnice
Image1(i).Picture = LoadPicture("CestaKObrazku")
Image1(i).Visible = True
Next

End Sub

velikostDatabaze si zjistíš kolik je tam zaznamu
souradnice asi chápeš, no a CestaKObrazku je prostě cesta k obrázku :-))
doufám, že to funguje, protože jsem to nezkoušel

jj, funguje to, díky.
Ještě, věděl by někdo, jak to docílit ve VBA (Excel)? Tam vlastnost index u Image není.

A to je jenom dobře že nefunguje , protože to je neskutečná prasárna
takhle to má vypadat

Set txtNew = Controls.Add("VB.TextBox", "Dynamický")
txtNew.Text = "Nový Textbox"
txtNew.Visible = True

PS:v excelu jsem to nezkoušel v accesu to nepopužívám neb musí být formulář přepnut do designview což při případném MDE není možné...