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
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显示 “它”
怎么弄？ 一定要设变量吗？
使X=1
当按钮被点击后
IF (X="2")
执行第一个事件
然后执行x=“1”然后在执行判断！追问
按一下command1 text1显示 “我”
再按一下command1 text2显示 “你”
在继续按command1 text3显示 “它”
怎么弄？ 一定要设变量吗？
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
vb按钮如何点击第一次触发(1)事件,点击第二次触发(2)事件?
加一个全局变量a，单击一次累加1(在最上面定义dim a as long)单击事件里加入以下 a=a+1 if a mod 2 =0 then (2)事件 else (1)事件 end if
vb点击一个按钮后再点击下一个按钮才运行一个程序,如果只点击第二个...
声明一个全局的布尔型变量（默认值为False），然后在点击第一个按钮时把这个变量的值设为True，在点击第二个按钮时判断这个变量的值是否为True，是则执行你所谓的“运行一个程序”，再把变量重新恢复为False（以便再次执行）。下面是例子：Dim f As Boolean Private Sub Command1_Click()f = True En...
VB如何单机一次按钮执行命令,双击执行另一个命令
这也就是为什么VB的按钮控件只有单击事件（Click）却没有双击事件（DblClick）的原因！因为两者是无法共存的！虽然通过软件方式可以模拟出双击事件，但却无法避免上述的逻辑冲突，单击和双击只能二选一。
vb中如何让按钮点击一次后就失效,再点击另一个按钮后恢复,另一个按钮失...
那个按钮要使这个按钮启用，在那个按钮的相应事件内加入Command1.Enabled = True即可
VB按钮 点击一下为1 再次点击为0 再点击为1 如此循环 怎么实现
Private Sub Command1_Click()If Command1.Caption = "1" Then Command1.Caption = "0"Else Command1.Caption = "1"End If End Sub 以上可以实现你的要求！如再有疑问，请追问！
vb 怎么用一个按钮控制另一个按钮重复点击执行?
最简单的办法加一个timer1控件,代码如下:Private Sub Form_Load()Timer1.Enabled = False '初始timer1的状态为未激活 Timer1.Interval = 1000 '初始timer1代码的执行周期为1000毫秒 End Sub Private Sub Timer1_Timer()CMD_fireall_Click End Sub Private Sub ToggleButton2_Click()Timer1.Enabled...
用VB编程,我想让程序点击按钮后暂停,再点一下继续执行,有谁知道该怎...
在你的程序你面设置一个参数ZANTING，如果按钮1点击，则ZANTING=1，程序进入死循环，如果按钮2点击，则ZANTING=0，程序跳出死循环 代码如下：在你的程序里面写如下代码：waitdone2:If ZANTING = 1 Then System.Threading.Thread.Sleep(100)GoTo waitdone2 End If If ZANTING = 0 Then GoTo NEXT...
vb中想做一个按钮点击一下打开窗口,再点一下关闭窗口!于此循环!如何编辑...
新建两个窗体form1和form2 在两个窗体中各加一个命令按钮commnad1；在form1下的command1中编辑命令 form2.show 在form2下的command1中编辑命令 unload me 或unload form2 运行后：点击form1下的command1，弹出form2窗体；点击form2下的command1，关闭form2窗体；...
vb里一个窗体中的命令按钮 按下去 会执行另外一个窗体中的命令按钮的...
1）在当前窗口按钮的Click事件中对执行窗体的按钮的Value 属性赋值True事项。Value 属性，CommandButton 控件－返回或设置指示该按钮是否可选的值；在设计时不可用。Private Sub Command1_Click() Form2.Command1.Value = TrueEnd Sub2）VB中只需在另一窗体添加一个Timer控件，在当前窗体呼唤该窗体的...
...在vb中我如何才能够做到点一下command按钮发生一个事件,再点一...
Private Sub timer1_Click()timer1.enable=not timer1.enable If timer1.enable=true then ...Else timer1.enable=false End If End Sub 这样点击一次go，再点stop，再点go...哥们，记得给分阿。
