Question

VB中，同一个按钮，先后单击两次功能不同，怎么实现。

这个按钮先是写着‘清空’，功能是清空form上面的文本，单击一次后上面变成了“退出系统”，功能也变成了end。到底怎么实现啊。

Answer 1

Option Explicit
Dim A As Boolean

Private Sub Command1_Click()

If A = False Then
Form1.Text1.Text = "": Command1.Caption = "退出系统": A = True
Else
End
End If

End Sub