用这个试试 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '延时子程序 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ Public Sub Delay(Delay_Value) temp = Timer Do While Timer - temp < Delay_Value DoEvents If Timer - temp < 0 Then temp = temp - 86400 End If Loop End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'延时子程序
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Public Sub Delay(Delay_Value)
temp = Timer
Do While Timer - temp < Delay_Value
DoEvents
If Timer - temp < 0 Then
temp = temp - 86400
End If
Loop
End Sub
谢谢!! 我试了你的方法,单步调试行,运行就不行了。根本就不出发Case comEvReceive 事件。不解?