TextBox1.TextChanged Ereignis zeigt MsgBox zweimal

Question

Ich habe ein Problem mit dem TextBox1.TextChanged-Ereignis. Mein Code:

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 
    MsgBox("txt was changed") 
    TextBox1.Clear() 
End Sub 

Das Problem ist, dass die MsgBox zweimal gezeigt wird, aber ich will es nur einmal zeigen und die TextBox löschen. Wie kann ich das machen?

Answer 1

Zwei Möglichkeiten:

vorübergehend den Handler entfernen das Ereignis wieder Brennen zu verhindern:

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 
    MsgBox("txt was changed") 
    RemoveHandler TextBox1.TextChanged, AddressOf TextBox1_TextChanged 
    TextBox1.Clear() 
    AddHandler TextBox1.TextChanged, AddressOf TextBox1_TextChanged 
End Sub 

oder

Erstellen Sie ein Feld zu überprüfen, ob das Ereignis von selbst stammt:

Dim textBoxAlreadyChanging As boolean = False 

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 
    If Not textBoxAlreadyChanging Then 
     MsgBox("txt was changed") 
     textBoxAlreadyChanging = True 
     TextBox1.Clear() 
     textBoxAlreadyChanging = False 
    End If 
End Sub