타이머, SetTimer,KillTimer

[올란도]

1. 모듈에 다음과 같은 API Function과 변수를 선언합니다

Public Declare Function SetTimer Lib "user32" _
              (ByVal hwnd As Long, _
               ByVal nIDEvent As Long, _
               ByVal uElapse As Long, _
               ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" _
              (ByVal hwnd As Long, _
               ByVal nIDEvent As Long) As Long

Public iCounter As Integer

Public Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, _
                     ByVal idEvent As Long, ByVal dwTime As Long)
    iCounter = iCounter + 1
    Form1.Text1.Text = CStr(iCounter)
End Sub

2. 폼에 하나의 Command Button과 TextBox 를 추가하여 다음과 같이 코딩을 하세요

Dim lngTimerID As Long
Dim BlnTimer As Boolean

Private Sub Form_Load()
    BlnTimer = False
    Command1.Caption = "Timer 시작"
End Sub
        
Private Sub Command1_Click()
    If BlnTimer = False Then
        ' 1000 msec = 1 초 입니다.
        lngTimerID = SetTimer(0, 0, 1000, AddressOf TimerProc)
        If lngTimerID = 0 Then
            MsgBox "Timer 를 발생시키지 못했습니다. 프로그램을 종료합니다."
            Exit Sub
        End If
        BlnTimer = True
        Command1.Caption = "Timer 종료"
    Else
        lngTimerID = KillTimer(0, lngTimerID)
        If lngTimerID = 0 Then
            MsgBox "Can not kill Timer"
        End If
        BlnTimer = False
        Command1.Caption = "Timer 시작"
    End If
End Sub

[꼭미남강유]

초가 소숫점 이하 2자리 정도 나오면 쓸만하것 같아요.