你能创建一个文本框吗?将其拆分为一个字符串并为其分配参数。在 vb.net
Can you Create a textbox. Split it into a string and assign parameters to it. In vb.net
我创建了一个带有很多文本框的保龄球程序。我为每个文本框分配了一个名称,例如:TextboxF1P1T1
、TextboxF1P1T2
、TextboxF1P2T1
等
Private Sub PlayFrame(frameNumber As Integer, player As Integer)
'This works
Dim throw1 As Integer
Integer.TryParse(TextBoxF1P1T1.Text, throw1)
'But i want something like this
Dim throw2 As Integer
Integer.TryParse("TextBoxF" & frameNumber.ToString & "P" & player.ToString & "T2.Text", throw2)
Dim frame As New Frame(1, throw1, throw2)
frame.PlayTurn()
LabelF1P1.Text = frame.TotaleScore.ToString
End Sub
看看属于 Controls 集合的 Find 方法。
您可以在表格内书写
Me.Controls.Find(...)
如果控件在 groupbox
中,请像这样引用它:
Dim throw2 As Integer
Integer.TryParse(GroupBox1.Controls("TextBoxF" & frameNumber.ToString & "P" & player.ToString & "T2").Text, throw2)
我创建了一个带有很多文本框的保龄球程序。我为每个文本框分配了一个名称,例如:TextboxF1P1T1
、TextboxF1P1T2
、TextboxF1P2T1
等
Private Sub PlayFrame(frameNumber As Integer, player As Integer)
'This works
Dim throw1 As Integer
Integer.TryParse(TextBoxF1P1T1.Text, throw1)
'But i want something like this
Dim throw2 As Integer
Integer.TryParse("TextBoxF" & frameNumber.ToString & "P" & player.ToString & "T2.Text", throw2)
Dim frame As New Frame(1, throw1, throw2)
frame.PlayTurn()
LabelF1P1.Text = frame.TotaleScore.ToString
End Sub
看看属于 Controls 集合的 Find 方法。
您可以在表格内书写
Me.Controls.Find(...)
如果控件在 groupbox
中,请像这样引用它:
Dim throw2 As Integer
Integer.TryParse(GroupBox1.Controls("TextBoxF" & frameNumber.ToString & "P" & player.ToString & "T2").Text, throw2)