Text1.Visiable=Not Text1.Visiable

解决方案 »

  1.   

    Private Sub Command1_Click()
    If Text1.Visible = False Then
    Text1.Visible = True
    Else
    Text1.Visible = False
    End If
    End Sub
      

  2.   

    sub command1_click()Text1.Visiable=Not Text1.Visiable
    end sub
      

  3.   

    在按钮的单击事件中设置文本框VISABLE属性——为TRUE时显示,FALSE 时隐藏
      

  4.   

    不可见:
    text1.visible=false
    可见:
    text1.visible=true
      

  5.   

    Private Sub Command1_Click()
    If Text1.Visible = False Then
    Text1.Visible = True
    Else
    Text1.Visible = False
    End If
    End Sub