トグルボタンの作成

注意事項

このサイト内で公開していることがらについて

使用や利用によるいかなる損失に対しても責任を負いませんのでご了承ください。

著作物に関する著作権について

原則としてすべて運営者(EponaLab)にあります。

使用例

• FormにはButtonがあるとします。
• ButtonのNameをBStartとします。
• ButtonのTextは"開始"であるとします。

Sub BStart_Click(sender As Object, e As EventArgs) Handles BStart.Click
    If BStart.Text = "開始" Then
        '開始の動作
        BStart.Text = "終了"
    Else
        '終了の動作
        BStart.Text = "開始"
    End If
End Sub