vb.net使用Sleep后有些代碼沒有執(zhí)行！

在VB.NET中，帶框架窗體的大小是不能為0的，要想做到高、寬都為0，需要自己重繪一個無邊框窗體，用外置圖片來繪制，配合PS做一些圖片，既可以換膚還能做的很漂亮。

創(chuàng)新互聯(lián)主營廣州網站建設的網絡公司,主營網站建設方案,成都APP應用開發(fā),廣州h5微信小程序開發(fā)搭建,廣州網站營銷推廣歡迎廣州等地區(qū)企業(yè)咨詢

按當前代碼修改，你把下面的代碼粘回去就可以了，窗體的高和寬達到最小時，循環(huán)會自己退出，避免無限循環(huán)；

Select?Case?2

Case?Is?=?1

Dim?w?As?Integer?=?Me.Width

Do

Me.Width?-=?5?:?w?-=?5

Threading.Thread.Sleep(3)

Loop?While?Me.Width?=?w

Case?Is?=?2

Dim?h?As?Integer?=?Me.Height

Do

Me.Height?-=?5?:?h?-=?5

Threading.Thread.Sleep(3)

Loop?While?Me.Height?=?h

Case?Is?=?3

Do

Me.Opacity?-=?0.05

Threading.Thread.Sleep(120)

Loop?Until?Me.Opacity?=?0

End?Select

VB.NET 計時器的問題

不對。步驟如下：

添加一個label標簽名字label1 用來顯示時間

再添加一個timer控件 名字timer1 interval屬性=1000 用來計時

窗體添加代碼

Dim t As Date '用來記錄時間

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

System.EventArgs) Handles Timer1.Tick

t = t.AddSeconds(1)

Label1.Text = "登錄時間:" t.TimeOfDay.ToString

End Sub

vb.net 等待上個命令執(zhí)行完成,進行下個命令

送你一個延遲函數單位毫秒

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

VB.net 如何設定準確的1秒時間？

form 的load事件中加一句：timer1.interval=1000

在一個按鈕里面加入一句觸發(fā)timer事件開始計時的代碼：

timer1.enabled=true

timer的tick事件中加入這么兩句：

textbox1.backcolor=color.red

timer1.enabled=false

文章名稱：關于vb.net延時功能的信息
瀏覽路徑：http://chinadenli.net/article28/hgpsjp.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供Google、網頁設計公司、云服務器、外貿建站、靜態(tài)網站、軟件開發(fā)

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)