Leer de derecha a izquierda
Soy nuevo en este foro y necesito ayuda, tengo que realizar una conexión de una base de datos para un formulario a visual basic, eso ya lo realice y los datos son almacenados en un text, el problema es que ahora tengo que darle vuelta a ese texto en otro text pero no se como realizarlo, es decir en si en el text1.text dice "rojo" en texto2.text deberá de decir "ojor" y así con cualquier palabra pero no se como hacer cambiar la dirección del texto.
1 Respuesta
Respuesta de ifrancoz
1
Dim I as integer
Dim J as integer
Dim K as Integer
Private Sub Voltear_Click()
Texto2=""
J = 0
I = Len(Texto1)
If I = 0 then
Msgbox "El Texto1 esta vacio"
Exit Sub
Else
For K = I To 1 Step -1
J = J + 1
Texto2=Texto2 & Mid(Texto1, K, 1)
Next
End If
End Sub
Suerte !
Dim J as integer
Dim K as Integer
Private Sub Voltear_Click()
Texto2=""
J = 0
I = Len(Texto1)
If I = 0 then
Msgbox "El Texto1 esta vacio"
Exit Sub
Else
For K = I To 1 Step -1
J = J + 1
Texto2=Texto2 & Mid(Texto1, K, 1)
Next
End If
End Sub
Suerte !
