程序里边有一个form,上面有10个textbox和几个按钮。希望实现的效果是:用户进入界面的时候,textbox隐藏,点击某个特定按钮,显示某几个textbox。我是这样做的,在Load里边,把text1.visible=false,text2.visible=false.....然后在按钮的click里边,再把text1.visible=true.....请问有没有一种比较简单的方法,可以批量处理这一事件?自己写一个函数?还是怎么做?如果界面上面有100个textbox,那把它们的visible属性一个一个设成false就是很大一段程序了……

解决方案 »

  1.   

    控件数组用循环.
    for iloop=0 to 99
       textbox(iloop).visible=false
    next iloop
      

  2.   

    用控件数组
    在按钮的click里边写
    For i = 0 To Me.Text1.Count - 1
        Me.Text1(i).visible = False
    Next
      

  3.   

    先拖一个控件到窗体
    COPY,然后粘贴
    系统会提示是否建立数组.选是
    就建立控件数组了.
      

  4.   

    使用控件数组的count属性
    Private Sub Form_Load()
        Dim i As Integer
        For i = 0 To Text1.Count - 1
            Text1(i).visible = False
        Next
    End Sub