vb 怎么实现多线程

Posted 2023-05-02

很简单，调用API函数CreateThread
但是用vb做多线程的关键不在于创建，而是在于线程的不稳定，其不稳定是由于vb6自身的控件（如按钮、文本框等）不是线程安全的，怎么用你程序就可能怎么挂，所以这些个玩样儿在多线程中统统不能用。
那么UI的实现也得用API实现。这样vb的多线程才相对要稳定。但是vb的可视化开发的优势又荡然无存。 参考技术A Vb.net简单，vb得用API实现而且相当麻烦和不稳定 。不稳定是vb6自身控件不是线程安全的，所以多线程统统不能用。所以界面不能用控件而得用API实现，这样vb多线程才稳定，但是那样可视化开发的优势全无。
建议用Vb.net线程简单，只要
Dim aaa As New Thread (线程函数代码名称)
aaa.Start 即可启动线程了本回答被提问者采纳 参考技术B vb搞多线程 尿分叉了 有毛病 参考技术C 不建议VB6搞多线程。

vb中的timer\多线程有关问题

1 我想实现一个interval尽量短的timer,可是据说timer真正的最短间隔为
55ms. 那么程序中能实现的最短间隔的"时钟"是什么?
据说timeSetEvent可以1ms,但它是多媒体编程的内容,怕不方便
2 如果使用多线程的话,能不能做到:
1\完全同步?(我指的是两个线程都有2类工作,同步指的是它们同时执行第一类或第二类,希望能做到非常精确)
2\比timer的55ms更短的间隔?
3\像timer一样反复使用?直到我让它停止?
4\使用vb中的frm?控件?变量?

不太熟悉这个,麻烦高手解释,希望能给出范例!
自己已经解决了大部分问题我再提几个
1\一般我写的vb程序，cpu占用很小，内存也不多，怎样做会提高这些数值让我的程序使用更多的系统资源，或者说，系统分配给vb生成的应用程序的资源依据是什么，我想用多占用系统资源来提高我的运行速度。
2\一般1ms的时间内，能运行多少代码，就以*/运算为例
3\多线程同步如何做到，那么异步（他们精确的交替运行）。

我认为你有几点误区：
1；一个程序并不是占用系统资源越多，就运行得越快。程序要实现同一项功能，你的代码让CPU的工作量越少，系统资源占用越小，说明你的代码效率越高，程序运行速度越快。另外，CPU当前执行的线程越少，它就会有更多的资源为你需要的程序服务，因此你的程序速度也会提高。

2：1 ms 内运行多少代码？ 这样说也不完全对。 CPU执行的是代码编译成的机器指令。它只认识 1 和 0 ，我们讲的CPU主频和CPU的运算速度是有一定关系的。工作在100MHz主频的CPU执行一条运算指令所需时间仅为10ns。再者，线程的优先级也会对运行速度有一定影响，但感觉不是很明显。

3:关于VB多线程的实现，给你一个网上不错的实例。
'请将该部分数据保存为 FORM1.frm 文件
VERSION 5.00
Begin VB.Form Form1
Caption = "多线程"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 6450
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 6450
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Height = 270
Left = 960
TabIndex = 2
Text = "2"
Top = 2760
Width = 2415
End
Begin VB.CommandButton Command2
Caption = "返回"
Height = 255
Left = 3480
TabIndex = 1
Top = 2760
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "Start Count"
Height = 255
Left = 3480
TabIndex = 0
Top = 240
Width = 1455
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "主线程执行结果测试:"
Height = 180
Left = 600
TabIndex = 3
Top = 2400
Width = 1710
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
'声明了线程ID
Dim threadid1 As Long
Dim threadid2 As Long

'参数一，lpThreadAttributes 线程安全属性，传递为NULL
'参数二，dwStackSize ，线程堆栈大小，可以为0，表示堆栈和此应用堆栈相同
'参数三，lpstartAddress ，执行函数地址，用AddressOf 获取
'参数四，lpParameter ，执行函数的参数地址，可以是一个记录或者是别的类型，用VarPtr获取参数地址（varptr为未公开函数）！！
'参数五，dwCreationFlags ，表示线程创建后的状态！，0表示立即运行，create_SUSPENDED表示线程挂起
'参数六，lpThreadID 表示分配给线程的线程号
Call CreateThread(Null, ByVal O&, AddressOf Module1.OutText1, VarPtr(0), ByVal 0&, threadid1)
Call CreateThread(Null, ByVal 0&, AddressOf Module1.OutText2, VarPtr(0), ByVal 0&, threadid2)

