ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¤@¯ë¨Ï¥Î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
µ{¦¡¤H­û

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD