How to get the TEXT values Entered in Text boxes Dynamically.???

[prince_XY143]

Hello everybody..... i'm having the following code to add the textboxes dynamically.... now i want to get the values entered in that textboxes dynamically..... PLS HEPL ME OUT....


heres the code:

Public Class Form1
Public x = 17
Public y = 60
Public Num As Integer
Public sNum As String
Private Sub frmDynamic_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sNum = InputBox("No of File to be uploaded...?", "FTP-Up Load", "", )
Me.ForeColor = Color.Black
Me.BackColor = Color.AliceBlue
If Integer.TryParse(sNum, Num) Then
addTxtToMe(Num)
Button1_mousemove()
Else
MessageBox.Show("App Quits!!! You did not enter a valid number")
End
End If

End Sub
Public Sub addTxtToMe(ByVal Num As Integer)
For counter As Integer = 1 To Num
Dim txt As New TextBox()
txt.Name = "txtDynamic" & counter
txt.Location = New Point(x, y)
txt.Size = New Size(190, 25)
Me.Controls.Add(txt)
y = y + 25
If y > 555 Then
x = x + 210
y = 5
End If
Next
End Sub
Private Sub Button1_mousemove()
Button1.Name = "butDynamic"
Button1.Text = "Submit"
Button1.Location = New Point(x, y)
Button1.Parent = Me
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'For counter As Integer = 1 To Num
' Dim i = 1
' If Not txt.Text Is Nothing Then
' Do
' End
' Loop
' End If

'Next
End Sub
End Class




Pls figure out the mistakes n corrections.....


THANKS IN ADVANCE...........

[ddclondon]

For Each ctl As Control In Me.Controls
'if textbox
If TypeOf ctl Is TextBox Then
'This assumes that all entries are string/text (Not dates, Numeric, Boolean etc.)
strData = ctl.Text.ToString()
End If
Next


This snippet originally supplied by Cimperiali

[prince_XY143]

[QUOTE=ddclondon;1918411][code]
THANKX ALOT................

[HanneSThEGreaT]

prince_XY143, please remember to use Code tags when posting code, as explained here :

http://www.codeguru.com/forum/showthread.php?t=403073

Thank you

Hannes

[ddclondon]

Your code:



Dim txt As New TextBox()
txt.Name = "txtDynamic" & counter
txt.Location = New Point(x, y)
txt.Size = New Size(190, 25)
Me.Controls.Add(txt)


If I were attempting this I would identify the textboxes dynamically while using the Tag property - the following code is typed manually here within this message so please excuse any typos:


Select Case Counter
Case 1: txt.Tag = "Forename"
Case 2: txt.Tag = "Surname"
Case 3: txt.Tag = "Company"
Case 4: txt.Tag = "Address1"
Case 5: txt.Tag = "Address2"
Case 6: txt.Tag = "Telephone"
End Select


Then, while retrieving the data you can be more specific as to which piece of data you are accessing by referring to the Tag property rather than the arbitrary name property you are using now.


For Each ctl As Control In Me.Controls
'if textbox
If TypeOf ctl Is TextBox Then
'This assumes that all entries are string/text (Not dates, Numeric, Boolean etc.)
strField = ctl.Tag
strData = ctl.Text.ToString()
Select Case strField
Case "Forename": ..........
.................
.................
End Select
End If
Next


This is just an idea but I am trying to be helpful within the bounds of my own lack of experience with VS2008