VB中的多线程

 

本来上网查看了一些文章，都说VB中多线程非常不稳定，很容易造成程序崩溃。然后我也写了一个简单的例子尝试，运行后，果然崩溃，而且后来造成VB程序损坏，重装了好几次VB，VB本身并不提供多线程，如果要使用，可以通过调用API函数实现，下面的总结是实现VB多线程的一些基本方法：

l          创建线程：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可以创建一个线程。将我们自己定义的函数的地址（Address of）传递给lpStartAddress参数，用来指定线程要做的事情。dwCreationFlags表示创建线程后该线程处于什么状态（如挂起就是常量值&H4）。该函数返回所创建线程的句柄（Handle）。