Ejemplo con Lista Circular aplicado al enfoque

Shell 01-09-2022, 16:17

(01-09-2022, 15:45)cogier escribió: Prueba a sustituir todo el código por lo siguiente: -

Efectivamente. Era posible hacerlo de otra forma. Wink

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. Tongue

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

End

Quizá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

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln