LUIZ_
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/07/2011 02:07 hs
Galera
Como faço para que durante a digitacao de valores na caixa de texto, seja substituido a virgula por ponto ?
Agradeço atenção.
|
|
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/07/2011 10:13 hs
txtCaixaTexto.text = replace (txtCaixaTexto,",",".") |
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/07/2011 10:59 hs
colque o código do j.carlos no keyup do textbox |
|
|
|
LUIZ_
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/07/2011 12:08 hs
Ola galera
Funcionou, mas ao digitar os valores e o ponto, o cursor retorna para inicio do textbox e com isso mover o cursor para depois do ponto para continuar digitando, como eu mantenho o cursor depois do ponto ?
|
|
TÓPICO EDITADO
|
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/07/2011 14:15 hs
outra maneira Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(",") Then
KeyAscii = Asc(".")
End If
End Sub |
|
|
|
Ronas
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/07/2011 19:36 hs
Olhas isto e ver se serve. Private Sub Text2_Change()
If Len(Text2) = 2 Then
Text2 = Text2 + "."
Text2.SelStart = 4
End If
If Len(Text2) = 6 Then
Text2 = Text2 + "."
Text2.SelStart = 8
End If
If Len(Text2) = 10 Then
Text2 = Text2 + "/"
Text2.SelStart = 12
End If
If Len(Text2) = 15 Then
Text2 = Text2 + "-"
Text2.SelStart = 18
End If
End Sub
|
|
|
|
