LockOff 解锁线程锁

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

功能

解除指定的线程锁。

语法

LockOff(线程锁句柄)

参数

参数 数据类型 解释
线程锁句柄 整数型 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

备注

线程锁未被解锁,其他进行锁定操作的线程会进入锁死(阻塞)状态,因此争抢操作执行完毕后,应使用此函数将线程锁解锁,让出资源供其他线程使用。