古代值钱的铃铛图片: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