Comunidad Gambas-es

Evento Key_Press - cambiar tecla sobre la marcha

tincho 17-08-2022, 21:14

Hola a todos.
¿Es posible cambiar la tecla pulsada en el evento Key_Press a "siempre mayúscula"?
Los ejemplos que encuentro son para detener el evento si la tecla no es la que se espera.
Pero si por ejemplo quiero que en un textbox independientemente de si el lock de mayúsculas esta activad o no siempre se agreguen letras mayúsculas, en caso que sea una minúscula la pulsada, que esta se convierta en mayúscula.
Los ejemplos habituales son de este tipo

Código:
PUBLIC SUB TextBox1_KeyPress()

IF key.Text <> upper(key.Text)

STOP EVENT

ENDIF

END

¿Pero como hacer algo que cambie el key.code?

Código:
PUBLIC SUB TextBox1_KeyPress()

IF key.Text <> upper(key.Text)

' Ahora uso esto pero es posible modificar directamente el valor de la tecla

Last.Text = Last.Text & Upper(Key.Text)

Stop Event

'key.code = ? 'como conseguir el código de la mayúscula

' ¿Esto de aquí arriba se puede hacer ?

ENDIF

END

Aplicaciones/Fragmentos de Código Respuestas 10

Tablas foráneas referenciadas mas de una vez?

tincho 15-08-2022, 20:34

Hola.
Resulta que tengo una tabla "recipientes" con una lista de recipientes y en esta existen dos campos que apuntan a la tabla "unidades".
El caso es que al crear una vista salta un error de ambigüedad ya que le aparece mas de una vez el campo "unidades.name"

¿Como se puede sortear este inconveniente?

LEFT JOIN unidades ON recipientes.wtuom=unidades.idx
LEFT JOIN unidades ON recipientes.tuom=unidades.idx

Código:
CREATE TABLE "unidades" (

    "idx"    INTEGER,

    "name"    TEXT NOT NULL UNIQUE,

    "symbol"    TEXT,

    "type"    INTEGER,

    "basic"    TEXT,

    "other"    TEXT,

    FOREIGN KEY("type") REFERENCES "magnitudes"("idx"),

    PRIMARY KEY("idx" AUTOINCREMENT)

)

CREATE TABLE "recipientes" (

    "idx"    INTEGER,

    "tag"    TEXT NOT NULL UNIQUE,

    "wt"    REAL,

    "wtuom"    INTEGER,

    "temp"    REAL,

    "tuom"    INTEGER

    FOREIGN KEY("wtuom") REFERENCES "unidades"("idx"),

    FOREIGN KEY("tuom") REFERENCES "unidades"("idx"),

    PRIMARY KEY("idx" AUTOINCREMENT)

)

CREATE VIEW "view_recipientes" AS SELECT

    recipientes.idx AS idx,

    recipientes.tag AS tag,

    recipientes.wt AS wt,

    recipientes.wtuom AS wtuom,

    recipientes.temp AS temp,

    recipientes.tuom AS tuom,

    FROM recipientes

LEFT JOIN unidades ON recipientes.wtuom=unidades.idx

LEFT JOIN unidades ON recipientes.tuom=unidades.idx

ORDER BY recipientes.idx,recipientes.tag ASC

Nota: este es un ejemplo resumido pero en el caso real tengo 15 campos apuntando a la tabla unidades.

Bases de Datos Respuestas 3

Usercontrol / Options - Manejo de 8 opciones con un solo byte

tincho 13-08-2022, 22:21

Hola amigos.
Finalmente logre crear un control que usando un solo byte permite manejar 8 opciones.
Gracias a Cogier y Vuott que me ayudaron con la codificación del byte con la cadena de texto, pero también a Jerry, Oliver, Fabien de la lista internacional.
Dejo aquí el código por si a alguien le interesa y por supuesto cualquier mejora en la simplificación del código, mejora de eficiencia, etc. es bienvenida.
Espero que les resulte igual de divertido que lo que me resulto a mi.
Este control esta hecho con la intensión de usarlo para editar un campo de una base de datos donde cada Bit es un grupo de trabajo y un usuario puede pertenecer a mas de un grupo, luego solo se gurda un solo Byte en la table.
[Imagen: imuTVSt.gif]