一个frame中有8个text,,从text1到text8.怎么样让他们一次都清空！

[shaxue]

就是text1-->text8.text="",都设为空值。比如用个循环语句：
dim i as textbox
for i=text1 to text8
i.text=""
next i
但是这样不行？怎么办？

[whose]

For Each mcontrol In Controls
If mcontrol.Tag = "S" Then
mcontrol.Text = ""
End If
Next
在屬性tag中自已設S

[MyLf]

to whose:還要設.tag屬性?有點麻煩吧?
dim ctl as control
for each ctl in me.controls
if typename(ctl)="TextBox" then ctl=""
next
to shaxue:對象變量怎能做計數器呢?

[xuqiang007]

用控件数组啊。就是TEXT(1),TEXT(2),TEXT(3)...注意不是TEXT1,TEXT2,TEXT3...
你在FRAME里建立第一个TEXT以后,选中它,然后复制,再在FRAME里面粘贴,就会提示你是否要创建控件数组.
这是就可以创建一系列名为TEXT(n)的控件了.
FOR I=0 TO n-1
TEXT(I).TEXT=""
NEXT

[shaxue]

略作改动，解决问题。多谢，给分！