[Âà¶K] §óºë½Tªº­p®É VB

laigs218

¤@¯ë¨Ï¥ÎTimerª«¥ó¡A¨S¦³¿ìªkºë½Tªººâ¨ì·L¬í¡A(¨C¬í¥Ø§ó·s18.2¦¸)¡A­Y­nºâ¨ì
·L¬í¡A«h¨Ï¥ÎGetTickCount ¡A¥¦¶Ç¦^Windows±Ò°Ê«á¨ì¥Ø«e¬°¤î©Ò¸g¹Lªº®É¶¡¡A
¶Ç¦^­È¥H·L¬í¬°³æ¦ì¡C

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 "¤w¹L50·L¬í"
      i = j
   End If
   DoEvents
Loop
End Sub

Private Sub Command2_Click()
  CanContinue =  False
End Sub