多线程的一个问题

youaremysky

我想在命令库里面把主程序停掉,不让他执行不想执行的部分,但是主程序的序号不能进入到命令库里,请问除了给函数加参数的方法外还有没有办法可以做到呢?

[按键精灵] 纯文本查看 复制代码

Dimenv 主程序的序号
Event Form1.Button1.Click
    主程序的序号 = BeginThread(主程序)
End Event
Sub 主程序()
    Call Lib.命令库.一个判断命令()
    //下面的命令我不想让他执行
    MessageBox "可惜还是执行了"   
End Sub


命令库里的函数是
sub 一个判断命令()
    a=1

    If a = 1 Then 
    StopThread(主程序的序号)
    end if
end sub

紫猫

弄个文本文件做读写记录？

youaremysky

额,好吧,其实我想要的答案是在不知道线程id的情况下结束所有线程,看来没有好办法了.谢谢