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

Answer 1

用一个外部变量当作控制开关就行了
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

追问

我是新手 帮忙解释一下

我是新手 帮忙解释一下

追答

就是点击按钮时，根据aa的值选择要做什么，比如第一次点击时，aa+1=1 ,那么选择语句select 就选择case 1 后边的代码执行，第二次点击时，aa再加1就＝2，就会执行case 2后面的代码，与此类推，如果没有符合的选项，就执行else后面的代码。当然你还可以加上case 3 ,case 4等等

追问

按一下command1 text1显示 “我”
再按一下command1 text2显示 “你”
在继续按command1 text3显示 “它”
怎么弄？

追答

按第4次又怎么样？又从text1显示我开始？

dim aa as integer

private sub command1_click()
aa=aa+1
select case aa
case 1
text1="我"
case 2
text2="你"
case 3
text3="它"
end select
aa=aa mod 3
end sub

Answer 2

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

追问

按一下command1 text1显示 “我”
再按一下command1 text2显示 “你”
在继续按command1 text3显示 “它”
怎么弄？ 一定要设变量吗？

Answer 3

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

追问

按一下command1 text1显示 “我”
再按一下command1 text2显示 “你”
在继续按command1 text3显示 “它”
怎么弄？ 一定要设变量吗？

Answer 4

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