Question

VB如何同时触发多个事件？

比如单击按键，多个事件同时处理

Answer 1

事件是要用来触发的，不是计算机能解决的。你说是不是点击按键，会执行很多代码？那你就吧所有代码写在Click（）中。

追问

但是我想让三段代码同时执行，一次写进去会有先后之分的

Answer 2

vb设计为单线程的程序，无法同时触发多个事件，如果有必须得话，只能通过调用API来实现。

追问

可以详细点吗？通过调用哪些API来实现呢？谢谢

追答

=一下
之前看别人的回答没有注意就跟着答了
现在仔细看你的问题发现有些歧义：
如果你只是想让你的程序内部，单击一个按键就可以触发几个过程，且这些过程不需要同时进行，则使用hejian511 提供的方法就可以
如果你希望你的程序内部的事件可以被其他应用程序接受到，或者是这些过程需要同时进行，那么才需要使用api
先确认你的目的再说后面的事情吧。
毕竟事件只是一个机制，实际的执行是一些程序段，所以我觉得hejian511 的方法其实就已经足够了。

追问

首先谢谢你，码这么多字挺辛苦的，我希望我的程序过程需要同时进行，好像没有什么好的API

追答

首先明确两点，进程和线程是不一样的概念，一般来说应该是多线程在一个程序控件内自己运行自己的，因此要实现的就是多线程。
使用多线程可以用下面的几个API函数来进行操作：

' 参数dwStackSize为应用程序堆栈大小，lpStartAddress为函数入口地址

Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, LpthreadId As Long) As Long

'终止线程API

Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

'激活线程API,参数hThread为CreateThread创建的线程句柄

Private Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long

'挂起线程API

Private Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long

相关的一些信息你可以在http://digi.it.sohu.com/20050404/n225008354.shtml看看

或者直接搜索VB 多线程

Answer 3

vb没办法，没有多线程，只能一个事件一个事件的来处理。

Answer 4

private sub command1_click()
Call 事件1
Call 事件2
...
end sub

Answer 5

你可以把这些事件写成过程
然后用CAll 调用事件 这样的话时间差会很少