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

textbox的命名就是默认的TEXT1,TEXT2……如果我想要点击一个按钮后,让TEXT1~TEXT50都清空,是否只能写50行TEXT*=""这种语句?能否用FOR... textbox的命名就是默认的TEXT1,TEXT2……
如果我想要点击一个按钮后,让TEXT1~TEXT50都清空,是否只能写50行TEXT*=""这种语句?能否用FOR语句实现,或者调整TEXTBOX的某个属性让它们成为1类,然后直接对类操作呢?
这个还好,如果我想让这50个TEXTBOX都实现鼠标点击后全选内容这个功能,难道要写50个Private Sub Text*_Click()么?不能通过什么方法直接实现么?
如果是用控件数组,INDEX这种,具体应该怎么操作呢?如果我需要对其中某一个进行操作,又要怎么操作呢?
展开
 我来答
LuoJi_1995
2009-09-06 · TA获得超过1714个赞
知道小有建树答主
回答量:613
采纳率:0%
帮助的人:763万
展开全部
放置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我
百度网友d08f806
2009-09-06 · 超过28用户采纳过TA的回答
知道答主
回答量:65
采纳率:0%
帮助的人:71.2万
展开全部
给这些TEXTBOX使用同个变量,使它们成为数组,就可以使用FOR实现.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
穷人缺少什么
2009-09-06
知道答主
回答量:19
采纳率:0%
帮助的人:10.3万
展开全部
for i =0 to 49
text1(i)=""
next i
text1为数组
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
佛向悟
2009-09-06 · TA获得超过364个赞
知道小有建树答主
回答量:673
采纳率:0%
帮助的人:367万
展开全部
我认为:清空用循环
同一代码在50个控件的事件中执行,就可和控件数组,在编程时用index确定你点的那个控件

如你的控件组名为text1

Private Sub Text1_Click(Index As Integer)
MsgBox ("第" + CStr(Index + 1) + "个文本框内容是:" + Text1(Index).Text)
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
吴导代言
2009-09-12 · 超过26用户采纳过TA的回答
知道答主
回答量:189
采纳率:0%
帮助的人:104万
展开全部
Private Sub Text1_Click(Index As Integer)
Dim I As Integer

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

End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式