Color-Code HTML The Lazy Way

Category:

ASP, HTML and XML

Type:

Snippets

Difficulty:

Intermediate

Author:

The Caveman

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

Color-Code HTML Code in a RichTextBox. See comments for usage explanation.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

''HTML Color Code The Lazy Way
''Code by: The Caveman
''E-Mail: thecaveman@phreaker.net

''Notes:
''1.Mainbox is a richtext box where your code to be colored is
''2.You might want to add a mainbox.selcolor = vbBlack to your mainbox_Change 
''event to make sure that any new text will come up black

Private Sub ColorCodeBTN_Click()

Dim needle1, needle2, colorvar As Variant
Dim holder, difference1, difference2, start, startpos, endpos, between, check, goo As Long

mainbox.SetFocus            
''\<--Mainbox is the rich text box where the code will be colored
holder = mainbox.SelStart   
''|<--Remember Where Cursor Is
mainbox.SelStart = 0        ''| Make everything black
mainbox.SelLength = 90000   ''|
mainbox.SelColor = vbBlack  ''/
redo:
        Select Case goo
        
        Case Is = 0
            needle1 = "<"     ''1st Search String                               \
            needle2 = ">"     ''2nd Search String                               |
            colorvar = vbBlue ''Color To HighLight With                         |Color Tags
            difference1 = 1   ''# of spaces to add to the end of selection set  |
            difference2 = 0   ''Skip this many spaces from initial find         /
            
        Case Is = 1
            needle1 = Chr(61) & Chr(34)  ''\<--61 is a = and 34 is a "
            needle2 = Chr(34)            ''|
            colorvar = vbRed             ''|Color Variables
            difference1 = 0              ''|
            difference2 = 1              ''/
        
        Case Is = 2
            needle1 = ""              ''|
            colorvar = RGB(60, 114, 0)   ''|Color Comments
            difference1 = 3              ''|
            difference2 = 0              ''/
        
        Case Is = 3
            needle1 = "<SCRIPT"          ''\
            needle2 = "</script>"        ''|
            colorvar = RGB(255, 140, 10) ''|Color Scripting
            difference1 = 9              ''|
            difference2 = 0              ''/
            
        Case Is = 4
            GoTo final                  ''Skip Coloring Process
    End Select

Do Until 1 = 2
            If check = 0 Then        ''\
                start = 0            ''|
                check = 1            ''|Ensure the search starts from the beginning
                Else                 ''|
                start = startpos + 1 ''|
            End If                   ''/
                
            startpos = mainbox.Find(needle1, start) ''Find Begin Tag
                
            If startpos = -1 Then  ''\
            GoTo ender             ''|Check to see if it wasn't found
            End If                 ''/
            
            endpos = mainbox.Find(needle2, (startpos + 2)) '' Find End Tag
            
            between = endpos - startpos          ''Find space between needles
            
            mainbox.SelStart = (startpos + difference2)     ''\
            mainbox.SelLength = (between + difference1)     ''|Select and color the code
            mainbox.SelColor = colorvar                     ''/
            
        Loop
        
ender:
        goo = goo + 1 ''Advance to next coloring step
        GoTo redo:    ''Restart Coloring Process

final:
mainbox.SelStart = holder ''Return to where the cursor was before color code

End Sub