关于vb.net延时功能的信息

vb.net使用Sleep后有些代码没有执行！

在VB.NET中，带框架窗体的大小是不能为0的，要想做到高、宽都为0，需要自己重绘一个无边框窗体，用外置图片来绘制，配合PS做一些图片，既可以换肤还能做的很漂亮。

创新互联主营广州网站建设的网络公司,主营网站建设方案,成都APP应用开发,广州h5微信小程序开发搭建,广州网站营销推广欢迎广州等地区企业咨询

按当前代码修改，你把下面的代码粘回去就可以了，窗体的高和宽达到最小时，循环会自己退出，避免无限循环；

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 等待上个命令执行完成,进行下个命令

送你一个延迟函数单位毫秒

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

在一个按钮里面加入一句触发timer事件开始计时的代码：

timer1.enabled=true

timer的tick事件中加入这么两句：

textbox1.backcolor=color.red

timer1.enabled=false