20/05/2010, 16:46
|
 | | | Fecha de Ingreso: febrero-2010 Ubicación: Santander/Huelva
Mensajes: 190
Antigüedad: 15 años Puntos: 5 | |
| Respuesta: ¿Que me quieren decir?
Perfecto!
Dim TamanioCadena As Integer = Len(TxtTexto.Text)
Dim CaracteresSeleccionar As Integer = TxtCarac.Text
Dim posicion As Integer = TxtPosicion.Text
Dim Str As String
Str = TxtTexto.Text.Substring(posicion, CaracteresSeleccionar)
MsgBox(Str) |