Dynamics text Box At run time

[vammy]

Hi Guys,
I need some urgent help..
My requirement is to create dynamic text boxes during run time.
it shld b like this: when i click a button a text box shld b created and upon entering a value it shld be saved in access database.
appreciare ur help and quick responce.

regards,
vammy

[adam_k]

The noob way is to create the textbox, with visible=False and change visibility on button click.
If that won't do for you, read here : http://www.daniweb.com/software-development/vbnet/threads/318076
or here:
http://www.daniweb.com/software-development/vbnet/threads/101111

[codeorder]

See if this helps to create Dynamic.TextBoxes on a Form.

Public Class Form1
#Region "----===----===----===----- myCoolDYNAMICS  -----===----===----===----"
    Private Sub createCoolTextBoxes()
        '// # at end of TextBox, location from Left to Right, location from Top to Bottom.
        Dim iCoolNumberForName As Integer = 1, iLeftLocation As Integer = 5, iTopLocation As Integer = 5
        '// create Dynamic.TextBox.
        Dim txt As New TextBox With {.Name = "TextBox" & iCoolNumberForName.ToString, .Left = iLeftLocation, .Top = iTopLocation, .Text = .Name}
        Me.Controls.Add(txt) '// add txtBox to Form.
        iCoolNumberForName += 1 : iLeftLocation += 5 : iTopLocation += 25
        txt = New TextBox With {.Name = "TextBox" & iCoolNumberForName.ToString, .Left = iLeftLocation, .Top = iTopLocation, .Text = .Name}
        Me.Controls.Add(txt) '// add txtBox to Form.
        iCoolNumberForName += 1 : iLeftLocation += 5 : iTopLocation += 25
        txt = New TextBox With {.Name = "TextBox" & iCoolNumberForName.ToString, .Left = iLeftLocation, .Top = iTopLocation, .Text = .Name}
        Me.Controls.Add(txt) '// add txtBox to Form.
        '// etc./etc.
    End Sub
#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        createCoolTextBoxes()
    End Sub
End Class

As for getting values from your new TextBoxes, check out this recent post of mine. The second part of code, w/the sTemp &= CType(Me.Controls([B]"TextBox" & i[/B].ToString), TextBox).Text ; i being iCoolNumberForName in the above code.

[vammy]

Hi Adam,
Thnks for the solution.It worked for me.
and also thnks you codeorder for ur intervention here,.thanks alot guys,