| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 712 人关注过本帖
标题:[求助]清空文本框的方法
只看楼主 加入收藏
appleuser
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2007-5-1
收藏
 问题点数:0 回复次数:4 
[求助]清空文本框的方法
请教各位大侠:

一个文本框的清空方式为:Text1.Text=""

当文本框多的时候该用什么方法?

比如说有几十个文本框,如果也用这个方法,那就太麻烦了,有什么简便的方法没有?

我是个新手,还请各位大侠多多指教!
搜索更多相关主题的帖子: 空文 
2007-05-02 08:50
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
做成控件数组,一个循环就ok了。

我的msn: myfend@
2007-05-02 09:12
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
收藏
得分:0 

Private Sub Command1_Click()
Dim a As Integer
For a = 0 To 50
Text1(a).Text = ""
Next a
End Sub


If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-05-02 22:41
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
收藏
得分:0 
试试这个:
Dim x As Variant

For Each x In Form1.Controls
If TypeName(x) = "TextBox" Then
x.Text = ""

End If

Next

2007-05-02 23:09
appleuser
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2007-5-1
收藏
得分:0 

多谢了


VB刚入门
2007-05-03 17:40
快速回复:[求助]清空文本框的方法
数据加载中...
 
   



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

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