Solución para convertir el punto en coma.
Publicado por CabreraSoft (11 intervenciones) el 14/09/2002 03:00:31
Estimados amigos, muchos me han preguntado cómo se puede hacer para que al pulsar el punto del teclado numérico la máquina genere una coma en su lugar. La solución es bien sencilla, enviando la pulsación de la tecla RETROCESO para borrar el punto que hemos tecleado y a continuación enviar la coma.
En un text, lo haríamos fácilmente de la forma:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 110 Then
SendKeys "{BACKSPACE},"
End If
End Sub
Nota: 110 es el código de exploracion de la tecla ". / Supr" cuando tenemos la tecla Bloq Num activada.
Si a alguien le ha sido de ayuda, me gustaría saberlo.
Saludos.
En un text, lo haríamos fácilmente de la forma:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 110 Then
SendKeys "{BACKSPACE},"
End If
End Sub
Nota: 110 es el código de exploracion de la tecla ". / Supr" cuando tenemos la tecla Bloq Num activada.
Si a alguien le ha sido de ayuda, me gustaría saberlo.
Saludos.
Valora esta pregunta
0