⑴ VB的延時問題
Public Function Delay(DelaySeconds As Single, Optional DoEventsEnbled As Boolean = True, Optional ShowErrorMsg As Boolean = True) As Long
'=====延時，秒數=====
'獨立函數
'
'DelaySeconds 秒數，可以為小數
'DoEventsEnble 延時過程中是否執行 Doevnts
'正常處理返回1,錯誤返回-1
Static Abort As Boolean
If Abort Then Exit Function
On Error GoTo er
If DelaySeconds >= 172800 Then
MsgBox "函數中的DelaySeconds值為:" & CStr(DelaySeconds) & "超過了最大限度(172800)。", vbCritical
Exit Function '延時超過了最大限度
End If
Dim St As Single, Et As Single
St = Timer '當前的時間
If DoEventsEnbled = True Then '
Do
Et = Timer
If Et < St Then '越過了午夜0時
St = 86400 - St
End If
DoEvents
Loop Until Et - St >= DelaySeconds
Else
Do
Et = Timer
If Et < St Then '越過了午夜0時
St = 86400 - St
End If
Loop Until Et - St >= DelaySeconds
End If
Delay = 1
Exit Function
er:
If ShowErrorMsg = True Then
If MsgBox("在執行Delay函數時發生了未知的錯誤，" & vbCrLf _
& "輸入參數 DelaySeconds=" & CStr(DelaySeconds) & ", DoEventsEnbled=" & CStr(DoEventsEnbled) & vbCrLf _
& "系統返回的錯誤信息：(" & CStr(Err.Number) & ")" & Err.Description & vbCrLf & vbCrLf & "是否要一直忽略這個函數的執行？", vbYesNo + vbDefaultButton2 + vbCritical, "錯誤") = vbYes Then
Abort = True
End If
End If
Delay = -1
End Function
⑵ vb延時方法
延時最好的方法是鍛煉身體，飲食營養健康加上好的心態，增加情趣以及延長時間都能夠起到幫助的。
炒肉類菜餚，要求炒得鮮嫩可口。炒菜的火候，投料的順序都有講究。以炒豬肉片為例說明：豬肉洗凈切片，炒鍋上火燒熱，加入底油，油熱後，先將蔥花與肉片一同下鍋煸炒，見肉表面發白接近半熟時，先烹入少許醋拌炒，待醋味迅速蒸發，再加入薑汁攪拌入味。然後加醬油、少許水，水沸後，放入副料，最後勾交，淋少許明油出勺。炒蔬菜類菜餚，則可用熱鍋溫油，先下鮮薑末，炸出香味後，再下切好的蔬菜，迅速翻炒，待蔬菜響聲已過，質地變軟時，再加醬油炒勻，再放入少許湯水、食鹽、白糖、味精，炒勻後，勾芡並淋香油即可出勺。
f
⑶ 怎樣實現vb程序條件滿足時，加個延遲後，進入下個條件判斷
'這是網上大蝦的延時delay程序，我做抽簽機DIY來的，呵呵~~
---------------------------------------------------
Private Sub Com3()
changeTop
Command4(1).Caption = "抽取下一個"
Command4(2).Caption = "重新開始"
tLeft = tLeft + 1
Command4(1).Enabled = False
Dim IsOk As Boolean
Do
Label4(nLeft).Caption = ""
Label4(nLeft).Caption = DisNum()
IsOk = True
For i = 0 To (nLeft - 1)
If Label4(i).Caption = Label4(nLeft).Caption Then
IsOk = False
Label4(nLeft).ForeColor = &H990000
Delay (15) '防當機,15ms
Exit For
End If
Next i
DoEvents
Loop Until IsOk
Label4(nLeft).ForeColor = &H0
nLeft = tLeft
Delay (200) '防連擊延遲
Command4(1).Enabled = True
Command4(1).SetFocus
If nLeft >= 5 Then
Command4(1).Enabled = False
Timer1.Enabled = False
Command4(2).SetFocus
Exit Sub
End If
End Sub
'-----------------------------------------------
Function Delay(ByVal DT As Long) As Boolean
'延時 DT m秒
'當 DT=0,返回Delay狀態： True：未完成， False：已完成
Dim t1 As Long, t2 As Long
Static InDelay As Boolean
'
If InDelay Or DT <= 0 Then
Delay = InDelay
Exit Function
End If
'
InDelay = True
t1 = Int(Timer * 1000)
Do Until Abs(Timer * 1000 - t1) > DT '跨越0.00秒，加abs
t2 = Int(Timer * 1000)
Do: DoEvents: Loop Until Int(Timer * 1000) <> t2
DoEvents
Loop
InDelay = False
Delay = False
End Function
⑷ 如何用VB延時執行命令
Dim i As String
Private Sub Command1_Click()
Print "運行文件1"
Shell "文件路徑\file1.exe"
Timer1.Interval = 20000
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
i = 0
End Sub
Private Sub Timer1_Timer()
i = i + 1
Select Case i
Case 1
Print "運行文件2"
Shell "文件路徑\file2.exe"
Timer1.Interval = 10000
Case 2
Print "運行文件3"
Shell "文件路徑\file3.exe"
Timer1.Interval = 5000
Case 3
Print "結束文件2並刪除"
Shell "cmd /c taskkill /f /im file2.exe"
Kill "文件路徑\file2.exe"
Timer1.Interval = 10000
Case 4
Print "結束文件1並刪除"
Shell "cmd /c taskkill /f /im file1.exe"
Kill "文件路徑\file1.exe"
Timer1.Interval = 0
Timer1.Enabled = False
End Select
End Sub
⑸ VB的延時1秒命令怎麼寫，在線給分
VB提倡的是用定時器控制項（Timer）的方法。首先在窗體放入一個Timer1和Command1，然後輸入以下代碼：
PrivateSubCommand1_Click()
Timer1.Interval=1000
Timer1.Enabled=True
EndSub
PrivateSubForm_Load()
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
MsgBox"這個對話框是點擊按鈕1秒鍾後彈出來的"
Timer1.Enabled=False
EndSub
此外還可以用API函數Sleep來延時，或者利用循環結合時間函數來延時，但它們都容易造成系統阻塞，所以不建議使用。
使用定時器控制項還有一個最大好處，就是在延時期間你的程序還可以繼續運行處理其他事務（比如滑鼠點擊、鍵盤輸入等）。而其他方法產生的延時效果，在延時期間就只能傻等，什麼也做不了，甚至還有可能影響到其他程序。
⑹ 怎麼在vb 中加入延時命令
PrivateSubCommand1_Click()
Me.Timer1.Interval=30*1000'定時30秒
Me.Timer1.Enabled=True
Do
IfNotTimer1.EnabledThenMsgBox"時間到！":ExitSub
DoEvents
Loop
EndSub
PrivateSubForm_Load()
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
Me.Timer1.Enabled=False
EndSub
⑺ VB6.0中如何設置延時
方法很多個。
可以使用API函數Sleep
Private Declare Sub Sleep Lib "kernel32.DLL" (ByVal dwMilliseconds As Long)
調用比如睡眠1秒:Sleep(1000)
另外還有一種延時方法，即獲取當前系統時間+延時時間=等待結束時間，等到了等待結束時間到了就往下執行。
Private Declare Function GetTickCount Lib "kernel32" () As Long
'自編應用函數
Private Sub WaitForMS(MillSeconds As Long)
Dim S as Long
S=GetTickCount+MillSeconds
Do
If GetTickCount=S Then Exit Sub
Loop
End Sub
這個函數的調用跟上面的相似，單位是ms。
⑻ VB 中如何使用延時函數
使用Timer控制項,修改其Interval屬性為1000.我的代碼:Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Timer1_Timer()
Sleep 1000
Timer1.Interval = 0
End Sub
⑼ VB中如何延時執行命令！
1可以利用api sleep函數，凍結線程，但由於消息函數阻塞會導致卡屏，2可以向樓上那樣創建wscript.shell對象，3使用timer控制項延遲，4使用循環結構取當前時間做差判斷，填充doevents語句防止佔用過多cpu時間片。不懂繼續問。
⑽ vb中如何實現延時功能
可以用定時器，設置個中斷時間間隔，時間一到就進入中斷，可用於按一定規律延時的情況。
也可以用Timer函數，如以下是延時100ms:
T1=Timer
Do While(Timer-T1<0.1)
X=DoEvents
LOOP
注意，用這二種方法的延時只有在延時時間>20ms以上才比較准，時間越小越不準。