Programación General > Visual Basic 6.0 e inferiores

 Re: Punto del teclado numerico

<< < (2/4) > >>

Gerard:
No me funciona ese codigo :'( Alguien sabe de que puede venir??? Yo solo pulso el "." que está al lado del "0" :bad:

Quizas es la config del teclado?

Gracias:)

chiaravel:
Correlo con el depurador y fijate que Keycode te devuelve el "." numerico, aca me da ese valor, pero puede estar tirandote otro a vos.

Ponele msgbox o lo que quieras, pero el codigo que te pase, es el correcto, ya que lo estoy probando aca y funciona ok.

Un Abrazo

Suerte

Gerard:
Mandame el ejemplo que has hecho tu, quizas soy yo quien hace el error.

El codigo no es erroneo, ni me sale el depurador, el programa se queda tan tranquilo al pulsar ".":(

Gracias Pablo. :adios:

chiaravel:
Lo que te digo es que lo ejecutes desde el depurador con F8.

De nada te va a servir mi ejemplo, ya que es lo mismo que te copie en el mensaje.

Anda hasta la rutina Keycode y en el primer IF pone el cursor y pulsa CTRL-F8, va a comenzar la ejecucion y cuando llegue a ese punto, va a detenerla activando el depurador.

Suerte

acalanto:
Este código es de una aplicación y hace exactamente lo que necesitas.

Un saludo
-Acalanto-


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Local Error Resume Next
    Select Case KeyCode
        Case 8
                    KeyCode = 8
        Case 110
                    If Chr(DecChar) = "," Then KeyCode = 188 Else KeyCode = 110
        Case 188
                    If Chr(DecChar) = "," Then KeyCode = 188 Else KeyCode = 110
        Case 13
                    KeyCode = 13
        Case 107
                    KeyCode = 107
        Case 109
                    KeyCode = 109
        Case 0 To 47
                    KeyCode = 0
        Case 58 To 95
                    KeyCode = 0
        Case Is > 105
                    KeyCode = 0
    End Select
End Sub

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior