现一窗口form1里有11个按钮分别为cmd1,cmd2……cmd10,
若在form2中有一个文本框和一个botton1,若在文本框里输入5,按botton1后,则comd5……cmd10按钮无效或者不可见
代码如何写啊
小弟第一天注册,麻烦各位强人百忙中看看,万分感激啊。

解决方案 »

  1.   

    form2中:
    private sub button1_click()
      if text1.text="5" then
        form1!cmd5.visible=false
        form1!cmd6.visible=false
        form1!cmd7.visible=false
        form1!cmd8.visible=false
        form1!cmd9.visible=false
        form1!cmd10.visible=false
      end if
    end sub
      

  2.   

    自己搞定了,先用控件数组,再用2个for语句就完了
    For i = 0 To n - 1
           form1.Command1(i).Visible = True
          Next i
    For j = n To 200
           form1.Command1(j).Visible = False
           Next j
    Unload Me
          End If