Select a Line in a RTB

[macai]

Hello! All i want to know is, how can i select a SPECIFIC line? The
whole line! I mean, all i have to do is run an index number
through it and it will select that line!

Lets say if i want line 2 selected...the second line in that RTB will
become selected.... make sense? Can anybody help me?

[phinds]

you'll have to search for vbCrLf and capture the stuff between number n-1 and number n.

look on planetsourcecode and see if somebody's already done it.

[ben1523]

I know a lot of people don't like it but you could try sendkeys home, then shift and end, I cant remeber the special codes for ctrl, shift, alt etc, sorry, look them up in help.

[MidgetsBro]

Do you have code to get the line number?

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
Long, ByVal wParam As Long, lParam As Any) As Long
 
Public Function GetLineFromChar(CharPos As Long) As Long
'Returns the zero based line number of the line
'that contains the specified character index
    GetLineFromChar = SendMessage(txtCodeFile.hwnd, EM_LINEFROMCHAR, CharPos, 0&)
End Function 
'call the above function like this:
'MsgBox GetLineFromChar(RichTextBox1.SelStart)

and once you have the cursor in that line, just use InstrRev to find the last vbCrLf from the position of the cursor, then use InStr to find the next vbCrLf from the position of the cursor, then use Mid to get the data between those two positions.

I've gotta go to work right now, but I'll try to write some code to do it when I get there.

[macai]

I dont want to get the line number, I want to SELECT the line in
the RTB! As for SendKeys...just give me the key combination
string and ill try!

[<ABX]

Hold Shift And Press --> as Many Times as the Line is Long

[macai]

THis is what im trying to say...i dont know the symbol for shift in
SendKeys.

[<ABX]

Heres Some Code

//See Attached Textfile for clsKeys

'note ur gonna have to set the focus the the line in the rtb
 
Dim clsKeys as clsKeys
Set clskeys = new clsKeys
Dim I as Integer
 
PressKeyVK keyShift, True
 
Do Until I = Len(Line)
     PressKeyVK keyRight
     I = I + 1
Loop
 
PressKeyVK vkShift, False, True

[macai]

I got it! I wrote a sub routine that will select the line that the cursor is on in the given RTB...heres the code if anyone's interested:

Public Sub SelLine(RTB As RichTextBox)
 Dim x As Long, i As Integer
 Dim y As String, z As String, a As String
 y = 0
 a = 0
 z = 0
 Dim bolBegin As Boolean, bolEnd As Boolean
 x = RTB.GetLineFromChar(RTB.SelStart)
 i = RTB.SelStart
 
 'a = RtB.GetLineFromChar(i)
 If RTB.GetLineFromChar(i) = 0 Then
  bolBegin = True
  y = 1
 End If
 If RTB.GetLineFromChar(i) = UBound(Split(RTB.Text, vbNewLine)) Then
  bolEnd = True
  z = Len(RTB.Text)
 End If
 Do Until RTB.GetLineFromChar(i) = x - 1 Or bolBegin = True
  i = i - 1
 Loop
 i = i + 1
 y = 0
 If Not bolBegin Then y = i
 i = RTB.SelStart
 Do Until RTB.GetLineFromChar(i) = x + 1 Or bolEnd = True
  i = i + 1
 Loop
 z = Len(RTB.Text) + 1
 If Not bolEnd Then z = i
 z = z - y
 RTB.SelStart = y
 RTB.SelLength = z
 RTB.SetFocus
End Sub

[sridharavijay]

dim LineStart() as long
'After the textbox is loaded, CALL THIS FUNCTION
private sub LoadLineNumbers()
dim temp as long
dim curInd as long
rtbbox.SelStart=0
do while curInd<=len(rtbbox.text)
redim Preserve LineStart(0 to temp)
LineStart(temp)=curInd
rtbbox.Upto chr(13)+chr(10),true,false
rtbbox.selstart=rtbbox.selstart+2
curInd=rtbbox.selStart
temp=temp+1
loop

end sub
'If you execute this routine you'll have all the line start positions in the array
'Now if you want to get a particular line into a sstring just call this function with line 'number

private function GetTheLine (lineNo as long) as string
if lineNo>UBound(LineStart)+1 or lineNo<=LBound(LineStart) then
dim temp as long
rtbbox.selstart=LineStart(lineNo-1)
rtbbox.Upto chr(13)+chr(10),true,false
temp=rtbbox.selstart
rtbbox.selstart=LineStart(lineNo-1)
rtbbox.selLength=temp-rtbbox.selstart
GetTheLine=rtbbox.seltext
rtbbox.sellength=0
else
msgbox "Error in accessing the line number",vbCritical
end if

end function

[DiGiTaIErRoR]

On vb-world.net there is a sample program which does this and more.