线程插队

本帖最后由 bcrun 于 2010-08-04 09:10:55 编辑

解决方案 »

  1.   

    过程开始时调用EnterCriticalSection进入临界区过程结束时调用LeaveCriticalSection离开临界区
      

  2.   

    我不想用到多线程的API去，VB多线程是相当的垃圾我只要让下面的那个线程等上面的线程完全运行后 再去做他该做的
      

  3.   

    Sub 执行过程(参数 As Integer, 线程 As Integer)
      Do
      u% = DoEvents
      Loop Until Running(线程) = False '其实我错的地方就在这里，我本意是想等待上一个线程执行完毕，可这里的Running(线程) 就是当前的线程 并非上一个线程。就是想不出怎么在这里得知上一个线程是否在运行中。
        
      其它执行 线程
    End Sub
      

  4.   

    我要的多线程用Timer就可以解决，只是在代码里碰到了一些比较环锁的问题，我还是到代码里去找问题吧。谢谢你的关注！