i have some code i am working on andit keeps throwing an expression expected error. this code is designed to cheeck a RichTextBox form and highlight text, specified by a dictionary.

 Dim location As UInteger = 0
    Dim dict As Dictionary(Of String, ULong) = getWords(rText1)
    Dim wcount As Integer = 0
    For i As Long = 0 To dict.Count
        For j As Integer = 0 To args.Length
            If dict.ContainsKey(args(j)) Then
                For Each args(j) In dict.Keys
                    Dim count As ULong = dict.Values.ElementAt(wcount)
                    Dim colorSpace = count - args(j).Length
                    rText1.Select(colorSpace, count)
                    rText1.SelectionColor = Color.DarkBlue
                Next() 'error here
            End If
        Next
        For j As Integer = 0 To arithimic.Length
            If dict.ContainsKey(arithimic(j)) Then
                For Each arithimic(j) In dict.Keys
                    Dim count As ULong = dict.Values.ElementAt(wcount)
                    Dim colorSpace = count - arithimic(j).Length
                    rText1.Select(colorSpace, count)
                    rText1.SelectionColor = Color.OrangeRed
                Next() 'error here
            End If
        Next
        For j As Integer = 0 To logical.Length
            If dict.ContainsKey(logical(j)) Then
                For Each logical(j) In dict.Keys
                    Dim count As ULong = dict.Values.ElementAt(wcount)
                    Dim colorSpace = count - logical(j).Length
                    rText1.Select(colorSpace, count)
                    rText1.SelectionColor = Color.LightGreen
                Next() 'error here
            End If
        Next
    Next
    Dim index As Integer = rText1.Find(comment) 'this is not a for loop because it  only looks for one char
    If index <> -1 Then
        Dim lineindex As Integer = rText1.GetLineFromCharIndex(index)
        Dim first As Integer = rText1.GetFirstCharIndexFromLine(lineindex)
        Dim last As Integer = rText1.GetFirstCharIndexFromLine(lineindex + 1)
        If last = -1 Then last = rText1.TextLength
        rText1.Select(first, last - first)
        rText1.SelectionBackColor = Color.DarkGreen
    End If
End Function

any ideas?

Recommended Answers

All 2 Replies

Did you try taking out the parentheses after Next?

Try removing the parenthese () from each "Next" statement.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.