一个进程的多线程 vb.net
Multi threading for one process vb.net
我刚刚在 VB.net 学习了一些多线程的基础知识,因为我需要为一个进程多线程
我的代码是:
Private Sub btnLoadNow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim T1 As New Thread(AddressOf myprocess)
T1.Start()
Dim T2 As New Thread(AddressOf myprocess)
T2.Start()
Dim T3 As New Thread(AddressOf myprocess)
T3.Start()
Dim T4 As New Thread(AddressOf myprocess)
T4.Start()
Dim T5 As New Thread(AddressOf myprocess)
T5.Start()
End Sub
Private Sub myprocess()
'my Process Codes
End Sub
但是这段代码有错误我该怎么办?
您没有定义 AutoLoad。
Dim T1 As New Thread(AddressOf AutoLoad)
只需替换 AutoLoad ---> myprocess
Dim T1 As New Thread(AddressOf myprocess)
AND
Private Sub myprocess()
'my Process Codes
Next
Sub 必须以 End Sub 结束
Private Sub myprocess()
'my Process Codes
End Sub
此代码有效
Imports System.Threading
Module Module1
Sub Main()
Dim T1, T2, T3, T4 As Thread
T1 = New Thread(AddressOf myprocess)
T2 = New Thread(AddressOf myprocess)
T3 = New Thread(AddressOf myprocess)
T4 = New Thread(AddressOf myprocess)
T1.Start()
T2.Start()
T3.Start()
T4.Start()
End Sub
Private Sub myprocess()
'some code
End Sub
End Module
我刚刚在 VB.net 学习了一些多线程的基础知识,因为我需要为一个进程多线程 我的代码是:
Private Sub btnLoadNow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim T1 As New Thread(AddressOf myprocess)
T1.Start()
Dim T2 As New Thread(AddressOf myprocess)
T2.Start()
Dim T3 As New Thread(AddressOf myprocess)
T3.Start()
Dim T4 As New Thread(AddressOf myprocess)
T4.Start()
Dim T5 As New Thread(AddressOf myprocess)
T5.Start()
End Sub
Private Sub myprocess()
'my Process Codes
End Sub
但是这段代码有错误我该怎么办?
您没有定义 AutoLoad。
Dim T1 As New Thread(AddressOf AutoLoad)
只需替换 AutoLoad ---> myprocess
Dim T1 As New Thread(AddressOf myprocess)
AND
Private Sub myprocess()
'my Process Codes
Next
Sub 必须以 End Sub 结束
Private Sub myprocess()
'my Process Codes
End Sub
此代码有效
Imports System.Threading
Module Module1
Sub Main()
Dim T1, T2, T3, T4 As Thread
T1 = New Thread(AddressOf myprocess)
T2 = New Thread(AddressOf myprocess)
T3 = New Thread(AddressOf myprocess)
T4 = New Thread(AddressOf myprocess)
T1.Start()
T2.Start()
T3.Start()
T4.Start()
End Sub
Private Sub myprocess()
'some code
End Sub
End Module