第一步：什么是多线程？如果一个窗体里创建一个线程，他就是一个多线程，是两个线程的多线程，窗体显示及控件的管理本身就有一个线程控件，叫UI线程(自己理解应该是用户界面的线程吧!!呵呵)，是主线程，而创建的线程则是子线程。那么什么是Socket呢？Socket就是套接字，通过Socket，有可以作为Server端的Socket，也有作为Client端的Socket，服务端开启一个子线程来监听客户端发来的所有信息，并可以发送回信息，实现数据双向通信。聊天软件很多都是基于Socket的编写出来的。好了，什么是委托技术呢？简单的说是就有一个人，他没有能力完成想要做的事，出钱委让给别人去完成，像某某公司经理要求你开发个竞赛软件，他本身没有能力去完成这样的事，所以出钱让你去完成。好了，明白了是什么后，接下来写下一些代码吧!!!!!
第二步：多线程例子
VB中多线程可以传值
Dim
th
as
System.Threading.Thread
th
=
New
System.Threading.Thread(
Addressof
对象名(或类名).方法)
对象名(或是类名).属性
=
值
'
通过这样可以实现线程传参
.......
th.start()
也可以返回值(通过委托技术实现)，在做竞赛软件时，遇到一个问题，当在子线程里面去New 一个Form或是控件时，都会使窗体出现假死，于是在网上找了一些资料及查MSDN后才知道，原来子线程是没有能力去操控UI线程的控件，这里只能用委托技术，--------------------------这个是很好的一个说明==========呵呵=========
Dim th
as
System.Threading.Thread
th
=
New System.Threading.Thread(Addressof 方法名1)
th.start()
Delegate Sub DelegateHandler(ByVal 参数
as
String)
'
声明一个委托
private
Sub 方法名1()
dim dh
as
DelegateHandler
=
New DelegateHandler(AddressOf 方法名2)
me.invoke(dh,
new
Object()
{"value"}
)
End Sub
private
Sub 方法名2(ByVal str
as
String)
'
被委托给的方法 ,处理委托后的数据
End Sub
第三步：Socket技术例子
(1)服务器端
Socket是基于线程而创建的，在UI线程下创建子线程，线程方法中用一个死循环在监听客户端的信息，第收到一信息后，委托给UI线程方法去处理。示例代码：
'
声明一个线程
Dim
t
As
System.Threading.Thread
t
=
New
Thread(
AddressOf
WaitData)
t.Start()
Dim
s
As
Socket
Public
Sub WaitData()
s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim localEndPoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 1024)
s.Bind(localEndPoint)
s.Listen(100)
Me.dealData(s)
End Sub
Private
Sub DealData(ByRef sock As Socket)
While (True)
Dim bytes As Byte() = New Byte(1024) {}
Dim ss As Socket = s.Accept()
i = ss.Receive(bytes)
Dim valstr As String = Encoding.Default.GetString(bytes, 0, i)
'处理接收到的数据
'见第二步线程与委托技术
'发送回数据
ss.Send(Encoding.Default.GetBytes("已收到!!Love you")) '发回数据
End While
End Sub
(2) 客户端
只要求连接到服务器端，然后就Send数据，同时可以Receive数据。示例代码如下：
Try
Dim
bytes
As
Byte
()
=
New
Byte
(
1024
) {}
s
=
New
Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim
localEndPoint
As
New
IPEndPoint(IPAddress.Parse(
"
127.0.0.1
"
),
1024
)
s.Connect(localEndPoint)
s.Send(Encoding.Default.GetBytes(
"
要发送的数据
"
))
s.Receive(bytes)
'
处理接收到的数据
Catch
ex
As
Exception
Finally
s.Close()
End
Try
第三步：委托技术
其实就几步，声明委托、New一个委托并指定委托方法、调用invoke()方法，可以参考第一步。示例代码：
Delegate
Sub DelegateHandler(ByVal str As String) '声明一个委托
Dim dh As DelegateHandler = New DelegateHandler(AddressOf 方法名) 'New 出一个委托并指定委托方法
Me.invoke(dh, New Object(){"传递的参数"}) '调用invoke方法
Private Sub 方法名(ByVal str As String)
'处理委托的数据str
End Sub
转自：http://www.bccn.net/Article/net/vbnet/jszl/200709/6478.html