トグルボタンの作成

注意

• このサイトの利用によって生じた損害については当方では責任を負いかねますのでご了承ください。

使用例

• 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