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

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

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

按當(dāng)前代碼修改，你把下面的代碼粘回去就可以了，窗體的高和寬達(dá)到最小時(shí)，循環(huán)會(huì)自己退出，避免無限循環(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 計(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 等待上個(gè)命令執(zhí)行完成,進(jìn)行下個(gè)命令

送你一個(gè)延遲函數(shù)單位毫秒

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

VB.net 如何設(shè)定準(zhǔn)確的1秒時(shí)間？

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

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

timer1.enabled=true

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

textbox1.backcolor=color.red

timer1.enabled=false