楼主的基础真的好差啊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
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