LockFree 释放线程锁

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

功能

释放由 LockCreate 创建线程锁 创建的线程锁。

语法

LockFree(线程锁句柄)

参数

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

备注

使用 LockCreate 创建的线程锁应在不使用的时候使用此函数释放。