VB.net如何设置GroupBox控件里的textbox内容?
GroupBox控件里有很多其它类型的控件,其中textbox控件就有10个,我已将其TabIndex分别设置为0至9.怎样用循环代码实现将Ste(0to9)里的文本按下...
GroupBox控件里有很多其它类型的控件,其中textbox控件就有10个,我已将其TabIndex分别设置为0至9.
怎样用循环代码实现将Ste(0 to 9) 里的文本按下标顺利分别添加到textbox里。
即TabIndex=0的对应Ste(0)
TabIndex=1的对应Ste(1)
TabIndex=2的对应Ste(2)
。
。
TabIndex=9的对应Ste(9)
我用以下方法发现可以填进去,但填乱了。应该怎样呢?
Dim j As Integer
For i As Integer = 0 To GroupBox1.Controls.Count - 1
If GroupBox1.Controls(i).GetType = GetType(TextBox) Then
j = j + 1
GroupBox1.Controls(i).Text = Ste(j)
End If
Next 展开
怎样用循环代码实现将Ste(0 to 9) 里的文本按下标顺利分别添加到textbox里。
即TabIndex=0的对应Ste(0)
TabIndex=1的对应Ste(1)
TabIndex=2的对应Ste(2)
。
。
TabIndex=9的对应Ste(9)
我用以下方法发现可以填进去,但填乱了。应该怎样呢?
Dim j As Integer
For i As Integer = 0 To GroupBox1.Controls.Count - 1
If GroupBox1.Controls(i).GetType = GetType(TextBox) Then
j = j + 1
GroupBox1.Controls(i).Text = Ste(j)
End If
Next 展开
2个回答
展开全部
哦,按添加顺序来说是可以的,但是是很不科学的,感觉太变态,包括你以后空间上有些改动的话,就会有问题;建议的方法是使用控件数组来做;VB.NET不是没有了VB6的控件数组而是有了更好的支持;可以直接在选择项中找到TextboxArray控件,然后添加到工具栏中,再拖入到窗体中就可以了,
或者
Dim txtBox As New List(Of TextBox)
Sub addcontrols()
For i = 0 To 10
Dim txt As New TextBox
txt.Name = "txt" & i
txtBox.Add(txt)
Next
End Sub
这样来建立控件数组;
如果不喜欢用控件数组的话,可以用最直接的方法来
你在添加textbox控件的适合指定他们的name属性分别为txt0、txt1……、txt9
然后直接:
Sub changeText()
For i = 0 To 10
CType(GroupBox1.Controls("txt" & i), TextBox).Text = Ste(i)
Next
End Sub
这样也行的;
或者
Dim txtBox As New List(Of TextBox)
Sub addcontrols()
For i = 0 To 10
Dim txt As New TextBox
txt.Name = "txt" & i
txtBox.Add(txt)
Next
End Sub
这样来建立控件数组;
如果不喜欢用控件数组的话,可以用最直接的方法来
你在添加textbox控件的适合指定他们的name属性分别为txt0、txt1……、txt9
然后直接:
Sub changeText()
For i = 0 To 10
CType(GroupBox1.Controls("txt" & i), TextBox).Text = Ste(i)
Next
End Sub
这样也行的;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |