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 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Java 타이머 요약현재 시간을 기준으로 지정된 밀리초를 지연한 후 지정된 시간 간격으로 TimerTask 작업을 무한대로 수행합니다.(fixed-delay execution) 현재 시간을 기준으로 지정된 밀리초를 지연한 후 지정된 시...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
