古代值钱的铃铛图片:vb怎样判断按钮是否被点击过

来源:百度文库 编辑:高校问答 时间:2024/05/09 06:02:04

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