VB6.0 SetTimer 구현 타이머 호출
11425 단어 timer
Option
Explicit
Declare
Function
SetTimer
Lib
"
user32
"
(
ByVal
hwnd
As
Long
,
ByVal
nIDEvent
As
Long
,
ByVal
uElapse
As
Long
,
ByVal
lpTimerFunc
As
Long
)
As
Long
Declare
Function
KillTimer
Lib
"
user32
"
(
ByVal
hwnd
As
Long
,
ByVal
nIDEvent
As
Long
)
As
Long
Public
Sub
TimerProc(
ByVal
hwnd
As
Long
,
ByVal
uMsg
As
Long
,
ByVal
idEvent
As
Long
,
ByVal
dwTime
As
Long
)
MsgBox
Now()
End Sub
창 코드:
Option
Explicit
Dim
lngTimerID
As
Long
Dim
BlnTimer
As
Boolean
Private
Sub
Form_Load()
BlnTimer
=
False
Command1.Caption
=
"
"
End Sub
Private
Sub
Form_Unload(Cancel
As
Integer
)
KillTimer
0
, lngTimerID
End Sub
Private
Sub
Command1_Click()
If
BlnTimer
=
False
Then
'
5
lngTimerID
=
SetTimer(
0
,
0
,
5000
,
AddressOf
TimerProc)
BlnTimer
=
True
Command1.Caption
=
"
"
Else
KillTimer
0
, lngTimerID
BlnTimer
=
False
Command1.Caption
=
"
"
End
If
End Sub
설명:
TimerProc 함수 정의는 bas 모듈 파일에 넣어야 합니다. 그렇지 않으면 "lngTimerID = SetTimer(0, 0, 5000, AddressOf TimerProc)"실행 코드가 잘못됩니다.
팁: 작업자 AddressOf 가 올바르지 않습니다.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
자바스크립트로 타이머 만들기JavaScript와 HTML만 사용하여 간단한 타이머를 만들어 보겠습니다. 먼저 인터페이스를 만들고 HTML만 사용하여 간단한 작업을 수행합니다. HTML 구조에서 시간 정보를 표시하기 위해 일부span가 생성되었...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.