vb中让多个TEXTBOX实现同一操作

来源：百度知道 编辑：UC知道 时间：2024/06/04 23:12:29
textbox的命名就是默认的TEXT1,TEXT2……
如果我想要点击一个按钮后，让TEXT1~TEXT50都清空，是否只能写50行TEXT*=""这种语句？能否用FOR语句实现，或者调整TEXTBOX的某个属性让它们成为1类，然后直接对类操作呢？
这个还好，如果我想让这50个TEXTBOX都实现鼠标点击后全选内容这个功能，难道要写50个Private Sub Text*_Click()么？不能通过什么方法直接实现么？
如果是用控件数组，INDEX这种，具体应该怎么操作呢？如果我需要对其中某一个进行操作，又要怎么操作呢？

放置Text1，然后复制Text1，粘贴，弹出对话框之后，点“是”，然后粘贴，直到50个为止，此时，控件数组Text1的下标范围是0～49，放置Command1

添加代码：

Private Sub Command1_Click()
For i = 0 To 49
Text1(i).Text = ""
Next i
End Sub

其中，如果为Text1添加事件，则会多出一个参数Index，表示下标

不懂可以Hi我

给这些TEXTBOX使用同个变量,使它们成为数组,就可以使用FOR实现.

for i =0 to 49
text1(i)=""
next i
text1为数组

我认为：清空用循环
同一代码在50个控件的事件中执行，就可和控件数组，在编程时用index确定你点的那个控件

如你的控件组名为text1

Private Sub Text1_Click(Index As Integer)
MsgBox ("第" + CStr(Index + 1) + "个文本框内容是：" + Text1(Index).Text)
End Sub

Private Sub Text1_Click(Index As Integer)
Dim I As Integer

For I = 0 To 5 '先加5个TEXT控件吧，可任意多少个
Text1(I).Text = ""
Next

End Sub