CODIGO NO LOST FOCUS DE TODOS TEXTBOX

 Tópico anterior Próximo tópico Novo tópico

CODIGO NO LOST FOCUS DE TODOS TEXTBOX

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#495187 - 29/09/2020 09:24:23

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Bom dia,
montei uma rotina pra excluir o espaço no final do TextBox e espaços duplos no meio do texto
Coloquei no LostFocus dos TextBox como segue abaixo:
  Private Sub AcertaEspacos(sender As Object, e As EventArgs) Handles TxtMae.LostFocus, TxtNome.LostFocus, TxtPai.LostFocus, TxtRG.LostFocus
        Dim Ltr As String
        Dim Pos As Integer
        Pos = Len(sender.text)
        If Pos < 1 Then Exit Sub
        Ltr = sender.text.Substring(Pos - 1, 1)
        If Ltr = ' ' Then
            sender.text = sender.text.Substring(0, Pos - 1)
        End If
        sender.text = sender.text.Replace('  ', ' ')
    End Sub


Gostaria de saber se tem como realizar uma rotina genérica ao invés de utilizar do modo como fiz

Obrigado...

O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


Resposta escolhida #495188 - 29/09/2020 09:46:37

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Use o poder da herança. Crie um componente customizado que herde de textbox, coloque sua rotina nele e use ele ao invés da textbox comum.

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#495189 - 29/09/2020 09:54:28

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


tinha esquecido esse detalhe rsrsrs
valeu KERP


O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por DAMASCENO.CESAR em 29/09/2020 09:54:42