チェックボックス(CheckBox)＠VB.Netのお勉強

チェックボックス(CheckBox)＠VB.Net

フォームにチェックボックスを配置します。
チェックボックスは、なものです。

普通に配置しても面白くないので、
チェックボックスを利用して、ストップウォッチを作成します。

フォームに、CheckBox、TextBox、Timerを配置します。
フォームロード時に、各種設定を行います。
カウンター値をTextBoxに表示し、Timerをスタートします。

チェックボックスにチェックされた時をHandleして、
スタートもしくはストップ処理を記述します。

Checkedでチェックされているのかを判断して、
チェックされていたら、Timerをスタートします。
チェックされていない場合は、Timerをストップします。

チェックボックスを利用したトグル処理ですね。

Public Class Form1

    Private count As Integer = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        count = 1

        Me.TextBox1.Text = CStr(count)

        Me.CheckBox1.Text = "スタート"
        Me.CheckBox1.Checked = True

        Me.Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        count += 1
        Me.TextBox1.Text = CStr(count)
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If Me.CheckBox1.Checked Then
            Me.CheckBox1.Text = "スタート"
            Me.Timer1.Start()
        Else
            Me.CheckBox1.Text = "ストップ"
            Me.Timer1.Stop()
        End If
    End Sub
End Class