送你一個(gè)延遲函數(shù)單位毫秒
創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、城子河網(wǎng)絡(luò)推廣、小程序制作、城子河網(wǎng)絡(luò)營銷、城子河企業(yè)策劃、城子河品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等,從售前售中售后,我們都將竭誠為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供城子河建站搭建服務(wù),24小時(shí)服務(wù)熱線:18982081108,官方網(wǎng)址:muchs.cn
Public Sub delay(ByRef Interval As Double)
On Error Resume Next
Dim time As DateTime = DateTime.Now
Dim Span As Double = Interval * 10000000 '因?yàn)闀r(shí)間是以100納秒為單位。
While ((DateTime.Now.Ticks - time.Ticks) Span)
Application.DoEvents()
End While
End Sub
將你的想執(zhí)行的程序分割成2個(gè)過程,在執(zhí)行前過程后啟動(dòng)TIMER:
Timer1.Enabled = True
將判斷放TIMER控件的事件內(nèi),符合條件后,執(zhí)行后過程,并使Timer1.Enabled = False
Me.Cursor?=?System.Windows.Forms.Cursors.WaitCursor?'光標(biāo)變成漏斗狀
'加載耗時(shí)較長的函數(shù)
Me.Cursor?=?System.Windows.Forms.Cursors.Default?'光標(biāo)恢復(fù)正常
你必須用多線程。因?yàn)槟惝?dāng)前的線程正在執(zhí)行查詢語句,所以界面不會(huì)刷新,你也不會(huì)看到任何等待窗口。
詳細(xì)查看了你的問題,完全不需要使用線程sleep的方法。
在這邊,我要給你引入一個(gè)概念。就是Form窗體的兩個(gè)方法。
Form.Show()和Form.ShowDialog()
第一個(gè)Show方法運(yùn)行后,你的主程序還是會(huì)進(jìn)行,你的代碼還是會(huì)繼續(xù)進(jìn)行下去。此時(shí),窗體還是彈出的。
第二個(gè)ShowDialog方法運(yùn)行后,此時(shí),彈出的一個(gè)窗體,你不將其關(guān)閉,那么,主程序就會(huì)一直等待這個(gè)窗體關(guān)閉后,才執(zhí)行后面的代碼。
所以,你只需要使用showdialog這個(gè)方法,即可達(dá)到你想要的結(jié)果。
那么,如何才能讓彈出的窗體不改變呢?很簡單
你可以找到窗體的formcloseing事件,在這個(gè)事件中,有一個(gè)參數(shù):e
這個(gè)e有一個(gè)屬性,就是e.handle,表示是否處理過這個(gè)事件了。
這個(gè)時(shí)候,如果你不想讓窗體關(guān)閉,你可以寫:
e.handle=true,那么表示已經(jīng)處理過窗體關(guān)閉的事件了。
注:有些情況,可能是:e.cancel=true
本文標(biāo)題:vb.net的等待功能 vb 等待時(shí)間
網(wǎng)站URL:http://muchs.cn/article18/docsodp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供動(dòng)態(tài)網(wǎng)站、移動(dòng)網(wǎng)站建設(shè)、面包屑導(dǎo)航、商城網(wǎng)站、App設(shè)計(jì)、自適應(yīng)網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)