Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Últimos temas

Estadísticas del foro
  • Mensajes del foro:4,790
  • Temas del foro:880
  • Miembros:167
  • Último miembro:alfonsoC3


Enviado por: tincho
Hace 3 horas
Foro: Aplicaciones/Fragmentos de Código
- Respuestas (1)

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

GAMBAS
  1. PUBLIC SUB TextBox1_KeyPress()
  2.  
  3. IF key.Text <> upper(key.Text)
  4.  
  5.  
  6.  
  7.  



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

GAMBAS
  1. PUBLIC SUB TextBox1_KeyPress()
  2.  
  3. IF key.Text <> upper(key.Text)
  4.  
  5. ' Ahora uso esto pero es posible modificar directamente el valor de la tecla
  6. Last.Text = Last.Text & Upper(Key.Text)
  7.  
  8. 'key.code = ? 'como conseguir el código de la mayúscula
  9. ' ¿Esto de aquí arriba se puede hacer ?
  10.  
  11.  


Imprimir


Enviado por: tincho
15-08-2022, 20:34
Foro: Bases de Datos
- Respuestas (3)

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

SQL
  1. CREATE TABLE "unidades" (
  2.     "idx"    INTEGER,
  3.     "name"    TEXT NOT NULL UNIQUE,
  4.     "symbol"    TEXT,
  5.     "type"    INTEGER,
  6.     "basic"    TEXT,
  7.     "other"    TEXT,
  8.     FOREIGN KEY("type") REFERENCES "magnitudes"("idx"),
  9.     PRIMARY KEY("idx" AUTOINCREMENT)
  10. )
  11.  
  12. CREATE TABLE "recipientes" (
  13.     "idx"    INTEGER,
  14.     "tag"    TEXT NOT NULL UNIQUE,
  15.     "wt"    REAL,
  16.     "wtuom"    INTEGER,
  17.     "temp"    REAL,
  18.     "tuom"    INTEGER
  19.     FOREIGN KEY("wtuom") REFERENCES "unidades"("idx"),
  20.     FOREIGN KEY("tuom") REFERENCES "unidades"("idx"),
  21.     PRIMARY KEY("idx" AUTOINCREMENT)
  22. )
  23.  
  24. CREATE VIEW "view_recipientes" AS SELECT
  25.     recipientes.idx AS idx,
  26.     recipientes.tag AS tag,
  27.     recipientes.wt AS wt,
  28.     recipientes.wtuom AS wtuom,
  29.     recipientes.temp AS temp,
  30.     recipientes.tuom AS tuom,
  31.     FROM recipientes
  32. LEFT JOIN unidades ON recipientes.wtuom=unidades.idx
  33. LEFT JOIN unidades ON recipientes.tuom=unidades.idx
  34. 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.

Imprimir


Enviado por: tincho
13-08-2022, 22:21
Foro: Controles/Librerías/Componentes
- Respuestas (5)

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]

Imprimir