none
Bloquear Caracteres Específicos RRS feed

  • Pergunta

  • Boa tarde,

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

    Tem que ser no evento TextChanged de um TextBox.

    Grato.

    quarta-feira, 8 de janeiro de 2014 17:00

Respostas

  • 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

    • Marcado como Resposta Eduardo Milani quarta-feira, 8 de janeiro de 2014 18:07
    quarta-feira, 8 de janeiro de 2014 17:59

Todas as Respostas

  • 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


    quarta-feira, 8 de janeiro de 2014 17:29
  • 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.

    quarta-feira, 8 de janeiro de 2014 17:34
  • É uma quantia de texto muito grande?

    Herbert Lausmann

    quarta-feira, 8 de janeiro de 2014 17:48
  • É uma quantia de texto muito grande?

    Herbert Lausmann

    Uma linha só.
    quarta-feira, 8 de janeiro de 2014 17:51
  • 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

    • Marcado como Resposta Eduardo Milani quarta-feira, 8 de janeiro de 2014 18:07
    quarta-feira, 8 de janeiro de 2014 17:59
  • 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.
    quarta-feira, 8 de janeiro de 2014 18:07