[VB.NET]タイマーの使い方とは?開始・終了メソッドの使い方、カウントダウンタイマーの実現方法を紹介
![[VB.NET]タイマーの使い方とは?開始・終了メソッドの使い方、カウントダウンタイマーの実現方法を紹介](https://www.fenet.jp/dotnet/column/wp-content/uploads/2020/07/pixta_21130325_M-960x320.jpg)
[VB.NET]タイマーの使い方とは?
今回は、VB.NETでのタイマーの使い方について説明します。タイマーは、指定時間ごとに処理する場合に使用します。基本的な使い方や、開始・終了メソッドの使い方、カウントダウンタイマーの実現方法について紹介します。
VB.NETでのタイマーの使い方に興味のある方はぜひご覧ください。
タイマーコントロールについて
VB.NETでのタイマーコントロールのプロパティやメソッドについて紹介します。
・Enabledプロパティ:Timerの実行状態を取得・設定する
・Intervalプロパティ:Timerのインターバルを取得・設定する
・Startメソッド:Timerを開始する
・Stopメソッド:Timerを停止する
基本的な使い方
VB.NETでのタイマーコントロールの基本的な使い方を紹介します。実際のソースコードを見てみましょう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
Public Class Form1 Dim Label1 As Label Dim WithEvents Timer1 As Timer Public Sub New() InitializeComponent() ' Lavel Label1 = New Label Label1.Location = New Point(10, 10) Me.Controls.Add(Label1) ' Timer Timer1 = New Timer End Sub ''' <summary> ''' Form Loadイベント ''' </summary> Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load ' ラベルに現在時刻を表示 Me.Label1.Text = Now.ToString("hh:mm:ss") ' Timerの間隔を1000msecに設定 Me.Timer1.Interval = 1000 ' Timerを開始 Me.Timer1.Enabled = True End Sub ''' <summary> ''' Timer Tickイベント ''' </summary> Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick ' ラベルに現在時刻を表示 Me.Label1.Text = Now.ToString("hh:mm:ss") End Sub End Class |
開始すると、現在時刻を1秒ごとに表示します。このようにVB.NETでは、タイマーコントロールで周期的に処理ができます。
開始と停止
VB.NETでのタイマーコントロールの開始・停止方法を紹介します。実際のソースコードを見てみましょう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
Public Class Form1 Dim Label1 As Label Dim WithEvents Timer1 As Timer Dim WithEvents Button1, Button2 As Button Public Sub New() InitializeComponent() ' Lavel Label1 = New Label Label1.Location = New Point(10, 10) Me.Controls.Add(Label1) ' Timer Timer1 = New Timer ' Button Button1 = New Button Button1.Location = New Point(10, 40) Button1.Text = "Start" Me.Controls.Add(Button1) Button2 = New Button Button2.Location = New Point(100, 40) Button2.Text = "Stop" Me.Controls.Add(Button2) End Sub ''' <summary> ''' Form Loadイベント ''' </summary> Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load ' ラベルに現在時刻を表示 Me.Label1.Text = Now.ToString("hh:mm:ss") ' Timerの間隔を1000msecに設定 Me.Timer1.Interval = 1000 ' Timerを開始 Me.Timer1.Enabled = True End Sub ''' <summary> ''' Timer Tickイベント ''' </summary> Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick ' ラベルに現在時刻を表示 Me.Label1.Text = Now.ToString("hh:mm:ss") End Sub ''' <summary> ''' 「Start」ボタンClickイベント ''' </summary> Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' Timerを開始 Me.Timer1.Start() End Sub ''' <summary> ''' 「Stop」ボタンClickイベント ''' </summary> Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ' Timerを停止 Me.Timer1.Stop() End Sub End Class |
「Stop」ボタンでTimerが停止し、「Start」ボタンでTimerが開始します。このようにVB.NETでは、Startメソッド / StopメソッドでTimerコントロールの開始・停止ができます。
カウントダウンタイマー
VB.NETでのカウントダウンタイマーの実現方法を紹介します。実際のソースコードを見てみましょう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 |
Public Class Form1 Dim Label1 As Label Dim WithEvents Timer1 As Timer Dim WithEvents Button1, Button2, Button3 As Button Public Sub New() InitializeComponent() ' Lavel Label1 = New Label Label1.Location = New Point(10, 10) Me.Controls.Add(Label1) ' Timer Timer1 = New Timer ' Button Button1 = New Button Button1.Location = New Point(10, 40) Button1.Text = "Start" Me.Controls.Add(Button1) Button2 = New Button Button2.Location = New Point(100, 40) Button2.Text = "Stop" Me.Controls.Add(Button2) Button3 = New Button Button3.Location = New Point(190, 40) Button3.Text = "Reset" Me.Controls.Add(Button3) End Sub ''' <summary> ''' Form Loadイベント ''' </summary> Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load ' ラベルを10に設定 Me.Label1.Text = "10" ' Timerの間隔を1000msecに設定 Me.Timer1.Interval = 1000 ' Timerを開始 Me.Timer1.Enabled = True End Sub ''' <summary> ''' Timer Tickイベント ''' </summary> Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick ' 0になったらタイマーを止める If Label1.Text = "0" Then Timer1.Enabled = False Else ' デクリメントする Dim nowcount = Label1.Text Dim newcount = Integer.Parse(nowcount) - 1 Label1.Text = newcount.ToString() Timer1.Enabled = True End If End Sub ''' <summary> ''' 「Start」ボタンClickイベント ''' </summary> Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' Timerを開始 Me.Timer1.Start() End Sub ''' <summary> ''' 「Stop」ボタンClickイベント ''' </summary> Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ' Timerを停止 Me.Timer1.Stop() End Sub ''' <summary> ''' 「Reset」ボタンClickイベント ''' </summary> Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click ' Timerを停止 Me.Timer1.Stop() ' ラベルを10に設定 Me.Label1.Text = "10" End Sub End Class |
Tickイベントでデクリメントして、0になったらTimerを停止します。
まとめ
いかがでしたでしょうか。VB.NETでのタイマーの使い方について説明しました。タイマーは、指定時間ごとに処理する場合に使用します。基本的な使い方や、開始・終了メソッドの使い方、カウントダウンタイマーの実現方法について紹介しました。
ぜひご自身でVB.NETソースコードを書いて、理解を深めてください。