[VB.NET]タイマーの使い方とは？開始・終了メソッドの使い方、カウントダウンタイマーの実現方法を紹介

.NET
VB.NET
プログラミング言語

公開日時: 2021-08-17 　更新日時: 2022-06-06

[VB.NET]タイマーの使い方とは？開始・終了メソッドの使い方、カウントダウンタイマーの実現方法を紹介

この記事でわかること

システム エンジニア: VB.NETタイマーの使い方について教えてください。

プロジェクト マネージャー: 使い方について紹介しましょう。

[VB.NET]タイマーの使い方とは？

今回は、VB.NETでのタイマーの使い方について説明します。タイマーは、指定時間ごとに処理する場合に使用します。基本的な使い方や、開始・終了メソッドの使い方、カウントダウンタイマーの実現方法について紹介します。

VB.NETでのタイマーの使い方に興味のある方はぜひご覧ください。

タイマーコントロールについて

VB.NETでのタイマーコントロールのプロパティやメソッドについて紹介します。
・Enabledプロパティ：Timerの実行状態を取得・設定する
・Intervalプロパティ：Timerのインターバルを取得・設定する
・Startメソッド：Timerを開始する
・Stopメソッド：Timerを停止する

基本的な使い方

VB.NETでのタイマーコントロールの基本的な使い方を紹介します。実際のソースコードを見てみましょう。

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

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でのタイマーコントロールの開始・停止方法を紹介します。実際のソースコードを見てみましょう。

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

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でのカウントダウンタイマーの実現方法を紹介します。実際のソースコードを見てみましょう。

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

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でのタイマーの使い方について説明しました。タイマーは、指定時間ごとに処理する場合に使用します。基本的な使い方や、開始・終了メソッドの使い方、カウントダウンタイマーの実現方法について紹介しました。

ぜひご自身でVB.NETソースコードを書いて、理解を深めてください。

FEnet.NETナビ・.NETコラムは株式会社オープンアップシステムが運営しています。

株式会社オープンアップシステムはこんな会社です

秋葉原オフィスには株式会社オープンアップシステムをはじめグループのIT企業が集結！
数多くのエンジニアが集まります。

スマホアプリから業務系システムまで

スマホアプリから業務系システムまで開発案件多数。システムエンジニア・プログラマーとしての多彩なキャリアパスがあります。
充実した研修制度

毎年、IT技術のトレンドや社員の要望に合わせて、カリキュラムを刷新し展開しています。社内講師の丁寧なサポートを受けながら、自分のペースで学ぶことができます。
資格取得を応援

スキルアップしたい社員を応援するために資格取得一時金制度を設けています。受験料(実費)と合わせて資格レベルに合わせた最大10万円の一時金も支給しています。
東証プライム上場企業グループ

オープンアップシステムは東証プライム上場「株式会社夢真ビーネックスグループ」のグループ企業です。

安定した経営基盤とグループ間のスムーズな連携でコロナ禍でも安定した雇用を実現させています。

株式会社オープンアップシステムに興味を持った方へ

株式会社オープンアップシステムでは、開発系エンジニア・プログラマを募集しています。

年収をアップしたい！スキルアップしたい！大手の上流案件にチャレンジしたい！
まずは話だけでも聞いてみたい場合もOK。お気軽にご登録ください。

株式会社オープンアップシステムへ応募する
会員登録不要! カンタン45秒!

[VB.NET]タイマーの使い方とは？開始・終了メソッドの使い方、カウントダウンタイマーの実現方法を紹介

[VB.NET]タイマーの使い方とは？

タイマーコントロールについて

基本的な使い方

開始と停止

カウントダウンタイマー

まとめ

株式会社オープンアップシステムはこんな会社です

スマホアプリから業務系システムまで

充実した研修制度

資格取得を応援

東証プライム上場企業グループ

株式会社オープンアップシステムに興味を持った方へ

新着案件New Job

開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク

遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク

病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク

開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク

債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務

PMO/東京都豊島区/【WEB面談可】/在宅勤務

[VB.NET]タイマーの使い方とは？開始・終了メソッドの使い方、カウントダウンタイマーの実現方法を紹介

[VB.NET]タイマーの使い方とは？

タイマーコントロールについて

基本的な使い方

開始と停止

カウントダウンタイマー

まとめ

株式会社オープンアップシステムはこんな会社です

スマホアプリから業務系システムまで

充実した研修制度

資格取得を応援

東証プライム上場企業グループ

株式会社オープンアップシステムに興味を持った方へ

新着案件New Job

開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク

遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク

病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク

開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク

債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務

PMO/東京都豊島区/【WEB面談可】/在宅勤務

関連記事Related Posts

VB.NETをおすすめする3つの理由とは？VBAとの違いや勉強方法を解説

VB.NETでの配列初期化方法とは？宣言と初期化・サイズを指定・ReDimで再宣言・要素固定の一括初期化

VB.NETでのXMLの読み書き方法とは？シリアライズやデシリアライズの方法を紹介

VB.NETでのUsing句の使い方とは？Using句の使い方と例外処理

VB.NETでのSharedの使い方とは？Shared変数・コンストラクタ・メソッド