急求！vb不要假死的延迟

答案:1 悬赏:40 手机版

解决时间 2021-03-09 03:31

提问者网友：星軌
2021-03-08 07:00

Public Sub theirball()
Randomize
Select Case Int((pg_15 + sg_15 + sf_15 + pf_15 + c_15) * Rnd + 1)
Case 0 To pg_15
Call pg_ball
Case pg_15 To pg_15 + sg_15
Call sg_ball
Case pg_15 + sg_15 To pg_15 + sg_15 + sf_15
Call sf_ball
Case pg_15 + sg_15 + sf_15 To pg_15 + sg_15 + sf_15 + pf_15
Call pf_ball
Case Else
Call c_ball
End Select
End Sub

Public Sub ourball()
Randomize
Select Case Int((pg15 + sg15 + sf15 + pf15 + c15) * Rnd + 1)
Case 0 To pg15
Call pgball
Case pg15 To pg15 + sg15
Call sgball
Case pg15 + sg15 To pg15 + sg15 + sf15
Call sfball
Case pg15 + sg15 + sf15 To pg15 + sg15 + sf15 + pf15
Call pfball
Case Else
Call cball
End Select
End Sub
以上是我的代码，希望延迟5秒再执行randomize之后的语句，试了好多都不行，谢谢！！

最佳答案

五星知识达人网友：woshuo
2021-03-08 07:43

Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Sleep(ByVal msec As Long)
    Dim iTick As Long
    iTick = GetTickCount
    While GetTickCount - iTick < msec
        DoEvents
    Wend
End Sub
在合适的位置写上 sleep 5000'5000就是延时5秒，这个延时不会假死在你的 randomize 后面一行写上sleep 5000

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！