Option Explicit
Private Sub Command1_Click()
Static FormIndex
ReDim F(FormIndex) As New Form1
Load F(FormIndex)
F(FormIndex).Caption = "Форма ? " + Str$(FormIndex)
F(FormIndex).Show
FormIndex = FormIndex + 1
End Sub
Private Sub Command2_Click()
' если компонент, то создаешь массив _
нужных контролов, для этого выкладываешь _
на форме один контрол нужного типа, _
устанавливаешь его свойство Index, например к 0. _
Для добавления к массиву нового элемента:
Load Label1(1)
Label1(1).Left = 1000
Label1(1).Top = 100
Label1(1).Caption = "Первая"
Label1(1).Visible = True
Load Label1(2)
Label1(2).Left = 2000
Label1(2).Top = 100
Label1(2).Caption = "Вторая"
Label1(2).Visible = True
'загруженный контрол наследует _
все значения свойств, от последнего элемента _
в массиве кроме Visible, которое всегда устанавливается к False.
'для выгрузки соответственно:
'Unload Control(I)
End Sub
Private Sub Label1_Click(Index As Integer)
MsgBox Label1(Index).Caption
End Sub
|