Syntax coloring

Printable View

Syntax coloring

I wrote this little program for syntax coloring somthing (letters ect).

But It gives me the error "cannot convert Number to integer" With the first case. Can some one help?

VB Code:

Private Sub RichTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox.TextChanged
        Dim source As String
 
        Dim rtb As New RichTextBox ' name rtb as a RichText Box type
        Dim Codearray() As String ' It's the array of text
        Dim currentline As String ' The currentline of Text
        Dim Line As Integer ' Dunno why I can't use somthing smaller ...
        Dim I As Decimal 'Largestest thing
        Codearray = Split(source, vbCrLf) ' split Code array from source at Center Left
        For I = LBound(Codearray) To UBound(Codearray) 'From lower case to uppercase
            currentline = Codearray(I) ' Code array for line
            ' add auto tab
            Select Case Left() ' the left case
                Case "\" ' comments
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Italic) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Gray  'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
 
                Case "!" ' normal number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Strikeout) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Purple 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case "&" ' Literal 
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Green  'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case "%" ' Small number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.DarkRed 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case ""
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Bold) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.AntiqueWhite 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case "(" ' comments
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Italic) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Bisque  'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case ")" ' normal number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Strikeout) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Bisque 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case "{" ' Literal 
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Brown 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case "}" ' Small number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Brown 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case ":"
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Bold) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Pink 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                    If InStr(1, currentline, "(") > 0 Then
                        rtb.TabIndex = 1
 
                        Dim comment As Long
                        comment = InStr(InStr(1, currentline, ")"), currentline, "*")
 
                        rtb.SelectedRtf = rtb.SelectedRtf & Chr(10) & Chr(13)
                    End If
                Case Else
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Bold) ' make her bold!
                    rtb.BackColor() = Drawing.Color.Red 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
            End Select
        Next
    End Sub

Aug 4th, 2004, 06:27 PM
taxes

Hi,

I don't see how your Select case works at all!

" Select Case Left() ' the left case "

What is Left() ??
Aug 4th, 2004, 06:36 PM
Word2

I didn't compleatly program it. I was transeferring what I could from VB6. And that was in there. I don't even know the function, but last I remember, that wasn't giving me the error.

i don't know if this helps but i code like this but only c# comments are colorize. regex function and best for other event not the textchanged. in my case, button click

VB Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim re As New Regex("(//.*[\n])|(///.*[\n])|(#region.*[\n])|(/\*.*?\*/)|(/\*[^""]*\*/)", RegexOptions.IgnoreCase)
      Dim mc As MatchCollection = re.Matches(RichTextBox1.Text)
      Dim ma As Match
      For Each ma In mc
         RichTextBox1.HideSelection = True
         RichTextBox1.Select(ma.Index, ma.Length)
         RichTextBox1.SelectionColor = Color.Green
         RichTextBox1.SelectionStart = ma.Index + ma.Length
         RichTextBox1.SelectionLength = 0
         RichTextBox1.SelectionColor = Color.Black 'revert the color
      Next
   End Sub

if this doesn't help, sorry.

help from pirate and dynamic_sysop

Aug 5th, 2004, 07:28 AM
taxes

Quote:

Originally posted by Word2
I didn't compleatly program it. I was transeferring what I could from VB6. And that was in there. I don't even know the function, but last I remember, that wasn't giving me the error.

Hi,

Before posting code you must check it out yourself to make sure of the problem you are posting.

Your select case cannot possibly work as posted. Left() has two possibilities in VB.NET. If used in a form it refers to the Left position. If used where a string is the only possibility involved, then it refers to the leftmost characters. Neither of these two circumstances apply to your posted code. It should not even compile, so please check it out yourself and then post your problem.

I have checked and replaced. But it now atleast lets me enter letters and such. Althought, it still will not color the string.

My new code compiles and runs with no runtime errors, but doesn't color the line.

VB Code:

Private Sub RichTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox.TextChanged
        Dim source As String
 
 
        Dim rtb As New RichTextBox ' name rtb as a RichText Box type
        Dim Codearray() As String ' It's the array of text
        Dim currentline As String ' The currentline of Text
        Dim I As Decimal 'Largestest thing
        Codearray = Split(source, vbCrLf) ' split Code array from source at Center Left
        For I = LBound(Codearray) To UBound(Codearray) 'From lower case to uppercase
            currentline = Codearray(I) ' Code array for line
 
            Select Case currentline
                Case "\" ' comments
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Italic) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Gray  'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
 
                Case "!" ' normal number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Strikeout) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Purple 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case "&" ' Literal 
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Green  'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case "%" ' Small number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.DarkRed 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case " "
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Bold) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.AntiqueWhite 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case "(" ' comments
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Italic) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Bisque  'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case ")" ' normal number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Strikeout) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Bisque 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case "{" ' Literal 
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Brown 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case "}" ' Small number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Brown 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                Case ":"
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Bold) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Pink 'Change color
                    rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)
                    If InStr(1, currentline, "(") > 0 Then
                        rtb.TabIndex = 2
 
                        Dim comment As Long
                        comment = InStr(InStr(1, currentline, ")"), currentline, "*")
 
                        rtb.SelectedRtf = rtb.SelectedRtf & Chr(10) & Chr(13)
                    End If
                Case Else
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedText = Len(currentline) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Bold) ' make her bold!
                    rtb.BackColor() = Drawing.Color.Red 'Change color
            End Select
        Next
 
    End Sub

