https://foro.gambas-es.org/viewtopic.php?f=5&t=3014&p=17028#p17028
-----------------------------------
Shell
Domingo, 24 Marzo 2013, 14:39

Re: Ejemplo Con Clase String
-----------------------------------
Una posible mejora del código seria utilizar un array de controles de los botones.
Tendríamos que crear un grupo botones y asignarles un valor a su propiedad tag
a cada botón.

[code linenumbers=false syntax=gambas]
Public Sub Botones_Click()

  Dim i As Integer
  
  TextArea2.Text="" 'Limpiamos el TextArea2    
  Select Last.tag
    Case 0
    For i = 1 To Len(cadena)
        Wait 0.05
     TextArea2.Text &= Mid$(cadena, i, 1)
    Next 
    Case 1
      For i = 1 To String.Len(cadena)
        Wait 0.05
     TextArea2.Text &= String.Mid$(cadena, i, 1)
    Next 
  End Select  

End
[/code]
Fijaros que aún se repite algo de código común a los dos botones.

Saludos


