一度しかクリックできないボタンを作る方法

Question

ビジュアルベーシックでは、一度しかクリックできないボタンを作成しようとしています。ボタンを見ることができるようにしたいと思っています。一度だけクリックしてください。

これは、これまでの私のコードです：彼らはそれをクリックした後

Public Class Form1 
    Private Sub Button1_Click(sender As Object, e As EventArgs) 

    End Sub 
End Class 

Answer 1

はボタンを無効にします。その後、彼らはそれ以上クリックすることはできませんが、それは見えるままです。特にイベントコードがマルチスレッドの場合は、まずボタンを無効にしてください。そうしないと、ボタンをクリックする機会がユーザに与えられます。

Public Class Form1 
    Private Sub Button1_Click(sender As Object, e As EventArgs) 
     Button1.Enabled = False 
     ' Do something 
    End Sub 
End Class 

ボタンを無効にしたくない場合は、グローバル変数（好ましくはプライベート変数）を設定してトラックを管理することもできます。

Public Class Form1 
    Private button1Clicked As Boolean = False 
    Private Sub Button1_Click(sender As Object, e As EventArgs) 
     If button1Clicked Then 
      ' Optionally inform user they've already clicked on it. 
      MessageBox.Show("You've already clicked on the button.") 
     Else 
      button1Clicked = True 
      ' Do something 
     End If 
    End Sub 
End Class 

また、Tagプロパティを使用することもできます。

Private Sub Button1_Click(sender As Object, e As EventArgs) 
    If Button1.Tag = True Then 
     ' Optionally inform user they've already clicked on it. 
     MessageBox.Show("You've already clicked on the button.") 
    Else 
     Button1.Tag = True 
     ' Do something 
    End If 
End Sub 

Answer 2

Public Class Form1 
Private Sub Button1_Click(sender As Object, e As EventArgs) 
    'Do what you need to do here, and then 
    Button1.Enabled = false 
End Sub