远征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