Question

窗体显示欢迎使用“VB”

建立按钮“command 1”“显示”command 2退出 单击“显示”出现欢迎使用VB 同时标题改为“”清除，再单击清除界面恢复初始。急求～

Answer 1

Private Sub command1_Click()
If command1.caption="显示" then
command1.caption="清除"
Print "欢迎使用VB"
else
command1.caption="显示"
cls
endif
End Sub

Answer 2

Private Sub command1_Click()
Form1.Print "欢迎使用VB"
command1.tag=caption
caption=""
End Sub

Private Sub command2_Click()
Form1.cls
caption=command1.tag
command1.tag=""
End Sub

Answer 3

你这个需求不需要建立二个按钮的，一个就够了。看代码

Private Sub Command1_Click()
If Me.Command1.Caption = "显示" Then
Me.Command1.Caption = "清除"
Print "欢迎使用VB"
Else
Me.Command1.Caption = "显示"
Form1.Cls
End If
End Sub

Answer 4

Private Sub Form_Click()
Form1.Print "欢迎使用VB"
End Sub