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

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日

悬赏问题

  • ¥15 聚类分析或者python进行数据分析
  • ¥15 如何用visual studio code实现html页面
  • ¥15 逻辑谓词和消解原理的运用
  • ¥15 三菱伺服电机按启动按钮有使能但不动作
  • ¥15 js,页面2返回页面1时定位进入的设备
  • ¥50 导入文件到网吧的电脑并且在重启之后不会被恢复
  • ¥15 (希望可以解决问题)ma和mb文件无法正常打开,打开后是空白,但是有正常内存占用,但可以在打开Maya应用程序后打开场景ma和mb格式。
  • ¥20 ML307A在使用AT命令连接EMQX平台的MQTT时被拒绝
  • ¥20 腾讯企业邮箱邮件可以恢复么
  • ¥15 有人知道怎么将自己的迁移策略布到edgecloudsim上使用吗?