weixin_67216865 2022-09-20 08:40 采纳率: 75%
浏览 33
已结题

VB6.0中使用Timer控件模拟多线程,如何对调用的通用函数加锁?

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条)

报告相同问题?

问题事件

  • 系统已结题 9月28日
  • 已采纳回答 9月20日
  • 创建了问题 9月20日

悬赏问题

  • ¥40 matlab调用ansys联合
  • ¥15 关于#算法#的问题:运用EViews第九版本进行一系列计量经济学的时间数列数据回归分析预测问题 求各位帮我解答一下
  • ¥15 运用EViews第九版本进行一系列计量经济学的时间数列数据回归分析预测问题 求各位帮我解答一下!
  • ¥15 setInterval 页面闪烁,怎么解决
  • ¥15 如何让企业微信机器人实现消息汇总整合
  • ¥50 关于#ui#的问题:做yolov8的ui界面出现的问题
  • ¥15 如何用Python爬取各高校教师公开的教育和工作经历
  • ¥15 TLE9879QXA40 电机驱动
  • ¥20 对于工程问题的非线性数学模型进行线性化
  • ¥15 Mirare PLUS 进行密钥认证?(详解)