Private Declare Function GetTickCount Lib "kernel32" Alias _ "GetTickCount" () As Long
Private CanContinue as Boolean
Private Sub Command1_click() Dim i as Long Dim j as Long i = GetTickCount() CanContinue = True Do While CanContinue j = GetTickCount() if j - i > 50 Then Debug.Print "已过50微秒" i = j End If DoEvents Loop End Sub
Private Sub Command2_Click() CanContinue = False End Sub
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 