在你給textbox設(shè)置text值后直接使用sleep(),因為在使用sleep()的時候,當前的主進程是被掛起了,也就是說設(shè)置的text屬性后,還來不及在屏幕上顯示lbi的內(nèi)容就執(zhí)行了sleep,所以在執(zhí)行sleep()掛起主進程前,你必須讓textbox的內(nèi)容先顯示出來再執(zhí)行sleep,可嘗試使用下DoEvents()將控制權(quán)暫時移交一下,讓系統(tǒng)有時機來刷新textbox里面的內(nèi)容,讓系統(tǒng)有機會來刷新textbox里面的內(nèi)容。由于我沒有安裝visual studio的開發(fā)環(huán)境,無法調(diào)試代碼的正確性,但我記得我以前也遇到此類問題,采取的DoEvents()的方式。你可嘗試下。
創(chuàng)新互聯(lián)建站專注于廣漢網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供廣漢營銷型網(wǎng)站建設(shè),廣漢網(wǎng)站制作、廣漢網(wǎng)頁設(shè)計、廣漢網(wǎng)站官網(wǎng)定制、小程序開發(fā)服務(wù),打造廣漢網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供廣漢網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
lbl.Visible = True
Sleep(5000)
lbl.Text = "我是中國人"
lbi.Refresh '刷新一下lbi,具體你可以調(diào)試下,看需要不需要這條
Application.DoEvents() ‘設(shè)置完lbi的text屬性,將操作權(quán)限釋放一下,讓系統(tǒng)有機會顯示lbi的內(nèi)容。
Sleep(3000) ’待顯示后,再執(zhí)行掛起
lbl.Text = "我愛自己的祖國"
lbi.Refresh ‘同上
Application.DoEvents() ’同上
DoEvents()的功能解釋是:轉(zhuǎn)讓控制權(quán),以便讓操作系統(tǒng)處理其它的事件。
如執(zhí)行一次不行,可嘗試重復(fù)多執(zhí)行幾次,特別在循環(huán)語句中,對于窗口的刷新顯示DoEvents特別有用,但是在循環(huán)體內(nèi)使用了DoEvents后,當前進程的執(zhí)行效率會有大幅降低,因為移交控制權(quán)必然損失當前進程的運行效率。
用
t.Suspend() 這個是掛起線程。是一個異步方法。
t.Sleep 我看了是一個同步方法。要等這個方法運行完了才繼續(xù)下一步。
這和from.show和 from.showdiaglog區(qū)別差不多!
至于疑問2我也沒找到原因。
使用api
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
For?s?=?1?To?11?Step?10
t1?=?New?Threading.Thread(AddressOf?setA)
t2?=?New?Threading.Thread(AddressOf?setB)
t3?=?New?Threading.Thread(AddressOf?setC)
t4?=?New?Threading.Thread(AddressOf?setD)
t5?=?New?Threading.Thread(AddressOf?setE)
t6?=?New?Threading.Thread(AddressOf?setF)
t7?=?New?Threading.Thread(AddressOf?setG)
t8?=?New?Threading.Thread(AddressOf?setH)
t9?=?New?Threading.Thread(AddressOf?setI)
t10?=?New?Threading.Thread(AddressOf?setJ)
錯誤》》》???t1.Start()
t2.Start()
t3.Start()
t4.Start()
t5.Start()
t6.Start()
t7.Start()
t8.Start()
t9.Start()
t10.Start()
Next
同樓上,每個Thread只能運行一次