Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Ejemplo Con Clase String

Ejemplo Con Clase String
Artículo
Responder citando    Descargar mensaje  
Mensaje 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



 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Domingo, 24 Marzo 2013, 14:12 ]
 


Ejemplo Con Clase String
Comentarios
Responder citando    Descargar mensaje  
Mensaje 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 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Domingo, 24 Marzo 2013, 14:39 ]
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
Publicar nuevo tema  Responder al tema  Página 1 de 1
 
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno