draw line in rich textbox

Question

2.50/5 (2 votes)

See more:

hi
i want draw a line when press Enter key

like this

Hello World
___________________________
i am jack
___________________________
H r u jack?
___________________________

i cant :(

please help me

Posted 19-Sep-13 23:35pm

maxvel

Updated 19-Nov-19 17:47pm

Add a Solution

5 solutions

Solution 1

Hi, this code works for me:

VB

Private Sub RichTextBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyUp
    If e.KeyCode = Keys.Return Then
        RichTextBox1.AppendText("_______________")
        RichTextBox1.AppendText(Environment.NewLine)
    End If
End Sub

Have a nice day.

Posted 19-Sep-13 23:46pm

Love 2 code

Comments

maxvel 20-Sep-13 7:41am

HIno no

no append text :S

Draw the Line!

Solution 2

You can also do that in javascript detect enter key and then append the line and new line.
Can you give me link to the demo of that rich text editor.

Posted 20-Sep-13 0:02am

Ajay Matharu

Solution 5

If you want to draw in a control use :

http://msdn.microsoft.com/fr-fr/library/system.windows.forms.control.creategraphics.aspx[^]

http://msdn.microsoft.com/fr-fr/library/system.drawing.graphics.aspx[^]

Exemple :

VB

Dim gdi As Graphics = richTextBox1.CreateGraphics()
gdi.DrawLine(Pens.Black, new Point(0, (richTextBox1.Lines.Length + 1) * 10), new Point(50, (richTextBox1.Lines.Length + 1) * 10))
gdi.Dispose()

Posted 20-Sep-13 4:05am

Thomas Barbare

Updated 20-Sep-13 4:28am

v3

Solution 3

http://s4.picofile.com/file/7932804408/rich5.png[^]

lik this picture!

Posted 20-Sep-13 1:43am

maxvel

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)

maxvel · Accepted Answer · 2013-09-20T05:00:00

Private Sub RichTextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
      ' Get current line number in RichTextBox
      Dim currentLine As Int32 = 0
      Dim P As Point = New Point(0)
      GetCaretPos(P)
      Dim Pos As Integer = Me.RichTextBox1.GetCharIndexFromPosition(P)
      currentLine = Me.RichTextBox1.GetLineFromCharIndex(Pos)

      ' Presume you manage to get line height and line space
      Dim lineHeight As Double
      Dim lineSpace As Double

      ' You can get current Y coordinate in RichTextBox
      Dim Y As Int32 = Math.Floor((lineHeight + lineSpace) * currentLine)

      If e.KeyCode = Keys.Enter Then

          Dim myPen As New System.Drawing.Pen(Color.Red)
          Dim formGraphics As System.Drawing.Graphics
          formGraphics = RichTextBox1.CreateGraphics()
          formGraphics.DrawLine(myPen, 0, Y, Me.RichTextBox1.Width, Y)
          myPen.Dispose()
          formGraphics.Dispose()
      End If

  End Sub

this code draw line on top of rich text box! i want draw line Bottom of each line!

and this code draw a line on bottom of rich text box but not Fixed

Dim currentLine As Int32 = 0

       Dim P As Point = New Point(0)

       GetCaretPos(P)

       Dim Pos As Integer = Me.RichTextBox1.GetCharIndexFromPosition(P)

       currentLine = Me.RichTextBox1.GetLineFromCharIndex(Pos)



       'MessageBox.Show(currentLine)

       ' Presume you manage to get line height and line space

       If currentLine > 0 Then

           Dim lineHeight As Double

           Dim lineSpace As Double



           ' You can get current Y coordinate in RichTextBox

           Dim Y As Int32 = Math.Floor((lineHeight + lineSpace) * currentLine)



           If e.KeyCode = Keys.Enter And RichTextBox1.Lines(currentLine - 1) = "" Then

               Dim myP As Point = RichTextBox1.GetPositionFromCharIndex(RichTextBox1.SelectionStart)

               Dim myPen As New System.Drawing.Pen(Color.Black)

               Dim formGraphics As System.Drawing.Graphics



               formGraphics = RichTextBox1.CreateGraphics() 'the control where you want to paint the line

               formGraphics.DrawLine(myPen, myP.X, myP.Y, Me.RichTextBox1.Width, myP.Y)

               myPen.Dispose()

               formGraphics.Dispose()

               'TextBox1.Text = myP.Y & " " & myP.X

           End If

       End If

and this code was not true

VB

RichTextBox1.AppendText("HI")

       Dim gdi As Graphics = RichTextBox1.CreateGraphics()
       gdi.DrawLine(Pens.Black, New Point(0, (RichTextBox1.Lines.Length + 1) * 10), New Point(50, (RichTextBox1.Lines.Length + 1) * 10))
       gdi.Dispose()

       RichTextBox1.AppendText(vbNewLine)