Values in a Tab Control Group? I have the following code: and I want the txtDraw Textbox to insert it into a TabControl2, but if I enter it will not show me the values again, and I do not know how to do it.
Dim I As Integer
Dim aryText () As String
'SPLIT THE TEXT INTO AN ARRAY'
aryText = TextNSt15.Lines (0) .Split ("," c)
For i = 0 To aryText.Length - 1
Dim s = aryText (i)
Dim n = CInt (s)
Dim txtDrawANum = Math.Ceiling (n / 10)
Dim txtDrawA = Me.Controls ("txtDrawA" & txtDrawANum)
txtDrawA.Text = (CInt (txtDrawA.Text) + 1) .ToString ()
Next
txtDrawB ()
txtDrawC ()
End Sub
Private Sub txtDrawB ()
Dim I As Integer
Dim aryText () As String
'SPLIT THE TEXT INTO AN ARRAY'
aryText = TextNSt2.Text.Split ("," c)
For i = 0 To aryText.Length - 1
Dim s = aryText (i)
Dim n = CInt (s)
Dim txtDrawBank = Math.Ceiling (n / 10)
Dim txtDrawB = Me.Controls ("txtDrawB" & txtDrawBNum)
txtDrawB.Text = (CInt (txtDrawB.Text) + 1) .ToString ()
Next
End Sub
Private Sub txtDrawC ()
Dim I As Integer
Dim aryText () As String
'SPLIT THE TEXT INTO AN ARRAY'
aryText = TextNSt3.Text.Split ("," c)
For i = 0 To aryText.Length - 1
Dim s = aryText (i)
Dim n = CInt (s)
Dim txtDrawcNum = Math.Ceiling (n / 10)
Dim txtDrawc = Me.Controls ("txtDrawC" & txtDrawCNum)
txtDrawC.Text = (CInt (txtDrawC.Text) + 1) .ToString ()
Next
End Sub
Comments
Post a Comment