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

sqchzm328203 发表于 2026-1-4 17:16:21

VB6还是很久以前用的，之后用一段时间C#，现在没时间编程玩了，感觉还是VB能简单快速解决问题。多线程刚好我现在需要用，就来学习一下，以后基本不需要用现在的乱七八糟的语言了。
页: 1 2 [3]
查看完整版本: 【VB6】多线程讨论终结贴：使用ActiveX-EXE实现完美的多线程