在vb.net中运用多线程实现远程数据收集[图](4)

'New 出一个委托并指定委托方法

　　　　　　　　　　　　　　　　　　　　　　 Me.Invoke(dh2, New Object() {workerThreads.ToString})　 '调用invoke方法

　　　　　　　　　　　　　　　　　　　 End If

　　　　　　　　　　　　　　　　　　　　　　 Thread.Sleep(20) '如果不阻止，则CPU利用率将为100%

　　　　　　　　　　　　　　　　　　　 End If

　　　　　　　　　　　　　　　 Next

　　　　　　　　　　　　 Catch ex As System.ArgumentOutOfRangeException

　　　　　　　　　　　　 Catch ex As System.InvalidOperationException

　　　　　　　　　　　　 Catch ex As ObjectDisposedException 'TcpClient 已关闭

　　　　　　　　　　　 　Catch ex As SocketException

　　　　　　　　　　　 　Catch ex As ThreadAbortException

　　　　　　　　　　　 　Catch ex As System.IO.IOException　　　　　　　　　　　　　　

　　　　　　　　　　　 　Catch ex As System.AccessViolationException

　　　　　　　　　　 　　Finally

　　　　　　　　　　　 End Try

　　　　　　　 End While

End Sub

　　数据处理线程

　　 这部份线程每个都由线程池来调度运行。由于要接收线程参数，因此，线程本身被封装到一个类中，限于篇幅的原因，只描述类的结构。

Public Class ReadBuffClass

　　　 Private sck As TcpClient

　　　 Private ns As NetworkStream

　　　 Private sqlcnn As SqlConnection

　　　 Private delg As frmServerMain.DelegateHandler1

　　　 Dim sqlcmd As SqlCommand

Dim sqlda As SqlDataAdapter