タイマー

タイマー

　タイマーコントロールは指定した一定の間隔でイベントを発生させます。このコントロールを使えば、複数の画像を使ってアニメーションのように動いているように表示させることも可能です。

主なプロパティ

■　Intervalプロパティ

　数値を指定します。このプロパティに設定した数値のミリ秒間隔でイベントを発生します。

■　Enableプロパティ

　TrueかFalseを指定します。このプロパティでタイマーを止めたりすることができます。

主なイベント

■　Tickイベント

　指定したタイマーの間隔が経過し、タイマーが有効である場合に発生します。

○　プロジェクト

　次のようにプロジェクトを作成してください。

プロジェクトの種類 Windows フォーム アプリケーション
プロジェクト名 TimerTest

サンプルダウンロード

○　フォームデザイン

　次の図のようにコントロールを配置してください。

コントロールの配置例
コントロールの配置例

○　プログラム

　次のプログラムを記述してください。

  1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2. 　'タイマーコントロールの初期化
  3. 　Me.Timer1.Enabled = True
  4. 　Me.Timer1.Interval = 100
  5. End Sub
  7. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  8. 　If Me.TextBox1.Text.Length = 20 Then
  9. 　　Me.TextBox1.Text = ""
  10. 　　Exit Sub
  11. 　End If
  13. 　Me.TextBox1.Text &= "■"
  14. End Sub
  16. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  17. 　Me.Timer1.Interval = 250
  18. End Sub
  20. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  21. 　Me.Timer1.Interval = 100
  22. End Sub
  24. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  25. 　If Me.Button3.Text = "止" Then
  26. 　　Me.Button3.Text = "始"
  27. 　　Me.Timer1.Enabled = False
  28. 　Else
  29. 　　Me.Button3.Text = "止"
  30. 　　Me.Timer1.Enabled = True
  31. 　End If
  32. End Sub

○　実行結果

実行結果
実行結果

○　解説

　「遅」ボタン、「速」ボタンをクリックすると、スピードを変えることができます。「止」ボタンをクリックすると、停止します。

前へ   次へ