LockOn 锁定线程锁

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

功能

锁定指定的线程锁。

语法

LockOn(线程锁句柄)

参数

参数 数据类型 解释
线程锁句柄 整数型 LockCreate 创建线程锁 创建返回的线程锁句柄

返回值

示例

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
27
28
29
30
31
32
33
34
35
36
Dim Lock1 = LockCreate()
Dim Lock2 = LockCreate()
Dim Lock3 = LockCreate()
LockOn(Lock1)
LockOn(Lock2)
LockOn(Lock3)
ThreadCreate(ThreadLock1, Lock1)
ThreadCreate(ThreadLock2, Lock2)
ThreadCreate(ThreadLock3, Lock3)
Delay 3000
LockOff(Lock1)
Delay 3000
LockOff(Lock2)
Delay 3000
LockOff (Lock3)
LockFree(Lock1)
LockFree(Lock2)
LockFree(Lock3)
Sub ThreadLock1(lock)
LockOn(lock)
TracePrint 1
LockOff(lock)
End Sub
Sub ThreadLock2(lock)
LockOn(lock)
TracePrint 2
LockOff(lock)
End Sub
Sub ThreadLock3(lock)
LockOn(lock)
TracePrint 3
LockOff(lock)
End Sub

备注

同一时间只有一条线程能够锁定线程锁,其他线程会自动排队等待线程锁结束后锁定。