Private Sub TextBox1_TextChanged ( ......)
' hier wird code ausgeführt
End Sub
 
Private Sub Text ()
' textbox für das TextChanged Ereignis sperren
TextBox1. ????????
' text übergeben
TextBox1.Text = "test"
' textbox wieder freigeben
TextBox1. ????????
End Sub

Dim allowTextChanged As Boolean = True
 
Private Sub TextBox1_TextChanged ( ......)
    If allowTextChanged Then
        ' hier wird code ausgeführt
    End If
End Sub
 
Private Sub Text ()
    allowTextChanged = False
    TextBox1.Text = "test"
    allowTextChanged = true
End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

 
            RemoveHandler TextBox1.TextChanged, AddressOf TextBox1_TextChanged
 
            AddHandler TextBox1.TextChanged, AddressOf TextBox1_TextChanged

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist