Question

vb怎样判断按钮是否被点击过

Answer 1

Option Explicit
Dim flag As boolean '用布尔型较方便。

Private Sub Command1_Click()
If flag = false Then
MsgBox "no use"
flag = true
Else
MsgBox "used"
End If
End Sub

Private Sub Form_Load()
flag = false
End Sub

Answer 2

Option Explicit
Dim flag As Integer

Private Sub Command1_Click()
If flag = 0 Then
MsgBox "no use"
flag = 1
Else
MsgBox "used"
flag = 0
End If
End Sub

Private Sub Form_Load()
flag = 0
End Sub