如果在菜单上有一个暂停、继续功能

[tianshuiyiqiu]

我想在菜单上实现一个功能，点一下，就暂停，再点一下就继续。
它同时要停下几个事件。

[cike_1111]

给你一个类似的代码!提供你参考:
---------------------------------
Private Sub Command1_Click()

Static a As Integer '声明一个静态变量

a = a + 1 '点一次它+1

If a Mod 2 = 1 Then '拿它的结果除2求余数,如果余数为1 那么...

Command1.Caption = "开始"

Else '因为是除2的 求余计算 所以只有0和1两个结果,它的结果可以是0-1-0-1的循环

Command1.Caption = "停止" '余数不为1的时候又执行另一代码

End If

End Sub
------------------------------------
推荐给你的是这个方法得到0-1-0-1这样结果的循环 用个判断语句判断,然后写你的代码里面就可以了!!

=====================
MOD 函数 :该函数返回一个2数相除后的余数! 3 mod 5 = 2; 5 mod 8= 3; 2 mod 2 =0
=====================

另外给你个方法:
--------------------------------
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "结束"
'其他代码.....
Else
comamnd1.Caption = "开始"
'其他代码...
End Sub


Private Sub Form_Load()
Command1.Caption = "开始"
End Sub
---------------------------
应该读懂代码的意思了吧! 比较上个例子 这个比较好用!!