Динамическое создание объектов
Как это делать справшивать не буду - дайте ссылку где об этом почитать можно :)
создаёшь обычный проект и в коде пишешь вот это:
Option Explicit
Private WithEvents btnObj As CommandButton
Private Sub btnObj_Click()
MsgBox "This is a dynamically added button."
End Sub
Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub
этот пример создаст кнопку с названием Hello.
вместо btnObj можешь написать другое имя, например тот же commandbutton1...
Всё ясно. Спасибо! :)
типа: создаешь на форме контрол, допустим label1, ставишь ему .index=0
это уже не контрол, а массив контролов, с именем label1 :)
а дальше - проще: конда надо загрузить ещё один label1, пишешь
Код:
load label1(ubound(label1)+1)
тоже хорошее решение... возму на вооружение :D
но все равно спасибо за идею, под рукой книжки не было, а Ваша рекомендация помогла С уважением Leonid_A11_24_3