Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a, b As Threading.Thread
a = New Threading.Thread(AddressOf abc)
a.Start()
b = New Threading.Thread(AddressOf abc)
b.Start()
End Sub
Sub abc(ByVal a)
MsgBox(a)
End Sub
请问这是多线程吗?
请问如何让 a线程 msgbox 1
请问如何让 b线程 msgbox 2
------解决思路----------------------
不能委托内写入参数,只能写入a.Start("欢迎!")方法内。
另外,完全调用UI线程控件必须使用Invoke
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a, b As Threading.Thread
a = New Threading.Thread(AddressOf abc)
a.Start("欢迎!")
b = New Threading.Thread(AddressOf abc)
b.Start("信仰")
End Sub
Sub abc(ByVal a)
Me.Invoke(Sub() MsgBox(a))
End Sub
End Class