End Sub

Private Sub Command2_Click()
'该事件运行于主线程！
Dim i As Long
i = CLng(Text1.Text)
Text1.Text = CStr(i * i) '不要点击次数太多，LONG 类型会溢出
End Sub

Private Sub Form_Load()
'保存窗体句柄全局变量，用于在form 上绘图
formhandle = Form1.hwnd
End Sub
----------------------------------
'请将该部分数据保存为 Module1.bas 文件
Attribute VB_Name = "Module1"

'线程安全属性数据结构；
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

'这个是用于多线程访问临界资源同步Api的数据结构
Public Type CRITICAL_SECTION
dummy As Long
End Type
'为什么用GDI 函数绘图？原因等下再讲
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
'请注意；createThread APi声明已被我修改过，修改的地方请自行参照APIView复制的内容
Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
'这个是sleep,作用就是让两个线程绘图频率不一致，效果才明显。
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Sub EnterCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION) '进入临界区
Public Declare Sub LeaveCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION) '离开临界区

'几个重要的函数举例
'ObjPtr：返回对象实例私有域的地址。
'StrPtr：返回字符串第一个字的地址。
'VarPtr：返回变量的地址。

'全局的form的句柄！
Public formhandle As Long
'临界数据结构
Public sect As CRITICAL_SECTION

Sub OutText1() '过程一
Dim i As Long
Dim dc As Long
Dim s As String
dc = GetDC(formhandle) '获取窗体句柄的DC
For i = 1 To 100000
s = CStr(i)
Call SetBkColor(dc, &HF0F0F0) '设置绘制区域的背景色，也起清除作用
Call TextOut(dc, 10, 10, s, Len(s)) '输出文本！
Call Sleep(40) '等待
Next
Call ReleaseDC(formhandle, dc) '释放资源！
' Call EnterCriticalSection(sect)
' 上下表示该处为临界区，如果要对工程全局变量做操作，最好在该区域内
' 否则线程同步过程中，非常容易让程序崩溃
' Call LeaveCriticalSection(sect)
End Sub

Sub OutText2() '和过程一类似
Dim i As Long
Dim dc As Long
Dim s As String
dc = GetDC(formhandle)
For i = 1 To 100000
s = CStr(i)
Call SetBkColor(dc, &HF0F0F0)
Call TextOut(dc, 10, 80, s, Len(s)) '文本位置改变了
Call Sleep(20) '延时改变了
Next
Call ReleaseDC(formhandle, dc)
' Call EnterCriticalSection(sect)
' Call LeaveCriticalSection(sect)
End Sub

'关于为何使用gdi 函数输出文本，这是一个很重要的内容；
'程序在记数时用了难用的TextOut 函数，而没有使用标签控件，这是因为
'vb的组件不都是线程安全的，当多线程访问不是线程安全的组件，那么会
'产生严重错误。 参考技术A Timer 控制中 intelval 属性是以 ms 为单位的。

如果 intelval = 1 的话，

Sub Timer1_Timer()
End Sub

中的内容就会每 1ms 执行一次。
当然了，那个 Timer 过程的执行本身也要花费时间。

据说 Timer 真正最短的时间间隔为 55ms。小弟我也是第一次听说。

还有，你要 Timer 的目的是什么呢？
不同的目的，有不同的优化方式。

就算 Timer 达不到你的要求，也还有别的方法可以实现啊。
条条大路通罗马。

祝楼主早日成功。 参考技术B timer控件不是不能短于55MS的间隔，而是小于55MS就非常不准了，实际上超过55MS也有不准的，如果象调用高精度的时间事件，可以到网上找一个高精度时间控件，我记得有的，但忘了地址了，楼主可以自己找一下！或者可以用VB中的类来做,做一个窗体级的自定义事件，不过不是很稳定！ 参考技术C TIMER本身就不是个准确的时间管理者