Comunidad Gambas-es

jsbsan 01-09-2022, 20:58

Hola amigos:

Hacia tiempo que no escribía, y quería comentaros una "pequeña" adquisición que hice hace varios meses y me esta resultando muy útil.

Os cuento:
Llevaba meses con dolores en la muñeca de la mano derecha, incluso se me dormían los dedos... estuve mirando por internet alguna solución, y vi que podía ser un tema de la muñeca (una enfermedad llamado tunel carpiano o tendinitis).

Me compré un raton vertical que estaba barato, de 12 euros, (ahora está un poco más caro, lo compre en ebay: https://www.ebay.es/itm/RATON-ERGONOMICO...2637f0d5b0) y empece a usarlo... al principio es un poco engorroso ya que es más alto de un ratón normal, y tropezaba cada dos por tres con él, cuando cambiaba al teclado y luego volvía al ratón.. Confused

.

Ya llevo varios meses usándolo, y me he acostumbrado a su uso.... y lo mejor es que en estos meses el dolor de la muñeca ha desaparecido... Big Grin

Ya os digo, una compra muy recomendable para los que llevéis muchas horas usando en el pc.

Saludos

Julio

Nota:
Otro problema que me esta surgiendo últimamente: vista cansada.... ¿alguna recomendación?

Hardware & IoT Respuestas 15

Ejemplo con Lista Circular aplicado al enfoque

Shell 01-09-2022, 13:12

Buenas!.

Después de dar muchas vueltas e intentando crear un código que lo hiciera, resulta que Gambas tiene el componente gb.data
que incluye la clase List que es una lista circular doblemente enlazada.

La idea del ejemplo es que tengo tres cajas de texto y al pulsar la tecla Enter o la Intro, el foco pasa de la primera a la segunda,
de la segunda a la tercera y cuando llega a la última y volvemos a pulsar Enter, vuelve a comenzar por la primera.

En este caso necesita que se pulse Enter. No me vale la tecla de tabulación.

[Imagen: ZAiisAz.png]

Código:
Private lista As List

Public Sub Form_Open()

  Me.Title = "Enfoque Circular"

  lista = New List

  'El primer elemento de la lista es el último insertado (la cabeza)

  'Una pila de TextBoxes en este caso. El tipo de dato que admite es Variant

  lista.Append(TextBox1)

  lista.Append(TextBox2)

  lista.Append(TextBox3)

End

Public Sub CajasDeTexto_KeyPress()

  If Key.code = Key.Return Or Key.code = Key.Enter Then     

    'Probar a cambiar del método MovePrev a MoveNext y ver el efecto

    'Se mueve al valor anterior. Si el actual era el primer valor, se convertirá en el último.

    lista.MovePrev

    'Se mueve del actual elemento al siguiente y si el actual es el último, se convertirá en el primero (es ciclico)

    'lista.MoveNext

    'Value es la caja de texto en si

    lista.Current.Value.SetFocus  

  Endif  

End

Saludos

Archivos adjuntos

CajasDeTextoFocoCircular-0.0.1.tar.gz (Tamaño: 12.5 KB Descargas: 3)

Aplicaciones/Fragmentos de Código Respuestas 2

Evento KeyPress, evitar funciones lógicas

Shell 31-08-2022, 12:36

Buenas!.

En este caso existe un evento que cumple una tarea y se llama al evento KeyPress del formulario.
Normalmente usamos sentencias de comparación o varias para saber si se ha pulsado una tecla.
A ver que os parece la forma de evitarla.

Código:
Public Sub Form_KeyPress()

  Dim teclas As Integer[] = [Key.Enter, Key.Return]

  'If Key.Code = Key.Enter Or Key.Code = Key.Return Then Button1_Click

  If teclas.Exist(Key.Code) Then Button1_Click

End

Como son constantes no puedo usa sus valores al comienzo del código y declarar teclas como pública.

Saludos

General Respuestas 2