《テーマ》タイマーの機能と扱い方

《解説》

1．タイマーの機能

　　一定間隔毎に命令を実行する。使用不可に指定しない限り、ほぼ等しい間隔でイベントを発生し続ける。

　たとえば、蝶々の絵を２枚（羽を閉じた絵と羽を開いた絵）用意して、１秒間に５回の間隔で閉じた絵と開いた絵を交互に連続してイメージボックスに表示させると、蝶々が羽を開き羽を閉じるという動きが表現できる。

　蝶々が飛んでいるように見せるためには、さらにイメージボックスを一定の間隔で、たとえば左から右へ動かしてやる必要がある。

２．Ｔｉｍｅｒ１＿Ｔｉｍｅｒ（）の扱い方

Private Sub Form_Load()
　　'タイマーを使用可能にします。
　　Timer1.Enabled=True
　　'インターバルを１秒間に５回に設定します（１秒＝１０００）。
　　Timer1.Interval=200

Private Sub Timer1_Timer()
　　Static PickBmp As Integer
　　' 蝶のﾋﾟｸﾁｬを移動します。
　　Main.Move Main.Left + 20, Main.Top - 5
　　If PickBmp Then
　　　　Main.Picture = OpenWings.Picture ' 羽を開いた蝶のﾋﾟｸﾁｬを表示します。
　　Else
　　　　Main.Picture = CloseWings.Picture ' 羽を閉じた蝶のﾋﾟｸﾁｬを表示します。
　　End If
　　PickBmp = Not PickBmp ' 値を切り替えます。
End Sub