Как динамически создать массив контролов? - 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

Как создать массив?

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

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

Похожие ответы