VB里我用Timer模拟多线程,线程内要调用一个函数,需要对这个函数进行锁定,直到该线程释放再被其他线程调用,如何对这个函数加锁?关键字是什么?有没有实例啥的。
2条回答 默认 最新
- 赵4老师 2022-09-20 09:51关注
弄一个全局整形变量gLock,0表示空闲,1表示假线程1在使用,2表示假线程2在使用,……
假线程n在调用不能由多个假线程调用的函数前,添加
Dim after As Double
Dim Integer gLock
gLock=0
‘……
after = Now + 10# / 24# / 3600#
Do
DoEvents
if gLock=0 then
gLock=n
if gLock=n then
call yourfunc()
gLock=0
endif
else
If Now > after Then
exit do
endif
endif
Loop本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 1无用
悬赏问题
- ¥15 win11系统打开软件很慢
- ¥30 XIAO esp32c3 读取FDC2214的数据
- ¥20 我用malloc申请了一块空间 判空显示指针不为null 但是在输出data指针所指的地址是缺全是0 空指针不能输入值进去数组为什么呀
- ¥15 在工控机(Ubuntu系统)上外接USB蓝牙硬件进行蓝牙通信
- ¥15 关于PROCEDURE和FUNCTION的问题
- ¥100 webapi的部署(标签-服务器)
- ¥20 怎么加快手机软件内部计时的时间(关键词-日期时间)
- ¥15 C语言除0问题的检测方法
- ¥15 为什么四分管的内径有的是16mm有的15mm,四分不应该是12.7mm吗
- ¥15 macos13下 ios交叉编译的问题