Bloquear Caracteres Específicos

Question

Boa tarde,

Como eu faço para bloquear o caracteres:  <>?\/|*":  

Tem que ser no evento TextChanged de um TextBox.

Grato.

Answer 1

Boa tarde,

Coloque o código abaixo no evento KeyPress do seu TextBox:

If e.KeyChar = "<"c Then e.Handled = True
If e.KeyChar = ">"c Then e.Handled = True
If e.KeyChar = "?"c Then e.Handled = True
If e.KeyChar = "\"c Then e.Handled = True
If e.KeyChar = "/"c Then e.Handled = True
If e.KeyChar = "|"c Then e.Handled = True
If e.KeyChar = "*"c Then e.Handled = True
If e.KeyChar = Char.ConvertFromUtf32(34) Then e.Handled = True
If e.KeyChar = ":"c Then e.Handled = True

---

Herbert Lausmann

Answer 2

Boa tarde,

Coloque o código abaixo no evento KeyPress do seu TextBox:

If e.KeyChar = "<"c Then e.Handled = True
If e.KeyChar = ">"c Then e.Handled = True
If e.KeyChar = "?"c Then e.Handled = True
If e.KeyChar = "\"c Then e.Handled = True
If e.KeyChar = "/"c Then e.Handled = True
If e.KeyChar = "|"c Then e.Handled = True
If e.KeyChar = "*"c Then e.Handled = True
If e.KeyChar = Char.ConvertFromUtf32(34) Then e.Handled = True
If e.KeyChar = ":"c Then e.Handled = True

---

Herbert Lausmann

Boa tarde,

Eu não posso utilizar o evento KeyPress pois o texto é inserido automaticamente e não digitado, teria que ser uma função ou por outro meio.

Answer 3

É uma quantia de texto muito grande?

---

Herbert Lausmann

Answer 4

É uma quantia de texto muito grande?

---

Herbert Lausmann

Uma linha só.

Answer 5

Então fica fácil. Adicione o código abaixo no evento TextChanged do seu TextBox:

Dim Text As String = TextBox1.Text
If String.IsNullOrEmpty(Text) = False Then
    Text = Text.Replace("<","")
    Text = Text.Replace(">","")
    Text = Text.Replace("?","")
    Text = Text.Replace("\","")
    Text = Text.Replace("/","")
    Text = Text.Replace("|","")
    Text = Text.Replace("*","")
    Text = Text.Replace(Char.ConvertFromUtf32(34).ToString(),"")
    Text = Text.Replace(":","")
    TextBox1.Text = Text
End If

---

Herbert Lausmann

Answer 6

Então fica fácil. Adicione o código abaixo no evento TextChanged do seu TextBox:

Dim Text As String = TextBox1.Text
If String.IsNullOrEmpty(Text) = False Then
    Text = Text.Replace("<","")
    Text = Text.Replace(">","")
    Text = Text.Replace("?","")
    Text = Text.Replace("\","")
    Text = Text.Replace("/","")
    Text = Text.Replace("|","")
    Text = Text.Replace("*","")
    Text = Text.Replace(Char.ConvertFromUtf32(34).ToString(),"")
    Text = Text.Replace(":","")
    TextBox1.Text = Text
End If

---

Herbert Lausmann

Obrigado. Era isso mesmo.