网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,156贴子：1,166,018
  • 19回复贴，共1页

求助：一个按钮把指定的文本框中的内容清空


当点击清空时 所有的文本框中全部归零 该如何写这个代码


用控件组


dim i as control
for each i in me.controls
if typeof i is textbox then i.text = ""
next i
'手机打的，试下应该可以


用控件数组，将所有文本框命名为“text”，把清空按钮命名为“清空”
private sub 清空_click
dim i as integer,文本框数量 as integer
文本框数量=40 '你图上只画了40个文本框，你要清空多少，就赋值为多少
for i=i to 文本框数量
text(i).text=vbnullstring '等号后面不带引号
next i
end sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 19回复贴，共1页
分享到: