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

l_island
17 de Enero del 2005

La propiedad SelText omite los retorno de carro, te aconsejo que utilices esta modifcaci贸n de tu c贸digo:

For j = 1 To Len(edit.Text)
If Mid(edit.Text, j, 1) = Chr(13) Then goto f
Next J

Saludos!!
l_island