OnThreadExit 线程停止事件子程序

🎯功能

当子线程停止的时候, 会触发执行这里的代码内容

📜语法

Sub OnThreadExit()
    代码块
End Sub

📥参数

参数	数据类型	解释
代码块	代码块	任意有效的代码内容

📤返回

无

💡示例

Global g_线程ID1, g_线程ID2
//由于要在子线程中判断线程ID, 所以这里需要使用全局变量
g_线程ID1 = BeginThread(多线程)
Delay 1000
g_线程ID2 = BeginThread(多线程)
Delay 1000

Sub 多线程()
    TracePrint "子线程被启动了"
    For 3
        TracePrint "线程执行中..."
        Delay 1000
    Next
End Sub

Sub OnThreadExit()
    Dim 线程ID
    //线程结束触发本子程序, 通过命令得到对应线程ID
    线程ID = GetThreadID()
    TracePrint "发现线程ID=" & 线程ID & "的线程停止了"
    If 线程ID = g_线程ID1 Then 
        TracePrint "线程1停止了"
    ElseIf 线程ID = g_线程ID2 Then
        TracePrint "线程2停止了"
    End If
End Sub

📘备注

• 当子线程停止的时候, 会自动执行这里的代码