标题:请教textbox控件的用法
只看楼主
a402730324
Rank: 5Rank: 5
等 级:贵宾
威 望:18
帖 子:1233
专家分:0
注 册:2005-12-1
 问题点数:0 回复次数:4 
请教textbox控件的用法
我想在一个循环里面使用n个文本框,但是不知道用什么技术可以用
比如:
for i=0 to 9

textboxi.text//迭代访问这几个文本框,请大家介绍几种技术吧
next i

[此贴子已经被作者于2007-9-24 23:48:37编辑过]

搜索更多相关主题的帖子: textbox 控件 用法 
2007-09-24 22:56
qlong0728
Rank: 3Rank: 3
等 级:新手上路
威 望:8
帖 子:272
专家分:0
注 册:2007-6-15
得分:0 
因为NET没有控件组功能,前提必须建的控件名为TextBox1至TextBox9

Dim i As Integer
For i = 1 To 9
DirectCast(Controls.Find("TextBox" & i , True)(0), TextBox).Text=i
Next

或另一种方法用TAB

Select Case sender.TabIndex
Case 1
TextBox1.TEXT="A"
Case 2
TextBox2.TEXT="B"
End Select


[此贴子已经被作者于2007-9-25 9:19:33编辑过]


程序人员写程序,又拿程序换酒钱。 奔驰宝马贵者趣,公交自行程序员。 不见满街漂亮妹,哪个归得程序员。
2007-09-25 08:41
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
得分:0 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Long = 0
For Each C As Control In Me.Controls
If TypeOf C Is TextBox Then
i = i + 1
C.Text = i
End If
Next
End Sub

2007-09-25 16:18
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
得分:0 

如果可能在别的控件里面

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AddText(Me)
End Sub

Private Sub AddText(ByVal Ctrl As Control)
If TypeOf Ctrl Is TextBox Then DirectCast(Ctrl, TextBox).Text = "你好"
For Each C As Control In Ctrl.Controls
AddText(C)
Next
End Sub


2007-09-25 16:21
a402730324
Rank: 5Rank: 5
等 级:贵宾
威 望:18
帖 子:1233
专家分:0
注 册:2005-12-1
得分:0 
呵呵谢谢大家的帮忙,非常感谢,又学到了不少东西

敢犯强汉者,虽远必诛!——陈汤 不知吾辈何时方能吐出此豪言壮语?
2007-09-25 23:15



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-172630-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.190560 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved