建立委托。 Me.Invoke——同步委托 或者 Me.BeginInvoke——異步委托 例:Me.Invoke(Sub Textbox.Text="這是一個示例" End Sub)
站在用戶的角度思考問題,與客戶深入溝通,找到定遠網(wǎng)站設(shè)計與定遠網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:做網(wǎng)站、網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、域名與空間、網(wǎng)站空間、企業(yè)郵箱。業(yè)務(wù)覆蓋定遠地區(qū)。
最簡單的方法是
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False'加入這句代碼就可以在別的線程訪問窗體控件了
End Sub
建議你使用BackGroundWorker控件。將代碼寫入控件的事件中,使用它的Start方法就可以開始工作了。是與主程序同時進行的。
用 Control.Invoke 方法
比如
label1.Invoke(delegate(){ label1.Text = "New Text"; });
不可以,但是能夠在主線程的基礎(chǔ)上調(diào)用委托(Invoke)。(主線程會被占用)
例子:
Dim thr As Threading.Thread
Public Delegate Sub VoidDelegate()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
thr = New Threading.Thread(AddressOf Where)
thr.Start()
End Sub
Public Sub Where()
Me.BeginInvoke(New VoidDelegate(AddressOf WhereThr))
End Sub
Public Sub WhereThr()
Me.TextBox.text="0123456789"
End Sub
(Invoke)這種情況下,主線程被占用,所有由主線程執(zhí)行程序,都將被(wherethr函數(shù)執(zhí)行結(jié)束)后執(zhí)行。
Timer 是在 主線程里執(zhí)行的,Thread 是在自己的線程中執(zhí)行的,多核心的CPU使用線程能提高處理能力?;氐侥愕膯栴},主線程如果卡死,timer就會失去響應(yīng),很正常的。請使用System.Timers.Timer類吧。請參考一下: