RichTextBox.NET + Line Number in Left Margin

Hi RonaldBiemans,

Thanks for the reply.  But I was more interested in .NET implementation.  I see that there are a lot of API calls and it would be very hard to convert all of those to .NET. :(  Issues like compatibility and speed, etc are a main concern.  If there is a solution out there that is *pure* .NET, that is better.


:)

I haven't found one yet, but could you not use 2 richtextboxes (One readonly)

Or you could use a grid without gridlines

Unfortunately no.  I am building a code repository...  users have to type/edit code.

hec",)

I haven't found one yet but maybe this will help you on your way, create to richtextboxes next to each other.
This will count the correct lines, you will see if you test this.
If you tweek this code I think it will do what you want

    Private Sub RichTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyUp
        Dim x As Point = RichTextBox1.GetPositionFromCharIndex(RichTextBox1.SelectionStart)
        Dim curline As Integer
        Dim curposchar As Integer
        curline = RichTextBox1.GetLineFromCharIndex(RichTextBox1.SelectionStart).ToString()
        curposchar = RichTextBox1.GetCharIndexFromPosition(x)

        ReDim RichTextBox2.Lines(curline + 1)

        gotoline(RichTextBox2, curline, 0)
        RichTextBox2.SelectedText = telchar(RichTextBox1.Text, CStr(curposchar))
        RichTextBox1.Focus()
    End Sub

    Private Function telchar(ByVal str As String, ByVal lt As Integer) As Integer
        Dim i As Integer = 0
        Dim tel As Integer = 0
        For i = 1 To lt
            If str.Chars(i) = vbLf Then
                tel += 1
            End If
        Next
        Return tel
    End Function

sorry forgot one, and
create to richtextboxes next to each other should be
create 2 richtextboxes next to each other.

    Private Sub gotoline(ByVal rtb As RichTextBox, ByVal line As Integer, ByVal column As Integer)
        Dim offset As Integer = 0
        For i As Integer = 0 To line - 1 And rtb.Lines.Length > i
            offset += rtb.Lines(i).Length + 1
        Next
        rtb.Focus()
        rtb.Select(offset + column, 0)
    End Sub

Hi RonaldBiemans,

I tried and there are a couple of things I found.

1.  The previous line number disappear when a new one is displayed.  On the redim portion?

2.  Its not working when wordwrap toggled.  Is it because of 1?


Thanks,
hec",)

I'm still working on it, I think I've solved the first issue. But a question on the second, is wordwrap always on or off, or must the user be able to switch (I don't like the last option ;-)  ) ?

The user is able to switch it on/off.

Please post solution for #1.

Thanks,
hec",)