Тема: VB: Динамическое добавление массива элементов на форму
Подскажите как - создать массив элемент с разным индексом.
Option Explicit
Dim WithEvents VirtualObj As VBControlExtender
Private Sub Form_Load()
'будущая функция
Dim ClassName As String '- класс: кнoпка, картинка...
Dim ObjName As String '- имя Объекта
'Dim VirtualObj As Control '- параметры: видимость, координаты..
Dim i
For i = 1 To 10
ClassName = "Forms.CommandButton.1"
ObjName = "Command" & i
Set VirtualObj = Form1.Controls.Add(ClassName, ObjName, Form1)
With VirtualObj
.Left = 100 'длина
.Top = i * 440 'высота
.Visible = True
.object.Caption = ObjName
End With
Next i
End Sub
'-------------------------------------------------------------
Private Sub VirtualObj_ObjectEvent(Info As EventInfo)
MsgBox Info.Name 'только последний элемент ????
End Sub