OnThreadExit 线程停止事件子程序

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

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

语法

1
2
3
Sub OnThreadExit()
代码块
End Sub

参数

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

返回值

示例

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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

备注

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