VB编程 大家帮忙啊

来源：百度知道 编辑：UC知道 时间：2024/05/17 13:30:08
放置一个文本框2个命令按钮，显示退出（其中退出按钮无效）程序功能是当单击第一个命令按钮（command1）“显

示”时，在文本框中显示“这是我的第一个VB程序”，命令按钮的标题变为“继续”，再单击该命令按钮文本框显

示“请赐教，谢谢”第一个命令按钮又改为显示，第二个命令按钮退出变为可用。

Private Sub Command1_Click()
If Command1.Caption = "显示" Then
Command1.Caption = "继续"
Text1.Text = "这是我的第一个VB程序"
Exit Sub
Else
Command1.Caption = "显示"
Text1.Text = "请赐教，谢谢"
Command2.Enabled = True
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "显示"
Command2.Caption = "退出"
Command2.Enabled = False
Text1.Text = ""
End Sub

你好!
方法如下:
1、新建一个表单FORM1；
2、在FORM1一放置1个标签LABEL1及两个按扭，分别为Command1和Command2；Command1为显示，Command2为退出；
3、代码如下：
Dim ViewType As Boolean'用于标识Command1按下后的当前状态分类=TRUE时"继续"，=FALSE时为"显示"

Private Sub Command1_Click()

ViewType = Not ViewType

If ViewType Then
Command1.Caption = "继续"
Label1.Caption =