【VB6】多线程讨论终结贴：使用ActiveX-EXE实现完美的多线程

nayiye00 · 发表于 2024-12-24 17:13:23

学习一下!

mugenknight · 发表于 2025-1-14 08:58:54

來學習了~謝謝分享

曾经年少 · 发表于 2025-2-28 21:47:13

这个一定要学习一下

wolf781209 · 发表于 2025-4-2 16:59:22

我来学习学习，我现在需要的就是多线程啊

cfqxwzc · 发表于 2025-6-5 21:16:18

学习一下!

xyz26 · 发表于 2025-7-19 18:55:25

学习学习，感谢

grouphead · 发表于 2025-8-7 15:28:23

看一下完整DEMO

xiaobai2000 · 发表于 2025-8-24 23:25:20

see see

linta · 发表于 2025-9-2 20:42:37

这个一定要学习一下

xxdoc · 发表于 2025-9-6 10:08:32

都是苦逼的人啊

gdckn · 发表于 2025-9-9 09:11:48

谢谢分享。

zhongez · 发表于 2025-11-30 16:18:42

楼主提到的多线程的全局变量共享问题，可以这样处理，将全局变量保存在form1窗体中，比如典型的多柜台售票例子：
在form1 代码中添加
Private mTicketCount As Long '票数

Public Property Get TicketCount() As Long
TicketCount = mTicketCount
End Property

Public Property Let TicketCount(ByVal v As Long)
mTicketCount = v
Label1.Caption = CStr(mTicketCount) ‘显示剩余票数
End Property

===========================
这两行借用楼主中的代码：
Dim f As Form
Set f = ObjFromPtr(GetSetting(App.Title, "frmTest", "Ptr", "0"))
===========================
读票数
Ticketnum=f.TicketCount

写票数时，用 Windows API 创建一个互斥量，保证同一时间只有一个线程能进入修改逻辑
WaitForSingleObject(hMutex, INFINITE)
f.TicketCount=f.TicketCount-1 '售出一张票
ReleaseMutex hMutex

账号		自动登录	找回密码
密码			立即注册→加入我们