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クラスもあって、これとは場合によって使い分けることになるのですが、その話はまた今度にします。


スポンサード リンク

この記事のカテゴリ

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