Ejemplo Con Clase String


Objetivo: Ejemplo Con Clase String
Hola!.

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.

clasestring1

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:

clasestring2

Al igual que dos caracteres.

Si usamos la clase String veremos la salida de esta forma:

clasestring3_1364130433_591262

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


Saludos

Objetivo: 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.

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

Fijaros que aún se repite algo de código común a los dos botones.

Saludos

última edición por Shell el Domingo, 24 Marzo 2013, 14:43; editado 1 vez

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.0511s (PHP: -4% SQL: 104%)
Consultas SQL: 21 - Debug off - GZIP Activado