比如窗体上添加一个label控件和一个命令command控件,command控件单击用于显示label的文字,command控件初始caption为“隐藏文字”,现在想实现这样一个效果:单击command控件隐藏文字,然后command控件名字变为“显示文字”,再次单击将显示出label控件的文字,请问怎样实现?谢谢(尽量给出代码)

解决方案 »

  1.   

    先声明一个static变量bView然后Commnd的Click事件中,bView=Not View然后用判断语句,如果 bView为真,标签的Visible属性为True,否则为False。
      

  2.   

    楼主的基础真的好差啊Private m_bolView As BooleanPrivate Sub Command1_Click()
        If m_bolView Then
            Command1.Caption = "隐藏文字"
            Label1.Visible = True
        Else
            Command1.Caption = "显示文字"
            Label1.Visible = False
        End If
        m_bolView = Not m_bolView
    End SubPrivate Sub Form_Load()
        m_bolView = False
    End Sub