[VB] Controllo anticipato del testo in un una TextBox()

[w_t]

Originariamente inviato da darkblOOd
puoi includere degli altri if then

quello che temevo!!!

[w_t]

Originariamente inviato da darkblOOd
puoi includere degli altri if then

E di questo cosa ne dici???


Private Sub txtEditCat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEditCat.TextChanged
'controllo che non vengano inseriti caratteri non ammessi
Dim str As String = txtEditCat.Text
If str.IndexOf(" ") <> -1 Or str.IndexOf("\") <> -1 Or str.IndexOf("|") <> -1 _
Or str.IndexOf("!") <> -1 Or str.IndexOf("£") <> -1 Or str.IndexOf("$") <> -1 _
Or str.IndexOf("%") <> -1 Or str.IndexOf("&") <> -1 Or str.IndexOf("/") <> -1 _
Or str.IndexOf("(") <> -1 Or str.IndexOf(")") <> -1 Or str.IndexOf("=") <> -1 _
Or str.IndexOf("?") <> -1 Or str.IndexOf("^") <> -1 Or str.IndexOf("€") <> -1 _
Or str.IndexOf("[") <> -1 Or str.IndexOf("]") <> -1 Or str.IndexOf("+") <> -1 _
Or str.IndexOf("*") <> -1 Or str.IndexOf("@") <> -1 Or str.IndexOf("°") <> -1 _
Or str.IndexOf("#") <> -1 Or str.IndexOf("<") <> -1 Or str.IndexOf(">") <> -1 _
Or str.IndexOf(",") <> -1 Or str.IndexOf(";") <> -1 Or str.IndexOf(".") <> -1 _
Or str.IndexOf(":") <> -1 Or str.IndexOf("}") <> -1 Or str.IndexOf("{") <> -1 _
Then
If MsgBox("E' stato digitato un carattere non ammesso!", MsgBoxStyle.Critical) = MsgBoxResult.OK Then
txtEditCat.Text = Nothing
End If
End If
End Sub


Non riesco a controllare questo carattere= " ...mi da errore di sintassi, come posso fare???