command1循环调用command2?

tyms 发布于 2012-09-27 15:14， 613 次点击

我的程序要求点一下command1 后。重复运行command2 click 10次
运行后结果死机。求高手给个解决方安

6 回复

风吹过b2012-09-27 17:57

你 command2 click 里面的代码如何？
是如何调用的。

什么都没说清楚，怎么有解决办法？？

不同的代码，有不同的调用方法。
有些使用 call 调用就可以了。
有些需要使用定时器，隔一定时间调用一次。
有些需要开多线程，每个线程运行一次。

邵帅2012-09-28 09:14

是啊，你是怎样实现执行10次的？以及里面的代码是怎样？

Artless2012-09-28 13:51

以下是引用tyms在2012-9-27 15:14:09的发言：

我的程序要求点一下command1 后。重复运行command2 click 10次
运行后结果死机。求高手给个解决方安

你的代码？

wube2012-10-03 14:14

程序代码：

Option Explicit

Dim a As Integer

Private Sub Command1_Click()
Dim i As Integer
    For i = 0 To 9
        Command2_Click
    Next i
End Sub

Private Sub Command2_Click()
a = a + 1
MsgBox a
End Sub

Private Sub Form_Load()
a = 0
End Sub

Flying_boy2012-10-10 20:39

没问题呀，只不过输出的值一直都是1！可以在最前面加一句“Private a As Integer”，就会输出1,2，3……

wube2012-10-11 01:29

回复 6楼 Flying_boy

因为你的程序缺少全局变量来继承状态的缘故