MASCARAR TEXTBOX
Olá pessoal.
Gostaria de mascarar um textbox da seguinte forma:
___.___
ou seja, o text deve ter 3 espaços vazios no inÃcio, um ponto no centro e mais três espaços vazios no fim. Pra resumir, deve haver apenas um ponto no centro do text.
Detalhe: não gostaria de usar o maskedit.
Como faço isso?
Obrigado.
Humirde[S20]
Gostaria de mascarar um textbox da seguinte forma:
___.___
ou seja, o text deve ter 3 espaços vazios no inÃcio, um ponto no centro e mais três espaços vazios no fim. Pra resumir, deve haver apenas um ponto no centro do text.
Detalhe: não gostaria de usar o maskedit.
Como faço isso?
Obrigado.
Humirde[S20]
Tente isso:
MaxLenght = 7
if text1.text = " . " then
msgbox "Valido"
else
msgbox "Invalido"
end if
Ok!!!
MaxLenght = 7
if text1.text = " . " then
msgbox "Valido"
else
msgbox "Invalido"
end if
Ok!!!
use o maskedit e na Propriedade PromptInclude coloque False.
ele ficará agindo como um textbox só que com uma máscara..
vê se ajuda...
ele ficará agindo como um textbox só que com uma máscara..
vê se ajuda...
[txt-color=#0000ff]PLACIDOHUM[/txt-color]
O HUMIRDE disse que não gostaria de usar o MaskEdBox.
[txt-color=#ff0000]Mas a pergunta é[/txt-color]: Por que não?
O HUMIRDE disse que não gostaria de usar o MaskEdBox.
[txt-color=#ff0000]Mas a pergunta é[/txt-color]: Por que não?
é se vc usar maskedbox ficaria bem mais facil pro desenrolar do projeto!
Por que não usar o maskedbox?
Por que não usar o maskedbox?
'coloque este código no evento change do textbox
If Len(Text1) = 3 Then
Text1 = Text1 & "."
Text1.SelStart = 5
End If
Acho q pode ajudar.
If Len(Text1) = 3 Then
Text1 = Text1 & "."
Text1.SelStart = 5
End If
Acho q pode ajudar.
Esta função é interessante por que vc pode mascarar cep,cnpj,ie, etc..resumindo qualquer coisa...
Function CampoText(OBJ As Object, Keyasc As Integer)If Not ((Keyasc >= Asc("0") And Keyasc <= Asc("9")) Or Keyasc = 8) Then
Keyasc = 0
Exit Function
End If
If Keyasc <> 8 Then
If Len(OBJ.Text) = 3 Then
OBJ.Text = OBJ.Text & "."
OBJ.SelStart = Len(OBJ.Text)
End If
End If
End Function
No TextBox vc coloca:
Private Sub TextBox_KeyPress(KeyAscii As Integer)
CampoText TextBox, KeyAscii
End Sub
Espero ter ajudado,
Falou, um abraço!
Function CampoText(OBJ As Object, Keyasc As Integer)If Not ((Keyasc >= Asc("0") And Keyasc <= Asc("9")) Or Keyasc = 8) Then
Keyasc = 0
Exit Function
End If
If Keyasc <> 8 Then
If Len(OBJ.Text) = 3 Then
OBJ.Text = OBJ.Text & "."
OBJ.SelStart = Len(OBJ.Text)
End If
End If
End Function
No TextBox vc coloca:
Private Sub TextBox_KeyPress(KeyAscii As Integer)
CampoText TextBox, KeyAscii
End Sub
Espero ter ajudado,
Falou, um abraço!
E ai conseguiu????
Tópico encerrado , respostas não são mais permitidas