自作timerを作成するには？ (ID:86478)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 友二さんの言うtimeSetEventはこんな感じ。 今後は、関数名まで教えてもらったら関数名で検索してみましょうね。 いくらでもサンプルが見つかるから。。。 ＜以下標準モジュール＞ Public Declare Function timeBeginPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long Public Declare Function timeEndPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Function timeGetTime Lib "winmm.dll" () As Long Public TimerID As Long Public Const TIME_PERIODIC = 1 Sub TimerProc(uTimerID As Long, uMsg As Long, dwUser As Long, dw1 As Long, dw2 As Long) Form1.Text1.Text = timeGetTime CallCount = CallCount + 1 End Sub ＜以上標準モジュール＞ ＜以下フォーム＞ Private Sub Form_Load() Call timeBeginPeriod(20) TimerID = timeSetEvent(20, 3, AddressOf TimerProc, 1, TIME_PERIODIC) End Sub Private Sub Form_Unload(Cancel As Integer) Call timeKillEvent(TimerID) Call timeEndPeriod(20) Call Sleep(100) End Sub ＜以上フォーム＞