Question

vb按钮如何点击第一次触发(1)事件,点击第二次触发(2)事件?

Answer 1

加一个全局变量a，单击一次累加1(在最上面定义dim a as long)
单击事件里加入以下
a=a+1
if a mod 2 =0 then
(2)事件
else
(1)事件
end if

Answer 2

两种方法：
1、在按钮点击事件下声明静态变量（即static声明的），每次点击加1
Private Sub Command1_Click()
Static a As Integer
a = a + 1
Print "第" & a & "次点击按钮"
End Sub
2、声明全局变量，在点击事件里依次加1
Public a As Integer
Private Sub Command1_Click()
a = a + 1
Print "第" & a & "次点击按钮"
End Sub

若仅有仅触发2种事件
Public a As Boolean
Private Sub Command1_Click()
a = Not a
Print a
End Sub