vb多线程有什么作用（VB.NET中的多线程和委托是什么关系 能不能给我一个通俗易懂的范例,谢谢）

本文目录

• VB.NET中的多线程和委托是什么关系 能不能给我一个通俗易懂的范例,谢谢
• vb中的timer\多线程有关问题
• VB 怎么使用单线程或者多线程
• 什么是线程，线程和进程有什么区别怎样在VB6.0中使用多线程
• 关于VB.net Timer控件与多线程问题
• 什么是多线程技术在VB 中如何使用

VB.NET中的多线程和委托是什么关系 能不能给我一个通俗易懂的范例,谢谢

委托，Delegate
就是让你处于这个线程里时，委托另一个线程去执行一些动作
我简单举一个写richtextbox的例子：
////////////////////////////////////////////
’创建一个名为 MySubDelegate 的委托。
Delegate Sub MySubDelegate(ByVal txt As String)
’写信息到富文本主窗口
Private Sub txtW(ByVal txt As String)
Dim msgd As New MySubDelegate(AddressOf Me.txtW1)
Dim arg(0) As Object
arg(0) = txt
Me.Invoke(msgd, arg)
End Sub
’委托指向
Private Sub txtW1(ByVal txt As String)
Me.RichTextBox1.AppendText(txt)
End Sub
/////////////////////
这样，你在多线程应用时，在其他线程里用txtW(str)来写richtextbox，就不会产生错误了。不然，直接垮线程写richtextbox，可能会出现和UI线程的冲突。

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

我认为你有几点误区：
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的组件不都是线程安全的，当多线程访问不是线程安全的组件，那么会
’产生严重错误。

VB 怎么使用单线程或者多线程

VB虽然支持多线程，但是VB没有提供对多线程的同步机制。
如果你了解多线程的话，应该知道线程间如果没有同步机制的话，很容易崩溃的，而且MICROSOFT已经公布了VB不在多线程上进行升级了，也就是说Microsoft在退出VB.net以后已经不可能再理会VB了，所以说，如果你真的需要使用多线程的话，强烈建议你换DELPHI或者VC
千万不要再尝试用VB做多线程了，只会浪费时间，而且VB操作内存是间接读写，非常慢，所以如果你要写对效率要求高的软件就不要用VB了。

什么是线程，线程和进程有什么区别怎样在VB6.0中使用多线程

进程和线程都是由操作系统所体现的程序运行的基本单元，系统利用该基本单元实现系统对应用的并发性。
进程和线程的区别在于：
简而言之,一个程序至少有一个进程,一个进程至少有一个线程.
线程的划分尺度小于进程，使得多线程程序的并发性高。
另外，进程在执行过程中拥有独立的内存单元，而多个线程共享内存，从而极大地提高了程序的运行效率。
线程在执行过程中与进程还是有区别的。每个独立的线程有一个程序运行的入口、顺序执行序列和程序的出 口。但是线程不能够独立执行，必须依存在应用程序中，由应用程序提供多个线程执行控制。
从逻辑角度来看，多线程的意义在于一个应用程序中，有多个执行部分可以同时执行。但操作系统并没有将多个线程看做多个独立的应用，来实现进程的调度和管理以及资源分配。这就是进程和线程的重要区别。
进程是具有一定独立功能的程序关于某个数据集合上的一次运行活动,进程是系统进行资源分配和调度的一个独立单位. 线程是进程的一个实体,是CPU调度和分派的基本单位,它是比进程更小的能独立运行的基本单位.线程自己基本上不拥有系统资源,只拥有一点在运行中必不可少的资源(如程序计数器,一组寄存器和栈),但是它可与同属一个进程的其他的线程共享进程所拥有的全部资源.
一个线程可以创建和撤销另一个线程;同一个进程中的多个线程之间可以并发执行.
新建一Module
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Sub main()
Load Form1
Form1.Show
End Sub
Public Sub c1()
.......
End Sub
Public Sub c2()
......
End Sub
新建一窗体
Private hthread1 As Long
Private hthread2 As Long
Private ithread1 As Long
Private ithread2 As Long
Private Sub Command1_Click()
ithread1 = CreateThread(ByVal 0&, ByVal 0&, AddressOf c1, ByVal 0&, ByVal 0&, hthread1) --创建线程一
ithread2 = CreateThread(ByVal 0&, ByVal 0&, AddressOf c1, ByVal 0&, ByVal 0&, hthread1) --创建线程二
CloseHandle ithread1 --关闭线程一
CloseHandle ithread2 --关闭线程二
End Sub
Private Sub Form_Load()
End Sub

