你必須用多線程。因為你當前的線程正在執(zhí)行查詢語句,所以界面不會刷新,你也不會看到任何等待窗口。
創(chuàng)新互聯(lián)公司成立與2013年,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務公司,擁有項目做網(wǎng)站、成都網(wǎng)站設(shè)計網(wǎng)站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元東河做網(wǎng)站,已為上家服務,為東河各地企業(yè)和個人服務,聯(lián)系電話:028-86922220
送你一個延遲函數(shù)單位毫秒
Public Sub delay(ByRef Interval As Double)
On Error Resume Next
Dim time As DateTime = DateTime.Now
Dim Span As Double = Interval * 10000000 '因為時間是以100納秒為單位。
While ((DateTime.Now.Ticks - time.Ticks) Span)
Application.DoEvents()
End While
End Sub
如果需要等待T2線程結(jié)束,那又何必開啟這個線程!!
直接:
Label1.Visible = True
setB()
MsgBox("d")
這不就是執(zhí)行完setB(),再執(zhí)行MsgBox("d"),多線程是多余的。
多線程的作用大多數(shù)也就用來同時執(zhí)行多任務而不用等待的。
@echooffechohellonulping127.1/10echoworldpause::輸出hello,延遲10秒后,輸出world。::將/10,改為/100就延遲100秒。舉一反三,你懂得……