Question

VB中如何同时运行2个函数

在同一个工程下，我在2个time事件中写了2个if和do的复合函数，是循环的，我按下某个键那么其中一个函数运行，再按下某个键这个函数终止,也就是说有4个热键控制这2个函数的运行和终止。但是还是没法实现2个函数同时运行，只能运行一个，要运行另外一个必须把前面那个终止了才行。有没有大神知道要怎么样才能使2个函数既能同时运行又能分别运行...本人VB基础很差，2年没碰了...
不要用四个键 用两个键就好了
把两个函数写进同一个事件里面

这样不行啊，我是想技能2个函数一起运行，又能一个函数单独运行。你的意思是用2个热键同时控制2个函数吗？这样的话我2个函数就只能一起运行了，不能单独运行了。。。

Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function
Private Sub Timer1_Timer()
If MyHotKey(vbKeyF12) Then
Do
keybd_event vbKey1, 0, 0, 0
Loop Until MyHotKey(vbKeyF11)
End If
End Sub
Private Sub Timer2_Timer()
If MyHotKey(vbKeyF8) Then
Do
keybd_event vbKey2, 0, 0, 0
Loop Until MyHotKey(vbKeyF7)
End If
End Sub
这个是我写的其中一段代码。上面的声明我省了，意思是我按F12键时，键盘连续模拟1键动作，按F11停止模拟1键动作。按F8键时，键盘连续模拟2键动作，按F7停止模拟2键动作。但是郁闷的是2个不能同时模拟，我模拟的1键想模拟2键的话必须先按F11停止1键模拟，再按F8键才能开始2键的模拟，郁闷啊，谁能解决下这个问题，谢谢了。。。

Answer 1

用3个键，2个键分别控制一个函数，另一键同时控制2个函数，当2个键分别控制一个函数的时候，要弄个计数器，记录按键的次数，可以定义次数为偶数次时为关闭状态，次数为奇数次时为运行态

Answer 2

不要用四个键 用两个键就好了
把两个函数写进同一个事件里面

你所谓的单独运行时什么意思
是自己算自己的吗

这种方法应该可以啊