Seleccionar una linea en un txtb0x

Iniciado por NYlOn, 27 Agosto 2005, 00:38 AM

0 Miembros y 1 Visitante están viendo este tema.

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


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.



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*

NYlOn

muchas gracia Anhur  :D
pero t corrijo alg0 ^^

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 ::D

el codigo me kedo asi:

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