How to get carriage return position in richtextbox

Question

3.20/5 (5 votes)

See more:

Hi,

I am working on a customized editor pad in vb.net where I need to wrap line after particular number of characters.

This is done but now my problem is that when I remove a character in the middle of an already wrapped line it is not adjusting the line as a default editor should behave.
I wrote my algorithm for this purpose but I need some code to help solve my problem.

I need to find the previous/next carriage return position from current cursor position in the RichTextBox.

Any help would be appreciated.

Thanks

Posted 1-Jun-11 20:00pm

R. S. Verma

Updated 2-Jun-11 14:13pm

Dalek Dave

v3

Add a Solution

Comments

Sergey Alexandrovich Kryukov 2-Jun-11 2:01am

Tag it: Forms, WPF, what?!
--SA

R. S. Verma 2-Jun-11 8:10am

In Form, am developing editor in vb.net using forms
and condition is when i type in rich text box, it should be terminited every after 45 character.
this part is done , now my requirement is when i remove/ add character in between above line then it should also be get terminated/ add next line in the current line, means not any line should go beyond 45 character length.
thanks...

Dalek Dave 2-Jun-11 20:13pm

Edited for Readability.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Kschuler · Accepted Answer · 2011-06-02T11:26:00

Solution 1

If I understand correctly, you have it working to automatically put in carriage returns while a user is typing but if they go back and edit a line it doesn't work. Well, how is it supposed to work? Is it supposed to redo analyze the entire textbox? Or just add another carriage return on the current line?

Have you tried the RichTextBox.Find[^]?

If you've tried that but isn't working, maybe you could post a snippet of code to better illustrate what you are trying to do.

Posted 2-Jun-11 11:26am

Kschuler

Comments

R. S. Verma 3-Jun-11 1:45am

ya sure i would like to share the code...

[code]
Private Sub rtbDoc_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles rtbDoc.KeyPress
'Author : Ravi

If LineCharCounter >= 45 And e.KeyChar <> Chr(8) Then
LastSpacePos = InStrRev(rtbDoc.Text, " ", -1) ' find last space position
LastTabPos = InStrRev(rtbDoc.Text, Chr(9), -1) ' find last tab position
rtbDoc.WordWrap = True
If LastSpacePos > LastTabPos Then
rtbDoc.Text = rtbDoc.Text.Insert(LastSpacePos, Chr(13) & Chr(10))
Else
rtbDoc.Text = rtbDoc.Text.Insert(LastTabPos, Chr(13) & Chr(10))
End If
System.Windows.Forms.SendKeys.Send("{PGDN}")
'getting last char when this condition gets satisfied
lastChar = e.KeyChar.ToString()
totLen = rtbDoc.Text.Length
rtbDoc.Text = rtbDoc.Text.Insert(totLen, lastChar.ToString())
chkGarbage = True ' this line use less
LineCounter = LineCounter + 1 ' count lines manually
LineCharCounter = totLen - LastSpacePos ' getting exact character at each new line
ElseIf e.KeyChar = Chr(13) Then ' return key handling
LineCharCounter = 0
LineCounter = LineCounter + 1
ElseIf e.KeyChar = Chr(8) Then ' backspace handling
If LineCharCounter > 0 And LineCounter > 0 Then
LineCharCounter = LineCharCounter - 1
ElseIf LineCounter > 1 Then
LineCharCounter = 45
LineCounter = LineCounter - 1
End If
' Handling Backspace here
'MessageBox.Show("Current Cursur :" & caretPosition & " Next Returnkey Pos:" & BackSpace(caretPosition), "String Caret Position")
ElseIf e.KeyChar = Chr(9) Then ' Tab key- Tab key is not passed to controls by default as it is needed to provide navigation in a form.
LineCharCounter = LineCharCounter + 8 ' Mark AcceptTab key as True in property window
Else
LineCharCounter = LineCharCounter + 1

End If

End Sub

[Code]

Private Sub rtbDoc_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rtbDoc.KeyUp
' Author : Ravi
If chkGarbage = True Then
rtbDoc.Text = rtbDoc.Text.Remove(0, 1)
chkGarbage = False
'System.Windows.Forms.SendKeys.Send("{PGDN}")' no use now
'These two line always keep caret at the End of File
rtbDoc.SelectionStart = Len(rtbDoc.Text)
rtbDoc.SelectionLength = 0
End If
End Sub
[End Code]

Now here i terminate the line on keypress and when i go back from previous line it is not maintain 45 character limit...
thnkx..