远征35 36大成功:vb怎样判断按钮是否被点击过

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 21:06:43

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

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