杭州交通信息网xierandaqingshan:我用得事VB6.0请问在窗体加载得时候如何清楚text1.text 的内容啊
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 04:49:53
一项一项得设 text1.text=""text2.text="" ......
请问有没有简单得办法啊
下面是我编写得
dim i as integer
dim text(12)
for i = 0 to 12
text(i)。text=""
next i
我刚学VB不懂什么 请哥哥姐姐帮帮忙
我挺着急得！谢谢
你的代码用的是控件数组,所以不能达到你想要的结果.用你的代码,需在窗体添加Text1控件后,复制此控件12次.然后代码修改为:
Dim i as integer
For i = 0 to 12
Text1(i).Text=""
Next i
你可以使用控件数组,便于集合操作
首先在设计时添加 一个 原始文本框,以后所有的控件文本框数组属性都与他一样.
加载方法:
在FORM_LOAD事件中加入:
dim i%
'代表dim i as integer,两个一样的
for i=1 to 12
load text(i)
'加载控件
text(i).top=text(i-1).top+text(i-1).height+10
'调整位置
text(i).visible=true
'显示控件,默认加载项是不显示的
next
然后在你需要添加清除代码的地方写上:
dim i%
for i=0 to 12
text(i).text=""
next
你可以试一下
调试平台:WinXP SP2 VB6 SP6
Dim ctl As Control
On Error Resume Next
For Each ctl In form1.Controls
If TypeOf ctl Is TextBox Then
ctl.text=""
End If
Next
'注意，form1要改为你的窗体名字。
使用控件数组！
方法一
在窗体中添加一个名为text的text控件，在属性窗口中将它的text属性置为空（你也可以修改其它属性），然后在text控件上点击右键，选择复制，再在窗体的空白区域单击右键，选择粘贴，此时会提示你是否创建控件数组，选择是。重复粘贴n次（根据需要），所有的text控件的text属性都是为空的。引用时用text(0).text text(1).text text(2).text等等引用。
方法二
添加完text控件后，修改它的index属性值为0，再添加同名的text控件将自动生成控件数组。
在属性那里找到text，把里面那个text删了，就没有了，不用每次加载时清除
1，2，4楼的都可以的
谢谢啊