Comunidad Gambas-es

Fijar el valor de uno de los paneles de Splitter

alberto-moyano 01-09-2022, 22:54

Hola gente, la duda es la siguiente, estoy aplicando en los valores de Layout de un Splitter para la relación de tamaño de los paneles.

Código:
Splitter3.Layout = [2, 6]

Pero la relación se mantiene siempre en el redimensionamiento del formulario y lo que busco es que el panel izquierdo tenga un valor fijo en pixeles indistintamente del tamaño del formulario.

Hice algunas pruebas con las propiedades MinSize pero aplica a todo el Splitter.

Si alguien tiene idea de por donde van los tiros, se agradece.

Sls

Aplicaciones/Fragmentos de Código Respuestas 2

raton vertical vs tunel carpiano

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