Creo que este ejemplo no lo he subido aun.
Aquí tenéis un ejemplo con la clase String.
Si usamos esta clase nos solucionara el problema con textos que tengan tildes.
Nuestro formulario esta compuesto por dos componentes TextArea y dos botones.
Cada TextArea tiene la propiedad Wrap a true, para que el texto se ajuste al área
de texto de cada TextArea.
En el ejemplo he tenido que usar el componente gb.qt4 ya que si no usamos la clase String y usamos
gb.gui mostrara mensajes de error en la consola.
Si no usamos la clase String se mostrara de esta forma:
Al igual que dos caracteres.
Si usamos la clase String veremos la salida de esta forma:
El código del ejemplo es este:
Private cadena As String = "La política es quizá la única profesión para la que no se considera necesaria ninguna preparación."
Public Sub _new()
End
Public Sub Form_Open()
Me.Center
TextArea1.Text = cadena
End
Public Sub btnConvertir1_Click()
Dim i As Integer
TextArea2.Text = ""
For i = 1 To Len(cadena)
Wait 0.05
TextArea2.Text = TextArea2.Text & Mid$(cadena, i, 1)
Next
End
Public Sub btnConvertir2_Click()
Dim i As Integer
TextArea2.Text = ""
For i = 1 To String.Len(cadena)
Wait 0.05
TextArea2.Text = TextArea2.Text & String.Mid$(cadena, i, 1)
Next
End
Public Sub _new()
End
Public Sub Form_Open()
Me.Center
TextArea1.Text = cadena
End
Public Sub btnConvertir1_Click()
Dim i As Integer
TextArea2.Text = ""
For i = 1 To Len(cadena)
Wait 0.05
TextArea2.Text = TextArea2.Text & Mid$(cadena, i, 1)
Next
End
Public Sub btnConvertir2_Click()
Dim i As Integer
TextArea2.Text = ""
For i = 1 To String.Len(cadena)
Wait 0.05
TextArea2.Text = TextArea2.Text & String.Mid$(cadena, i, 1)
Next
End
Saludos
