求助：VB

来源：百度知道 编辑：UC知道 时间：2024/06/05 09:36:30
我想让某个窗体中的TEXT1到TEXT81的TEXT属性都变为空。如果一个个打属性代码太麻烦了，于是我想用FOR NEXT语句来解决：
FOR a=1 TO 81
FORM1.（这里应该怎么写?）.text=""
next
括号里应该怎么写？

For Each t In Controls
If TypeOf t Is TextBox Then
t.Text = ""
End If
Next

最好还是用控件数组

不可能，除非你的几个文本框是以数组方式关联起来的

用控件数组
把 Index 属性改为 0 就行，用的时候就 Name(Index) 这样调用。用 Load Name(Index) 来新建一个实例；用 Unload Name(Index) 来卸载一个实例。

首先定义“对象变量”!
Dim t as object'object还可以是Control，代表窗体中所有控件类型的集合
private sub form_load()
For Each t In Controls
If TypeOf t Is TextBox Then ’判断窗体中的控件类型 是否是文本框
t.Text = ""
End If
Next
end sub