VB.NET的幾種延時(shí)方法

Imports System.Threading

成都創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作與策劃設(shè)計(jì),萊蕪網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)10余年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:萊蕪等地區(qū)。萊蕪做網(wǎng)站價(jià)格咨詢:13518219792

Thread.Sleep(1000)’延遲1秒

2.PauseWait(1000)’延遲1秒

Public Sub PauseWait(ByVal HowLong As Long)

Dim tick As Long

tick = My.Computer.Clock.TickCount

Do

My.Application.DoEvents()

Loop Until tick + HowLong My.Computer.Clock.TickCount

End Sub

VB.NET 計(jì)時(shí)器的問題

不對(duì)。步驟如下：

添加一個(gè)label標(biāo)簽名字label1 用來顯示時(shí)間

再添加一個(gè)timer控件 名字timer1 interval屬性=1000 用來計(jì)時(shí)

窗體添加代碼

Dim t As Date '用來記錄時(shí)間

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles Timer1.Tick

t = t.AddSeconds(1)

Label1.Text = "登錄時(shí)間:" t.TimeOfDay.ToString

End Sub

如何正確理解VB.NET延時(shí)函數(shù)

第一個(gè)for完成對(duì)delay_time參數(shù)的控制，即共循環(huán)多少次內(nèi)部循環(huán)

第二個(gè)for（內(nèi)部循環(huán)），完成對(duì)j從0到199的控制，共循環(huán)200次。

翻譯成匯編就是：

(R0為傳遞參數(shù))

DELAY:

MOV R1,#200

DJNZ R1,$

DJNZ R0,DELAY

RET

VB.NET有延時(shí)也會(huì)被卡死

Threading.Thread.Sleep(500)這句是線程停止等待的，在這500毫秒的時(shí)間里你的任何動(dòng)作都是不響應(yīng)的，理論上再SendKeys.Send(TextBox2.Text)這段時(shí)間內(nèi)你可以動(dòng)作，但是send是毫秒級(jí)完成的，你還沒有來得及響應(yīng)就進(jìn)入了下一次的循環(huán)，所以跟卡死類似

解決方法：通過timer定時(shí)器延時(shí)

VB.net窗體程序的time控件，可以識(shí)別到的最小時(shí)間差是多少納秒 ?

VB有現(xiàn)成的函數(shù)：

DateDiff(格式,日期1,日期2)

如今天到2010-5-1 8:00:00的時(shí)間差，代碼：

DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '還有幾(整)年

DateDiff("q",Now,#2010-5-1 8:00:00#) '還有幾(整)季度

DateDiff("m",Now,#2010-5-1 8:00:00#) '還有幾(整)月

DateDiff("d",Now,#2010-5-1 8:00:00#) '還有幾(整)天

DateDiff("ww",Now,#2010-5-1 8:00:00#) '還有幾(整)周

DateDiff("h",Now,#2010-5-1 8:00:00#) '還有幾(整)小時(shí)

DateDiff("n",Now,#2010-5-1 8:00:00#) '還有幾(整)分鐘

DateDiff("s",Now,#2010-5-1 8:00:00#) '還有幾(整)秒