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

Question

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

Answer 1

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

Answer 2

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