学习一下!
來學習了~謝謝分享
这个一定要学习一下
我来学习学习，我现在需要的就是多线程啊
学习一下!
学习学习，感谢
看一下完整DEMO
see see
这个一定要学习一下
都是苦逼的人啊
谢谢分享。
楼主提到的多线程的全局变量共享问题，可以这样处理，将全局变量保存在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
VB6还是很久以前用的，之后用一段时间C#，现在没时间编程玩了，感觉还是VB能简单快速解决问题。多线程刚好我现在需要用，就来学习一下，以后基本不需要用现在的乱七八糟的语言了。
太多东西可以学些了，谢谢。
谢谢楼主分享
感谢
好分享
楼主狭隘了，我自研的 AXDLL 多线程 是很稳定的（PASSOK's MultiThread Engine），只差一步就完美了。那一步就是 退出程序时会崩。我指的是 IDE 下。EXE 下 没任何问题，稳如狗的。
当然，我也不否定 AXEXE多线程的稳定性，起码 它在IDE里跑的是单线程 的确稳如狗嘛。
zhongez 发表于 2025-11-30 16:18
楼主提到的多线程的全局变量共享问题，可以这样处理，将全局变量保存在form1窗体中，比如典型的多柜台售票 ...
你在想啥？你以为Form1就不是线程局部变量了吗？每个线程都是各自独立的Form1实例啊。
下来看看，多谢分享。