一个VB多线程实例源码

～～～～～～～～～～～～～ 点睛工作室 ～～～～～～～～～～～～～ 　　　　　　　　　点睛 VB5/6 多线程示例 第三版 ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ 　　以前我写过一些 VB5/6 的多线程的例子程序，不过都没有使用线程 同步函数。不过后来考虑，线程同步函数是必须要用的，否则，在一些不 同的情况下，还是可能出错，即使是单条汇编指令，在多 CPU 的机器上 可能也会出错，何况 VB 的程序，编译成几条汇编指令本也不很确定。 　　这一个示例程序，使用了线程同步函数，使用的是 CriticalSection 族函数，是互锁代码段的函数，对于 VB 程序比较合适，另外的原子方式 访问的 InterlockedEchange 类函数应该也可以用，不过只能对于单个的 长整形，而且速度比较快，不过用途比较单一，所以没有使用。 　　当然，写多线程程序，还是使用 VB.NET 更有效、方便的多，如果不 是必须使用 VB5/6，则最好不要使用就是了。 ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ 　　　　　　　　点睛工作室（http://llf.126.com） 　　　　　　　　　 梁利锋（llf@hanzify.org） ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～