Programación General > Visual Basic 6.0 e inferiores

 Re: Punto del teclado numerico

<< < (4/4)

observador:
Ciero... no me habia dado cuenta de que solo se queria cambiar el punto del teclado numerico...

Y bueno... a pesar de que Gerard dice que le sirve el codigo que mostre... pues de todas maneras aqui le coloco el codigo que hace exactamente lo que Gerard deseaba...

 
--- Código: Text --- Dim Tecla As Integer Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)    If KeyCode = 110 Then Tecla = 188 Else Tecla = 0End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)    If Tecla = 188 Then KeyAscii = Asc(",")End Sub  

Gerard:
Gracias observador! ese codigo si me funciona. Es justo justo lo que queria, a pesar de que con el otro tb habria sido suficiente.

Gracias por todo, en cuanto tengas ese proyescto terminado os lo pasare a la gente de solocodigo;)

Saludos, chao :adios:

J.M.Movilla:
Hace tiempo presenté ya el código que hoy repito.  

A pesar de que veo que Gerard ha quedado satisfecho con la solución que se le ha dado, reitero la conveniencia del código que ofrezco yo, porque con éste se soluciona también el problema de quienes tengan configurado el sistema con los signos invertidos: también a ellos les da problema el uso de la coma como signo decimal, lo cual no quedaría resuelto con la fórmula que habéis aceptado como buena, y sin embargo con el código que yo presento sí resolvería el problema independientemente de la configuración que el usuario tenga.

Saludos

Tenaza:
http://foros.solocodigo.com/viewthread.php?tid=4942

Saludos
Tenaza
:beer:

Navegación

[0] Índice de Mensajes

[*] Página Anterior