WM_TIMERによるTimerクラスを作ったので、それのサンプルです。元ネタはWin32プログラミング講座 ～ Step32. アナログ時計を作る ～です。clockプログラムのキャプチャ

WM_TIMER（Timerイベント）の部分のソースコードを載せておきます。まあ、元と大して変りないですけどね。

Sub Timer_OnTick(sender As Object, e As Args)
    Dim wsec As Word
    wsec = st.wSecond
    GetLocalTime(st)
    '秒針を動かす必要があるときは再描画する
    If wsec <> st.wSecond Then Invalidate()
End Sub

ほかに、NoWestさんのTimerクラスもあって、これとは場合によって使い分けることになるのですが、その話はまた今度にします。

スポンサード リンク

この記事のカテゴリ

  • ⇒ タイマ、タイム
  • ⇒ タイマ、タイム