• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Create control dyamically using array

Create control dyamically using array

Create control dyamically using array

Rate Create control dyamically using array

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' On the Form,
  ' Place a Label and change its index to 0
  ' Place a Textbox and change its index to 0
  ' -------------------------------------------

Private Sub Form_Load()
    Dim Captions(4) As String
    Dim Sizes(4) As Integer
    
    Captions(1) = "1"
    Captions(2) = "2"
    Captions(3) = "3"
    Captions(4) = "4"
    
    Sizes(1) = 20
    Sizes(1) = 30
    Sizes(1) = 40
    Sizes(1) = 15
    Sizes(1) = 12
    
    For i = 1 To 4
        Load Label1(i)
        Load Text1(i)
        
        Label1(i).Top = Label1(i - 1).Top + 500
        Label1(i).Left = Label1(0).Left
        Text1(i).Top = Text1(i - 1).Top + 500
        Text1(i).Left = Text1(0).Left
        
        Label1(i).Caption = i
        Text1(i).Text = i
        
        Label1(i).Visible = True
        Text1(i).Visible = True
    Next i
End Sub