+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Ejemplo con Lista Circular aplicado al enfoque (/thread-1008.html)
Ejemplo con Lista Circular aplicado al enfoque - Shell - 01-09-2022
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]](https://i.imgur.com/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
EndSaludos
RE: Ejemplo con Lista Circular aplicado al enfoque - cogier - 01-09-2022
Prueba a sustituir todo el código por lo siguiente: -
Código:
Public Sub CajasDeTexto_KeyPress()
Dim hTBs As TextBox[] = [TextBox1, TextBox2, TextBox3, TextBox1]
If Key.code = Key.Return Or Key.code = Key.Enter Then hTBs[hTBs.Find(Last) + 1].SetFocus
EndRE: Ejemplo con Lista Circular aplicado al enfoque - Shell - 01-09-2022
(01-09-2022, 15:45)cogier escribió: Prueba a sustituir todo el código por lo siguiente: -
Efectivamente. Era posible hacerlo de otra forma.
Tu código está más optimizado que este último que iba a subir y que el primero.
Supongo que la lista indexada circular tendrá un mejor uso.
Tampoco conocía el componente gb.data
Este es el código que se me ocurrió para sustituir al primero que subí. Es que las cosas no salen a la primera.
Con lo sencillo que era con un array!.
Código:
Private lista As TextBox[]
Private indice As Integer
Public Sub Form_Open()
lista = New TextBox[]
lista.Insert([TextBox1, TextBox2, TextBox3])
End
Public Sub CajasDeTexto_KeyPress()
If Key.Code = Key.Enter Or Key.code = Key.Return Then
If indice = lista.Max Then
indice = 0
Else
indice += 1
Endif
lista[indice].SetFocus
Endif
EndQuizás este último código que muestro sea menos enrevesado por la sintaxis del método find del array, pero es más largo.
Saludos