VB按钮点击一次 执行一个事件 再点击一次 执行另外一个事件 可以重复点击这个按钮 不停执行事件的 求函数

用一个外部变量当作控制开关就行了
dim aa as integer

private sub command1_click()
aa=aa+1
select case aa
case 1
msgbox "吃饭"
case 2
msgbox "上课"
else
msgbox"睡觉"
end select
end sub

dim aa as integer

sub form_load
aa=0

end sub

private sub command1_click()

select case aa
case 1
msgbox "吃饭"
case 2
msgbox "上课"
else
msgbox"睡觉"
end select
if aa=0 then

aa=aa+1
else
aa=0
end if

end sub

设置 1个变量 如 x
使X=1
当按钮被点击后
IF (X="2")
执行第一个事件
然后执行x=“1”然后在执行判断！

Private Sub Command1_Click()
Static a As Long
a = a + 1
Select Case a
Case 1
Text1.Text = "你"
Case 2
Text2.Text = "我"
Case 3
Text3.Text = "它"
a = 0
End Select
End Sub