Aug 6th, 2004, 03:50 PM
taxes
Hi,

Looking at all your posts I still think your Select Case is wrong. Unless there is only one character in currentline I think it should be
VB Code:
```
Select Case Microsoft.VisualBasic.Left(currentline, 1)
```
Aug 8th, 2004, 01:36 PM
Word2

Unfortunatly that didn't change anything.
Aug 8th, 2004, 06:39 PM
taxes

Quote:

Originally posted by Word2
Unfortunatly that didn't change anything.

Right.

I have copied your code in full. There are a lot of errors. assuming you have Option Strict On, each of your

rtb.SelectedText = Len(currentline)

should be

rtb.SelectedText = CStr(Len(currentline))

Also, the string Source never gets filled and I would guess that your code

rtb.SelectedRtf = rtb.Text = Chr(10) & Chr(13)

should be

rtb.SelectedRtf = rtb.Text & Chr(10) & Chr(13)

ALSO, you cannot declare I as Decimal and then use it as an integer in the array.

I cannot see how you have made the rtb visible, so have you put one on the form from the toolbox as well as having created an instance in code?

I do not see how your posted code could possibly have compiled.
Aug 8th, 2004, 07:57 PM
SuperSparks

And you need to start learning about debugging procedures. A breakpoint inserted at the beginning of that code (when you do manage to compile it) wil give you a big clue as to where the problem lies - ie is it the Select Case not matching the conditions, or is it the code within the Case startements not doing what you expect.

Ok, fixed everything you said, and then some :P.

I get this error apon running it.

Invalid file format.

VB Code:

Private Sub RichTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox.TextChanged
        RichTextBox.Visible = True
 
        Dim source As String
        Dim rtb As New RichTextBox ' name rtb as a RichText Box type
        rtb.Visible = True
        Dim Codearray() As String ' It's the array of text
        Dim currentline As String ' The currentline of Text
        Dim I As Long 'Largestest thing
        Codearray = Split(source, vbCrLf) ' split Code array from source at Center Left
        For I = LBound(Codearray) To UBound(Codearray) 'From lower case to uppercase
            currentline = Codearray(CInt(I)) ' Code array for line
 
            Select Case currentline
                Case "\" ' comments
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedRtf = CStr(Len(currentline)) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Italic) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Gray  'Change color
                    rtb.SelectedRtf = rtb.Text & Chr(10) & Chr(13)
 
                Case "!" ' normal number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedRtf = CStr(Len(currentline)) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Strikeout) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Purple 'Change color
                    rtb.SelectedRtf = rtb.Text & Chr(10) & Chr(13)
                Case "&" ' Literal 
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedRtf = CStr(Len(currentline)) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Green  'Change color
                    rtb.SelectedRtf = rtb.Text & Chr(10) & Chr(13)
                Case "%" ' Small number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedRtf = CStr(Len(currentline)) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.DarkRed 'Change color
                    rtb.SelectedRtf = rtb.Text & Chr(10) & Chr(13)
                Case ")" ' normal number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedRtf = CStr(Len(currentline)) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Strikeout) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Bisque 'Change color
                    rtb.SelectedRtf = rtb.Text & Chr(10) & Chr(13)
                Case "{" ' Literal 
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedRtf = CStr(Len(currentline)) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Brown 'Change color
                    rtb.SelectedRtf = rtb.Text & Chr(10) & Chr(13)
                Case "}" ' Small number
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedRtf = CStr(Len(currentline)) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Regular) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Brown 'Change color
                    rtb.SelectedRtf = rtb.Text & Chr(10) & Chr(13)
                Case ":"
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedRtf = CStr(Len(currentline)) ' select text
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Bold) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Pink 'Change color
                    rtb.SelectedRtf = rtb.Text & Chr(10) & Chr(13)
                    If InStr(1, currentline, "(") > 0 Then
                        rtb.TabIndex = 2
 
                        Dim comment As Long
                        comment = InStr(InStr(1, currentline, ")"), currentline, "*")
 
                        rtb.SelectedRtf = rtb.SelectedRtf & Chr(10) & Chr(13)
                    End If
                Case Else
                    rtb.Text = currentline ' trb on current line
                    rtb.SelectedRtf = CStr(Len(currentline)) ' select text ' ' ' 'Error is here' ' ' 
                    rtb.SelectionFont = New Font(rtb.SelectionFont, FontStyle.Bold) ' make her bold!
                    rtb.ForeColor() = Drawing.Color.Brown 'Change color
            End Select
        Next I
        CCE.ActiveForm.Text = rtb.Text
        CCE.ActiveForm.Refresh()
 
    End Sub

I get it in the "rtb.SelectedRtf = CStr(Len(currentline))"
Line.

Aug 8th, 2004, 08:41 PM
Word2

Quote:

Originally posted by SuperSparks
And you need to start learning about debugging procedures. A breakpoint inserted at the beginning of that code (when you do manage to compile it) wil give you a big clue as to where the problem lies - ie is it the Select Case not matching the conditions, or is it the code within the Case startements not doing what you expect.

I changed it. Now it freezes on the Case Else.

Break points. Will look into.