Как динамически создать массив контролов? - VB

Формулировка задачи:

Создать один контрол.
Set NewLabel = Controls.Add("VB.Label", MyName$)
   
With NewLabel
   .Visible = True
   .Caption = Arr(Shadow(1, i))
   .AutoSize = True
   .ForeColor = &H80FF&
   .BackColor = &H404040
   .Left = 100
   .FontBold = True
   .Top = MainP + Delta
End With
Как создать массив?

Код к задаче: «Как динамически создать массив контролов? - VB»

textual
Public Sub SetHandler(Control As frmmain)
    Set frm = Control
End Sub
Public Sub SetButton(Control As CommandButton)
    Set btn = Control
End Sub

13   голосов, оценка 3.692 из 5


СОХРАНИТЬ ССЫЛКУ