大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net延迟时间代码的简单介绍

VB 延迟10秒按下F10键 代码问题

已音乐播放器为例 完全没问题

创新互联公司从2013年开始,是专业互联网技术服务公司,拥有项目网站设计制作、网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元保山做网站,已为上家服务,为保山各地企业和个人服务,联系电话:18980820575

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Timer1_Timer()

Dim fwd As Long

fwd = FindWindow(vbNullString, "XXX")

If fwd = 0 Then

Shell "D:\Program Files\TTPlayer\TTPlayer.exe", 1

DoEvents

Sleep 10000

DoEvents

SendKeys "{F5}" '播放键

Timer1.Enabled = False

End If

End Sub

Private Sub Form_Load()

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

如何正确理解VB.NET延时函数

第一个for完成对delay_time参数的控制,即共循环多少次内部循环

第二个for(内部循环),完成对j从0到199的控制,共循环200次。

翻译成汇编就是:

(R0为传递参数)

DELAY:

MOV R1,#200

DJNZ R1,$

DJNZ R0,DELAY

RET

VB.NET的几种延时方法

Imports System.Threading

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 关于时间延迟

'表示注释阿。。赫赫

我的意思是最后一个循环能够控制剩下的20分钟

Do While Timer loopfinish '00:20

'out of loop at 00:20

Loop

=================================

你的理解也对 , 虽然分钟和秒有些差别,不过理解上是一样的

这后面还有两句代码 , 可能在你的那种情况下就有用了

'假如delaytime = 30 * 60 = 30 分钟 * 60 秒

Static Sub delayloop(delaytime)

Const secondsinday = 86400

'假如Timer 是0:00 前10分钟

loopfinish = Timer + delaytime ' 20*60 + 86400

If loopfinish secondsinday Then

loopfinish = loopfinish - secondsinday '20 * 60

Do While Timer loopfinish

'out of loop at 0:00

Loop

End If

Do While Timer loopfinish '00:20

'out of loop at 00:20

Loop

End Sub


标题名称:vb.net延迟时间代码的简单介绍
浏览地址:http://dzwzjz.com/article/hpcgji.html
在线咨询
服务热线
服务热线:028-86922220
TOP