Seleccionar una linea en un txtb0x

[NYlOn]

necesito saber como hacer para que cuando al hacer click en un textbox se seleccione toda una linea (no todo el textbox, solo la linea en la que se hizo click)
no se si es posible esto :S
muchas gracias de antemano

un abraz0

[Slasher-K]

Código [Seleccionar] Expandir


Private Sub txtData_Click()
  On Error Resume Next
 
           Dim lPos1&, lPos2&

  lPos1 = InStrRev(txtData, vbCrLf, txtData.SelStart)
  lPos2 = InStr(txtData.SelStart, txtData, vbCrLf)
 
  If lPos1 <= 0 Then lPos1 = 1
  If lPos2 <= 0 Then lPos2 = Len(txtData)
 
  txtData.SelStart = lPos1 + 2
  txtData.SelLength = lPos2 - lPos1 - 2
End Sub


Suponiendo que txtData es un TextBox.

Saludos.

[NYlOn]

muchas gracia Anhur 
pero t corrijo alg0 ^^

Código [Seleccionar] Expandir


Private Sub txtData_Click()
  On Error Resume Next
 
           Dim lPos1&, lPos2&

  lPos1 = InStrRev(txtData, vbCrLf, txtData.SelStart)
  lPos2 = InStr(txtData.SelStart, txtData, vbCrLf)
 
  If lPos1 <= 0 Then lPos1 = -2
  If lPos2 <= 0 Then lPos2 = Len(txtData)
 
  txtData.SelStart = lPos1
  txtData.SelLength = lPos2 - lPos1 + 0

End Sub


Bueno pero aca me surge otro problemaa  :'(
Cuando quiero pasar la linea seleccionada a otro txtbox,
(Text1.Text = txtData.SelText) me la pasa con 2 caracteres en los costad0s ><
intente sacarlos usando Left y Right pero no logro hacer que desaparezcan
por favor si se te ocurre alg0 para solucionar esto estaria muy agradecid0 xD

desde ya gracias x el codig0

un abraz0

[NYlOn]

wiiii
ya lo pude solucionar :

el codigo me kedo asi:

Código [Seleccionar] Expandir


Private Sub Text1_Click()
SendKeys "{DEL}"
SendKeys "{END}"
SendKeys "{BACKSPACE}"
End Sub

Private Sub txtData_Click()
  On Error Resume Next
 
           Dim lPos1&, lPos2&

  lPos1 = InStrRev(txtData, vbCrLf, txtData.SelStart)
  lPos2 = InStr(txtData.SelStart, txtData, vbCrLf)
 
  If lPos1 <= 0 Then lPos1 = -2
  If lPos2 <= 0 Then lPos2 = Len(txtData)
 
  txtData.SelStart = lPos1
  txtData.SelLength = lPos2 - lPos1 + 0

    Text1.Text = txtData.SelText
    Text1.SetFocus
    Text1_Click
End Sub


MUCHISIMAS GRACIAS Anhur x el codigo y te quiero felicitar x tu gran labor en el foro
no hay nada que no sepas wacho xD

GRACIAS, DE VERDAD

un abraz0

G0nz4