关于VB.net Timer控件与多线程问题

Timer 是在 主线程里执行的，Thread 是在自己的线程中执行的，多核心的CPU使用线程能提高处理能力。回到你的问题，主线程如果卡死，timer就会失去响应，很正常的。请使用System.Timers.Timer类吧。请参考一下：
***隐藏网址***

什么是多线程技术在VB 中如何使用

vb6可以实现多线程,不过比较麻烦,vb.net完全支持多线程,请参见msdn.
至于vb6实现多线程请看CreateThread这个API函数.以下有详细方案:
用VB写多线程程序用到的第一个API函数是CreateThread，这个函数的声明如下：
Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long)As Long
这个函数的返回值是线程的句柄，它的参数含义如下：
1.lpThreadAttributes：这个参数表明函数的返回句柄是否可被子进程继承，如果可被继承，则指向一个SECURITY_ATTRIBUTES的结构，否则设为vbnull。
2.dwStackSize：这个参数设置线程的堆栈大小。
3.lpStartAddress：这个参数指明这个线程函数的起始地址。
4.lpParameter：这个参数是传给线程函数的参数。
5.dwCreationFlags：这个参数设置当线程创建时的初始状态，挂起，运行等等。
6.lpThreadId：这个参数是待创建线程的ID号。
假设创建一个管理线程的类clsThreads，用类的一个公用函数Initialize来初始化线程，用ResumeThread和SuspendThread函数来激活线程，实现代码如下：
Private Type udtThread
Handle As Long
Enabled As Boolean
End Type
Private uThread As udtThread
Private Const CREATE_SUSPENDED As Long = &H4
Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long
Private Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Public Sub Initialize(ByVal lpfnBasFunc As Long) ’初始化线程
Dim lStackSize As Long, lCreationFlags As Long, lpThreadId As Long, lNull As Long
On Error Resume Next
lNull = 0 ’创建一个空指针
lStackSize = 0 ’0表示用exe的stack size
lCreationFlags = CREATE_SUSPENDED ’表示初始化后先不激活，让别人来激活
uThread.Handle = CreateThread(lNull, lStackSize, lpfnBasFunc, lNull, lCreationFlags, lpThreadId)
If uThread.Handle = lNull Then MsgBox "Create thread failed!"
End Sub
Public Property Get Enabled() As Boolean
On Error Resume Next
Enabled = uThread.Enabled
End Property
Public Property Let Enabled(ByVal vNewValue As Boolean)
On Error Resume Next
If vNewValue And (Not uThread.Enabled) Then
ResumeThread uThread.Handle ’激活线程
uThread.Enabled = True
ElseIf uThread.Enabled Then
SuspendThread uThread.Handle
uThread.Enabled = False
End If
End Property
Private Sub Class_Terminate() ’终止线程
On Error Resume Next
Call TerminateThread(uThread.Handle, 0)
End Sub
以上内容在类模块clsThreads中，有了它就可以在窗体中实现多线程了。下面以一个简单的例子来说明如何创建多线程(以2个线程为例)。
在form1中添加picture1和picture2两个图片框，以及一个command1按钮，在工程中添加一个bas模块，该模块的代码如下：
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub FlickerTop()
Static BgColor As Long
Dim lTick As Long, lCounter As Long
On Error Resume Next
For lCounter = 0 To 60000
BgColor = lCounter Mod 256
Form1.Picture1.BackColor = RGB(BgColor, 0, 0) ’变化图片框的颜色
lTick = GetTickCount
While GetTickCount - lTick 《 10 ’延迟10个毫秒时间
Wend
Next
End Sub
Public Sub FlickerBottom()
Static BgColor As Long
Dim lTick As Long, lCounter As Long
On Error Resume Next
For lCounter = 0 To 60000
BgColor = lCounter Mod 256
Form1.Picture2.BackColor = RGB(0, BgColor, 0)
lTick = GetTickCount
While GetTickCount - lTick 《 10
Wend
Next
End Sub
最后在form1中用下面的代码来创建两个线程，
Option Explicit
Public myThreadTop As New clsThreads, myThreadBottom As New clsThreads
Private Sub Command1_Click()
On Error Resume Next
With myThreadTop
.Initialize AddressOf FlickerTop
.Enabled = True
End With
With myThreadBottom
.Initialize AddressOf FlickerBottom
.Enabled = True
End With
MsgBox "看看会有什么..."
Set myThreadTop = Nothing
Set myThreadBottom = Nothing
End Sub