https://foro.gambas-es.org/viewtopic.php?f=1&t=243&p=1252#p1252
-----------------------------------
lumbanico
Lunes, 30 Noviembre 2009, 20:43

Posible Bug En El Evento KeyPress Del Cuadro De Control ?
-----------------------------------
Hola,

Estoy comenzando en esto de Gambas, y para familiarizarme estoy desarrollando una pequeña aplicación para la gestión de clientes. Pero lo que me trae aquí es que en el evento KeyPress de un cuadro de texto no me diferencia entre mayúsculas y minúsculas, entendiendo ambas como mayúsculas. El código, con el que limito en número de dígitos y el tipo, es el siguiente:

PUBLIC SUB TNif_KeyPress()
     Establece los dígitos que se pueden introducir, y cuántos
     SELECT CASE Key.code 
          CASE Asc("a") TO Asc("z")
              IF Len(TNif.Text) > 8 THEN 
                   STOP EVENT 
              ELSE
                   message("12")
                    'Convierte las minúsculas en mayúsculas
                    TNif.Insert(UCase(Key.Text))
                    STOP EVENT 
              END IF
          CASE Asc("0") TO Asc("9")
              IF Len(TNif.Text) > 8 THEN STOP EVENT 
          CASE Asc("A") TO Asc("Z")
              IF Len(TNif.Text) > 8 THEN STOP EVENT
          CASE key.BackSpace
          CASE key.Delete
          CASE key.Tab
          CASE key.Enter
          CASE key.Return
          CASE ELSE 
               STOP EVENT 
     END SELECT 
     
END

Actualmente estoy trabajando con Ubuntu 9.10 y Gamas 2.18, has antes de la actualización (tenía Gambas 2.13 con Ubuntu 9.04) y no me daba problemas. ¿ A alguien le ha pasado esto ?. Muchas gracias.


