16,554
社区成员
发帖
与我相关
我的任务
分享
Private Delegate Sub DelegateUI(str as string)
Private EventUI As New DelegateUI(AddressOf ShowData)
Dim T As Thread
'开始运行线程1()
T = New Thread(AddressOf ExecutCmdThread)
T.Start()
Private Sub ExecutCmdThread()
Me.Invoke(EventUI, "dkslajdfklsa")
End Sub
Private Sub ShowData(str as string)
....
End Sub