VB6 - Coloring of SQL statements ... Done !!!! :))
Put 2 Richtextboxes and a command button on a form and paste this code.
VB Code:
Option Explicit
Dim m_objFont As New StdFont
Private Sub Command1_Click()
Dim l_objParse As New MSSQLParser.vbSQLParser
rtbParsed.Text = l_objParse.ParseSQLSyntax(rtbSource.Text, vbSqlServerSyntax)
rtbSource.TextRTF = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}" & _
"{\rtf1 \colortbl ;" & _
"\red0\green0\blue255;" & _
"\red255\green127\blue127;" & _
"\red255\green0\blue255;" & _
"\red0\green0\blue0;" & _
"\red127\green127\blue127;" & _
"\red255\green0\blue0;" & _
"\red0\green0\blue0;" & _
"\red0\green128\blue128;" & _
"\red0\green0\blue0;" & _
"\red0\green0\blue0;" & _
"}\viewkind4\uc1\pard" & _
rtbParsed.Text & "\par }"
rtbSource.SelStart = 0
rtbSource.SelLength = Len(rtbSource.Text)
'Set font properties
rtbSource.SelFontName = m_objFont.Name
rtbSource.SelFontSize = m_objFont.Size
'UnSelect all text
rtbSource.SelLength = 0
Set l_objParse = Nothing
End Sub
Private Sub Form_Load()
m_objFont.Name = rtbSource.Font
m_objFont.Size = rtbSource.SelFontSize
End Sub