Create Text Boxes at Run Time in VB.6

[ANURAG JAIN]

Hi,

Can any help to create textboxes in VB.06 on run time.

please provide the code if anybody have.

Thanks in advance
Anuarg Jain

[DarthCrap]

Code For VB6

Private Sub Form_Load()
    Dim controlname As String
    For i = 1 To 6  '   Change
        controlname = "txtControl" & CStr((i))
        Call Controls.Add("VB.TextBox", controlname, Me)
        With Controls(controlname)
            .Left = 56 ' Change
            .Top = (i - 1) * 480 ' Change
            .Visible = True
        End With
    Next i
End Sub

That should work - just modify as needed

Edit : Hold On - VB.06 - Do you mean VB 6.0?

[Killer42]

Of course, the simpler technique is to create a textbox at design time, set the Index property to 0 to make it a control array, then just use the Load statement to add new ones at run time. This makes them more convenient to work with, too.

[vdraceil]

Killer's advice is the best to create run time controls.
If you want the code, look below.

Create a textbox named text1(0) to begin a control array

[CODE=vb]Dim i As Integer

Private Sub Command1_Click( )
Load text1(i+1)
' You may align the new control with its top & left properties
text1(i + 1).Top = text1(i).Top + text1(i).Width + 15
text1(i + 1).Left = text1(i).Left
i = i + 1
End Sub[/CODE]

All the best