Visual Basic Editor Environment

[Raydr]

Hi, I'm trying to write a program that uses a richtextbox, and does what the VB Enviroment does to keywords, for example:

Public Sub SelectLineText(EditControl As Control, ByVal nLineNumber As Long)
Dim lIndex As Long
Dim lc As Long
Dim LineBuffer As String
    
  'Ensure Linenumber valid
  If nLineNumber < 0 Then nLineNumber = 0
  lc = GetMaxLines(EditControl.hWnd)
  If nLineNumber > lc - 1 Then nLineNumber = lc - 1
  'Return starting char pos on passed line number
  lIndex = SendMessageByNum(EditControl.hWnd, EM_LINEINDEX, nLineNumber, 0&)
  'Return the length of the passed line number
  lc = SendMessageByNum(EditControl.hWnd, EM_LINELENGTH, lIndex, 0&) + 1
  EditControl.SelStart = lIndex
  EditControl.SelLength = lc
  Debug.Print EditControl.SelText
End Sub

See how this message board changes the colors of all the keywords and comments? I want my program to do the same, but it's proving a little harder than I thought it would be.

Has anyone already written a program like this, using a RichTextBox? Please let me knowwww. =)

[Raydr]

Uh, what the heck?

'Testing
For x = 0 to 100
     MsgBox("Why didn't it work???")
Next x

hmm...

Here's a code i used for a BASIC Editor, but it will work in your case as well. Make a Form with a RichTextBox in it. Add this code to the General Section.

Option Explicit



Private Sub HighlightText(sKeyword As String, iColour As Long)

Dim nStart As Integer, sPrevChar As String, sNextChar As String

                                           
nStart = InStr(1, LCase(RichTextBox1.Text), sKeyword)
                                            
                                            
Do While nStart <> 0

If nStart > 1 Then
    sPrevChar = Mid$(RichTextBox1.Text, nStart - 1, 1)
Else
    sPrevChar = " "
End If
                                                

If Len(RichTextBox1.Text) >= nStart + Len(sKeyword) Then
    sNextChar = Mid$(RichTextBox1.Text, nStart + Len(sKeyword), 1)
Else
    sNextChar = " "
End If
                                                   

If (sPrevChar = Chr(32) Or sPrevChar = Chr(13) Or _
sPrevChar = Chr(10) Or sPrevChar = Chr(9)) And _
(sNextChar = Chr(32) Or sNextChar = Chr(13) Or _
sNextChar = Chr(10) Or sNextChar = Chr(9)) Then

With RichTextBox1

.SelStart = nStart - 1
.SelLength = Len(sKeyword)
.SelColor = iColour
.SelText = UCase(sKeyword)
.SelStart = Len(RichTextBox1.Text)
.SelColor = vbBlack

End With

End If
                                              
nStart = InStr(nStart + Len(sKeyword), LCase(RichTextBox1.Text), sKeyword)

Loop

End Sub



Private Sub Form_Resize()

RichTextBox1.Move 0, 0, ScaleWidth, ScaleHeight

End Sub

Private Sub RichTextBox1_Change()

With RichTextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SelColor = vbBlack
.SelStart = Len(.Text)
End With

                                    
' Add more custom words here
HighlightText "if", vbBlue
HighlightText "then", vbRed
HighlightText "else", vbMagenta
HighlightText "end", vbGreen
 
End Sub

This should get you started and you can add more words if you want as well.