lucasybelu23504
17 de Enero del 2005

Necesito que me ayuden a terminar un programita con mscomm la cosa es la siguiente:

- No puedo lograr que el programa identifique un salto de linea(osea enter y sigue abajo), yo le pongo que seleccione un texto hasta el primer salto de linea y no identifica y sigue de corrido hasta el final del texto.
Mi codigo es el siguiente:

'btnenv = CommandButton
'edit = RichTextBox


Private Sub btnenv_Click()
For j = 0 To Len(edit.Text) Step 1
edit.SelStart = j
edit.SelLength = 1
edit.HideSelection = False
If edit.SelText = chr(13) Then GoTo f
Next
f:
End Sub

Por favor necesito respuestas urgentes...
Desde ya muchisimas gracias. Lucas Sosa

mvallejos
17 de Enero del 2005

El salto de linea son dos caracteres
Chr$(13) + Chr$(10)

Saludos

lucasybelu23504
17 de Enero del 2005

ya probe de todo y nada funciona, no tenes otra solucion
Igualmente Gracias

en?
17 de Enero del 2005

lucas, tal como tu dices, enter y sigue abajo són dos caracteres, los que te comentó Vallejos o lo que es lo mismo, la constante vbCrLf

Para que te funcione deberás cambiar el SelLength a 2.
PERO, hacer esto dispones del método «Find» del control RichTextBox, y básicamente lo harías así:
edit.Find vbCrLf, 0
busca en la ayuda este método para conocer los parámetros y las posibilidades que te ofrece.

Y si me permites un par de consejos...
- la propiedad .HideSelection no necesitas establecerla en cada iteración, mejor ponerla antes del bucle.

- Para salir del bucle no uses GoTo, usa «Exit For»
De hecho, mejor que te acostumbres a no usar GoTo nunca, ésta sólo existe por compatibilidad con las antiguas versiones. Si te malacostrumbras a usarlo, tendrás problemas con la depuración y mantenimiento de aplicaciones relativamente grandes.

__
Un saludo.