トグルボタンを作成する

ホーム > Programing > VBコード集 > トグルボタンを作成する

注意

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

使用例

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
			

作成日:2016年9月25日、最終更新日: