Hola como estan.

El dia de hoy me entro una duda mientras usaba vb.net y esta es si existe alguna libreria que pueda aplicar a un richtextbox que me tomara palabras reservadas del lenguaje de programacion es decir si escribo en el richtextbox

vb.net

Dim variable as String

o si escribiese

java

int variable;

no se si me doy a entender lo que quisiera saber es si existe una libreria o algo de como hacer este tipo de cosas.

Algo asi como etiqueta geshi que pone de color las palabras reservadas

Espero puedan orientarme saludos.

Si lo quieres hacer por ti mismo tienes que hacer una selección y luego utilizar SelectionColor por cada palabra. Puedes hacer un metodo con un switch o ifs que devuelvan el color dependiendo de la palabra no se si me explico.

Una cosa que ayer no recordé para comentarte, la forma mas eficiente de llevar a cabo la colorización de la sintaxis sería utilizando el motor Roslyn de Microsoft (puedes encontrar las librerías en GitHub, y la SDK de Visual Studio), es el mismo mecanimsmo que usa visual Studio para ello, pero no hace relativamente mucho que es open-source y no existe demasiada documentación al respecto, aunque si que hay algunos buenos ejemplos, pero es un sistema muy tedioso de pulir para implementarlo en una app con este tipo de finalidad que le quieres dar.

Otra cosa con respecto a lo que ha sugerido @Slava, un Richtextbox es un control muy pesado, y si a eso le sumamos metodologías de iteración del texto cada vez que el usuario pulse una tecla (o con un Timer, me da igual), en términos de rendmiento el resultado será una completa catástrofe irritante. Si vas a intentarlo así, entonces debes interactuar lo más mínimo con el texto/control, lo que hay que hacer es llevar a cabo una evaluación de la palabra actual por separado, en un tipo personalizado, con el texto actual, su longitud actual, si coincide con algún keyword conocido o no, etc, y mientras tanto ignorar el texto del control y todo lo demás mientras el usuario no borre o añada ninguna letra. Espero haberme explicado más o menos bien!

---

Bueno, al final me he animado a construir un estilo para VisualBasic.Net en Scintilla, voy a compartirlo contigo

No está del todo completo y no es perfecto, existen unos pequeños conflictos ...esto último debido a las limitaciones del control, pero asumiendo esos pequeños conflictos creo que podemos dar este estilo como un estilo válido y bonito, que me lo he currado, coño! xD.

El diseño del editor de Visual Studio es el que más me gusta, así que no he querido reinventar la rueda y lo he coloreado de forma similar...

Unas imágenes del resultado:

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Sets a VisualBasic.Net dark lexer style on the specified <see cref="Scintilla"/> editor.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="editor">
    ''' The source <see cref="Scintilla"/> editor.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Public Shared Sub SetVbNetDarkStyle(ByVal editor As Scintilla)
 
        Dim backColor As Color = Color.FromArgb(255, 30, 30, 30)
        Dim selectionColor As Color = Color.FromArgb(255, 38, 79, 120)
 
        Dim keywords As String =
<a>
debug
release
addhandler
addressof
aggregate
alias
and
andalso
ansi
as
assembly
auto
binary
boolean
byref
byte
byval
call
case
catch
cbool
cbyte
cchar
cdate
cdbl
cdec
char
cint
class
clng
cobj
compare
const
continue
csbyte
cshort
csng
cstr
ctype
cuint
culng
cushort
custom
date
decimal
declare
default
delegate
dim
directcast
distinct
do
double
each
else
elseif
end
endif
enum
equals
erase
error
event
exit
explicit
false
finally
for
friend
from
function
get
gettype
getxmlnamespace
global
gosub
goto
group
handles
if
implements
imports
in
inherits
integer
interface
into
is
isfalse
isnot
istrue
join
key
let
lib
like
long
loop
me
mid
mod
module
mustinherit
mustoverride
my
mybase
myclass
namespace
narrowing
new
next
not
nothing
notinheritable
notoverridable
object
of
off
on
operator
option
optional
or
order
orelse
overloads
overridable
overrides
paramarray
partial
preserve
private
property
protected
public
raiseevent
readonly
redim
rem
removehandler
resume
return
sbyte
select
set
shadows
shared
short
single
skip
static
step
stop
strict
string
structure
sub
synclock
take
text
then
throw
to
true
try
trycast
typeof
uinteger
ulong
unicode
until
ushort
using
variant
wend
when
where
while
widening
with
withevents
writeonly
xor
</a>.Value
 
        Dim typenames As String =
<a>
array
backgroundworker
bitmap
button
checkbox
checkedlistbox
colordialog
combobox
component
contextmenustrip
control
datagridview
dataset
datetime
datetimepicker
dictionary
directorysearcher
errorprovider
eventlog
exception
fileinfo
filesystemwatcher
flowlayoutpanel
form
graphics
groupbox
helpprovider
hscrollbar
iappdomainsetup
iasyncresult
ibindablecomponent
ibuttoncontrol
icloneable
icollectdatta
icollection
icolumnmapping
icolumnmappingcollection
icommandexecutor
icomparable
icomparer
icomponent
icomponenteditorpagesite
icontainercontrol
iconvertible
icurrencymanagerprovider
icustomformatter
idataadapter
idatagridcolumnstyleeditingnotificationservice
idatagrideditingservice
idatagridvieweditingcell
idatagridvieweditingcontrol
idataobject
idataparameter
idataparametercollection
idatareader
idatarecord
idbcommand
idbconnection
idbdataadapter
idbdataparameter
idbtransaction
idevicecontext
idictionary
idictionaryenumerator
idisposable
idroptarget
ienumerable
ienumerator
iequalitycomparer
iequatable
ifeaturesupport
ifilereaderservice
iformatprovider
iformattable
iformatter
igroupping
ihashcodeprovider
ilist
ilookup
image
imagelist
imessagefilter
inotifypropertychanged
int16
int32
int64
iobservable
iobserver
iorderedenumerable
iorderedqueryable
iqueryable
iqueryprovider
iserializable
iserviceprovider
iset
istructuralcomparable
istructuralequatable
itablemapping
itablemappingcollection
iwin32window
iwindowtarget
label
linklabel
list
listbox
listview
maskedtextbox
menustrip
messagequeue
monthcalendar
nativewindow
notifyicon
numericupdown
openfiledialog
panel
pen
performancecounter
picturebox
point
pointf
printdialog
printdocument
process
progressbar
propertygrid
radiobutton
readonlycollection
rectangle
rectanglef
regex
richtextbox
savefiledialog
serialport
servicecontroller
size
sizef
solidbrush
splitcontainer
statusstrip
system
tabcontrol
tablelayoutpanel
textbox
timer
toolstrip
toolstripcontainer
tooltip
trackbar
type
uint16
uint32
uint64
vscrollbar
webbrowser
</a>.Value
 
        Dim literals As String =
<a>
!
#
%
@
&amp;
i
d
f
l
r
s
ui
ul
us
</a>.Value
 
        Dim other As String = "_" ' line-break.
 
        ' Reset the styles.
        editor.StyleResetDefault()
        editor.StyleClearAll()
        ' editor.Styles(Style.[Default]).Font = "Consolas"
        ' editor.Styles(Style.[Default]).Size = 10
 
        ' Set the Vb.Net lexer.
        editor.Lexer = Lexer.Vb
 
        ' Set folding properties.
        With editor
            .SetProperty("fold", "1")
            .SetProperty("fold.compact", "1")
            .SetProperty("fold.html", "1")
        End With
 
        ' Set the margin for fold markers.
        With editor
            .Margins(2).Type = MarginType.Symbol
            .Margins(2).Mask = Marker.MaskFolders
            .Margins(2).Sensitive = True
            .Margins(2).Width = 20
        End With
 
        ' Reset folder markers.
        For i As Integer = Marker.FolderEnd To Marker.FolderOpen
            editor.Markers(i).SetForeColor(SystemColors.ControlLightLight)
            editor.Markers(i).SetBackColor(SystemColors.ControlDark)
        Next
 
        ' Set the style of the folder markers.
        With editor
            .Markers(Marker.Folder).Symbol = MarkerSymbol.BoxPlus
            .Markers(Marker.Folder).SetBackColor(SystemColors.ControlText)
            .Markers(Marker.FolderOpen).Symbol = MarkerSymbol.BoxMinus
            .Markers(Marker.FolderEnd).Symbol = MarkerSymbol.BoxPlusConnected
            .Markers(Marker.FolderEnd).SetBackColor(SystemColors.ControlText)
            .Markers(Marker.FolderMidTail).Symbol = MarkerSymbol.TCorner
            .Markers(Marker.FolderOpenMid).Symbol = MarkerSymbol.BoxMinusConnected
            .Markers(Marker.FolderSub).Symbol = MarkerSymbol.VLine
            .Markers(Marker.FolderTail).Symbol = MarkerSymbol.LCorner
        End With
 
        ' Enable automatic folding
        editor.AutomaticFold = (AutomaticFold.Show Or AutomaticFold.Click Or AutomaticFold.Change)
 
        ' Disable whitespaces visibility.
        editor.ViewWhitespace = WhitespaceMode.Invisible
 
        ' Set the selection color.
        editor.SetSelectionBackColor(True, selectionColor)
 
        ' Set the style of the Vb.Net language.
        With editor
            .Styles(Style.Default).BackColor = backColor
 
            .Styles(Style.Vb.Asm).BackColor = backColor
            .Styles(Style.Vb.Asm).ForeColor = Color.FromArgb(255, 181, 206, 168)
            .Styles(Style.Vb.Asm).Bold = True
            .Styles(Style.Vb.Asm).Italic = False
            .Styles(Style.Vb.Asm).Underline = False
 
            .Styles(Style.Vb.BinNumber).BackColor = backColor
            .Styles(Style.Vb.BinNumber).ForeColor = Color.FromArgb(255, 181, 206, 168)
            .Styles(Style.Vb.BinNumber).Bold = False
            .Styles(Style.Vb.BinNumber).Italic = False
            .Styles(Style.Vb.BinNumber).Underline = False
 
            .Styles(Style.Vb.Comment).BackColor = backColor
            .Styles(Style.Vb.Comment).ForeColor = Color.FromArgb(255, 87, 159, 56)
            .Styles(Style.Vb.Comment).Bold = False
            .Styles(Style.Vb.Comment).Italic = False
            .Styles(Style.Vb.Comment).Underline = False
 
            .Styles(Style.Vb.CommentBlock).BackColor = backColor
            .Styles(Style.Vb.CommentBlock).ForeColor = Color.FromArgb(255, 87, 159, 56)
            .Styles(Style.Vb.CommentBlock).Bold = False
            .Styles(Style.Vb.CommentBlock).Italic = False
            .Styles(Style.Vb.CommentBlock).Underline = False
 
            .Styles(Style.Vb.Constant).BackColor = backColor
            .Styles(Style.Vb.Constant).ForeColor = Color.MediumOrchid
            .Styles(Style.Vb.Constant).Bold = False
            .Styles(Style.Vb.Constant).Italic = False
            .Styles(Style.Vb.Constant).Underline = False
 
            .Styles(Style.Vb.Date).BackColor = backColor
            .Styles(Style.Vb.Date).ForeColor = Color.MediumOrchid
            .Styles(Style.Vb.Date).Bold = False
            .Styles(Style.Vb.Date).Italic = False
            .Styles(Style.Vb.Date).Underline = False
 
            .Styles(Style.Vb.Default).BackColor = backColor
            .Styles(Style.Vb.Default).ForeColor = Color.LightGray
            .Styles(Style.Vb.Default).Bold = False
            .Styles(Style.Vb.Default).Italic = False
            .Styles(Style.Vb.Default).Underline = False
 
            .Styles(Style.Vb.DocBlock).BackColor = backColor
            .Styles(Style.Vb.DocBlock).ForeColor = Color.FromArgb(255, 87, 159, 56)
            .Styles(Style.Vb.DocBlock).Bold = False
            .Styles(Style.Vb.DocBlock).Italic = False
            .Styles(Style.Vb.DocBlock).Underline = False
 
            .Styles(Style.Vb.DocKeyword).BackColor = backColor
            .Styles(Style.Vb.DocKeyword).ForeColor = Color.FromArgb(255, 100, 150, 215)
            .Styles(Style.Vb.DocKeyword).Bold = False
            .Styles(Style.Vb.DocKeyword).Italic = False
            .Styles(Style.Vb.DocKeyword).Underline = False
 
            .Styles(Style.Vb.DocLine).BackColor = backColor
            .Styles(Style.Vb.DocLine).ForeColor = Color.FromArgb(255, 87, 159, 56)
            .Styles(Style.Vb.DocLine).Bold = False
            .Styles(Style.Vb.DocLine).Italic = False
            .Styles(Style.Vb.DocLine).Underline = False
 
            .Styles(Style.Vb.Error).BackColor = backColor
            .Styles(Style.Vb.Error).ForeColor = Color.IndianRed
            .Styles(Style.Vb.Error).Bold = True
            .Styles(Style.Vb.Error).Italic = False
            .Styles(Style.Vb.Error).Underline = False
 
            .Styles(Style.Vb.HexNumber).BackColor = backColor
            .Styles(Style.Vb.HexNumber).ForeColor = Color.FromArgb(255, 181, 206, 168)
            .Styles(Style.Vb.HexNumber).Bold = False
            .Styles(Style.Vb.HexNumber).Italic = False
            .Styles(Style.Vb.HexNumber).Underline = False
 
            .Styles(Style.Vb.Identifier).BackColor = backColor
            .Styles(Style.Vb.Identifier).ForeColor = Color.Gainsboro
            .Styles(Style.Vb.Identifier).Bold = False
            .Styles(Style.Vb.Identifier).Italic = False
            .Styles(Style.Vb.Identifier).Underline = False
 
            .Styles(Style.Vb.Keyword).BackColor = backColor
            .Styles(Style.Vb.Keyword).ForeColor = Color.FromArgb(255, 100, 150, 215)
            .Styles(Style.Vb.Keyword).Bold = False
            .Styles(Style.Vb.Keyword).Italic = False
            .Styles(Style.Vb.Keyword).Underline = False
 
            .Styles(Style.Vb.Keyword2).BackColor = backColor
            .Styles(Style.Vb.Keyword2).ForeColor = Color.FromArgb(255, 62, 201, 174)
            .Styles(Style.Vb.Keyword2).Bold = False
            .Styles(Style.Vb.Keyword2).Italic = False
            .Styles(Style.Vb.Keyword2).Underline = False
 
            .Styles(Style.Vb.Keyword3).BackColor = backColor
            .Styles(Style.Vb.Keyword3).ForeColor = Color.FromArgb(255, 181, 206, 168)
            .Styles(Style.Vb.Keyword3).Bold = False
            .Styles(Style.Vb.Keyword3).Italic = False
            .Styles(Style.Vb.Keyword3).Underline = False
 
            .Styles(Style.Vb.Keyword4).BackColor = backColor
            .Styles(Style.Vb.Keyword4).ForeColor = Color.IndianRed
            .Styles(Style.Vb.Keyword4).Bold = False
            .Styles(Style.Vb.Keyword4).Italic = False
            .Styles(Style.Vb.Keyword4).Underline = False
 
            .Styles(Style.Vb.Label).BackColor = backColor
            .Styles(Style.Vb.Label).ForeColor = Color.FromArgb(255, 100, 150, 215)
            .Styles(Style.Vb.Label).Bold = False
            .Styles(Style.Vb.Label).Italic = False
            .Styles(Style.Vb.Label).Underline = False
 
            .Styles(Style.Vb.Number).BackColor = backColor
            .Styles(Style.Vb.Number).ForeColor = Color.FromArgb(255, 181, 206, 168)
            .Styles(Style.Vb.Number).Bold = False
            .Styles(Style.Vb.Number).Italic = False
            .Styles(Style.Vb.Number).Underline = False
 
            .Styles(Style.Vb.Operator).BackColor = backColor
            ' .Styles(Style.Vb.Operator).ForeColor = Color.DarkKhaki
            ' .Styles(Style.Vb.Operator).ForeColor = Color.DarkCyan
            ' .Styles(Style.Vb.Operator).ForeColor = Color.Honeydew
            ' .Styles(Style.Vb.Operator).ForeColor = Color.LightSteelBlue
            .Styles(Style.Vb.Operator).ForeColor = Color.LightSlateGray
            .Styles(Style.Vb.Operator).Bold = True
            .Styles(Style.Vb.Operator).Italic = False
            .Styles(Style.Vb.Operator).Underline = False
 
            .Styles(Style.Vb.Preprocessor).BackColor = backColor
            ' .Styles(Style.Vb.Preprocessor).ForeColor = Color.HotPink
            .Styles(Style.Vb.Preprocessor).ForeColor = Color.LightSlateGray
            .Styles(Style.Vb.Preprocessor).Bold = False
            .Styles(Style.Vb.Preprocessor).Italic = False
            .Styles(Style.Vb.Preprocessor).Underline = False
 
            .Styles(Style.Vb.String).BackColor = backColor
            .Styles(Style.Vb.String).ForeColor = Color.FromArgb(255, 214, 157, 133)
            .Styles(Style.Vb.String).Bold = False
            .Styles(Style.Vb.String).Italic = False
            .Styles(Style.Vb.String).Underline = False
 
            .Styles(Style.Vb.StringEol).BackColor = backColor
            .Styles(Style.Vb.StringEol).ForeColor = Color.Gainsboro
            .Styles(Style.Vb.StringEol).FillLine = True
            .Styles(Style.Vb.StringEol).Bold = False
            .Styles(Style.Vb.StringEol).Italic = False
            .Styles(Style.Vb.StringEol).Underline = False
 
        End With
 
        ' Set the Vb.Net keywords.
        editor.SetKeywords(0, keywords)
        editor.SetKeywords(1, typenames)
        editor.SetKeywords(2, literals)
        editor.SetKeywords(3, other)
 
    End Sub
 

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Sets a VisualBasic.Net light lexer style on the specified <see cref="Scintilla"/> editor.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="editor">
    ''' The source <see cref="Scintilla"/> editor.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Public Shared Sub SetVbNetLightStyle(ByVal editor As Scintilla)
 
        Dim backColor As Color = Color.WhiteSmoke
        Dim selectionColor As Color = Color.FromArgb(255, 38, 79, 120)
 
        Dim keywords As String =
<a>
debug
release
addhandler
addressof
aggregate
alias
and
andalso
ansi
as
assembly
auto
binary
boolean
byref
byte
byval
call
case
catch
cbool
cbyte
cchar
cdate
cdbl
cdec
char
cint
class
clng
cobj
compare
const
continue
csbyte
cshort
csng
cstr
ctype
cuint
culng
cushort
custom
date
decimal
declare
default
delegate
dim
directcast
distinct
do
double
each
else
elseif
end
endif
enum
equals
erase
error
event
exit
explicit
false
finally
for
friend
from
function
get
gettype
getxmlnamespace
global
gosub
goto
group
handles
if
implements
imports
in
inherits
integer
interface
into
is
isfalse
isnot
istrue
join
key
let
lib
like
long
loop
me
mid
mod
module
mustinherit
mustoverride
my
mybase
myclass
namespace
narrowing
new
next
not
nothing
notinheritable
notoverridable
object
of
off
on
operator
option
optional
or
order
orelse
overloads
overridable
overrides
paramarray
partial
preserve
private
property
protected
public
raiseevent
readonly
redim
rem
removehandler
resume
return
sbyte
select
set
shadows
shared
short
single
skip
static
step
stop
strict
string
structure
sub
synclock
take
text
then
throw
to
true
try
trycast
typeof
uinteger
ulong
unicode
until
ushort
using
variant
wend
when
where
while
widening
with
withevents
writeonly
xor
</a>.Value
 
        Dim typenames As String =
<a>
array
backgroundworker
bitmap
button
checkbox
checkedlistbox
colordialog
combobox
component
contextmenustrip
control
datagridview
dataset
datetime
datetimepicker
dictionary
directorysearcher
errorprovider
eventlog
exception
fileinfo
filesystemwatcher
flowlayoutpanel
form
graphics
groupbox
helpprovider
hscrollbar
iappdomainsetup
iasyncresult
ibindablecomponent
ibuttoncontrol
icloneable
icollectdatta
icollection
icolumnmapping
icolumnmappingcollection
icommandexecutor
icomparable
icomparer
icomponent
icomponenteditorpagesite
icontainercontrol
iconvertible
icurrencymanagerprovider
icustomformatter
idataadapter
idatagridcolumnstyleeditingnotificationservice
idatagrideditingservice
idatagridvieweditingcell
idatagridvieweditingcontrol
idataobject
idataparameter
idataparametercollection
idatareader
idatarecord
idbcommand
idbconnection
idbdataadapter
idbdataparameter
idbtransaction
idevicecontext
idictionary
idictionaryenumerator
idisposable
idroptarget
ienumerable
ienumerator
iequalitycomparer
iequatable
ifeaturesupport
ifilereaderservice
iformatprovider
iformattable
iformatter
igroupping
ihashcodeprovider
ilist
ilookup
image
imagelist
imessagefilter
inotifypropertychanged
int16
int32
int64
iobservable
iobserver
iorderedenumerable
iorderedqueryable
iqueryable
iqueryprovider
iserializable
iserviceprovider
iset
istructuralcomparable
istructuralequatable
itablemapping
itablemappingcollection
iwin32window
iwindowtarget
label
linklabel
list
listbox
listview
maskedtextbox
menustrip
messagequeue
monthcalendar
nativewindow
notifyicon
numericupdown
openfiledialog
panel
pen
performancecounter
picturebox
point
pointf
printdialog
printdocument
process
progressbar
propertygrid
radiobutton
readonlycollection
rectangle
rectanglef
regex
richtextbox
savefiledialog
serialport
servicecontroller
size
sizef
solidbrush
splitcontainer
statusstrip
system
tabcontrol
tablelayoutpanel
textbox
timer
toolstrip
toolstripcontainer
tooltip
trackbar
type
uint16
uint32
uint64
vscrollbar
webbrowser
</a>.Value
 
        Dim literals As String =
<a>
!
#
%
@
&amp;
i
d
f
l
r
s
ui
ul
us
</a>.Value
 
        Dim other As String = "_" ' line-break.
 
        ' Reset the styles.
        editor.StyleResetDefault()
        editor.StyleClearAll()
        ' editor.Styles(Style.[Default]).Font = "Consolas"
        ' editor.Styles(Style.[Default]).Size = 10
 
        ' Set the Vb.Net lexer.
        editor.Lexer = Lexer.Vb
 
        ' Set folding properties.
        With editor
            .SetProperty("fold", "1")
            .SetProperty("fold.compact", "1")
            .SetProperty("fold.html", "1")
        End With
 
        ' Set the margin for fold markers.
        With editor
            .Margins(2).Type = MarginType.Symbol
            .Margins(2).Mask = Marker.MaskFolders
            .Margins(2).Sensitive = True
            .Margins(2).Width = 20
        End With
 
        ' Reset folder markers.
        For i As Integer = Marker.FolderEnd To Marker.FolderOpen
            editor.Markers(i).SetForeColor(SystemColors.ControlLightLight)
            editor.Markers(i).SetBackColor(SystemColors.ControlDark)
        Next
 
        ' Set the style of the folder markers.
        With editor
            .Markers(Marker.Folder).Symbol = MarkerSymbol.BoxPlus
            .Markers(Marker.Folder).SetBackColor(SystemColors.ControlText)
            .Markers(Marker.FolderOpen).Symbol = MarkerSymbol.BoxMinus
            .Markers(Marker.FolderEnd).Symbol = MarkerSymbol.BoxPlusConnected
            .Markers(Marker.FolderEnd).SetBackColor(SystemColors.ControlText)
            .Markers(Marker.FolderMidTail).Symbol = MarkerSymbol.TCorner
            .Markers(Marker.FolderOpenMid).Symbol = MarkerSymbol.BoxMinusConnected
            .Markers(Marker.FolderSub).Symbol = MarkerSymbol.VLine
            .Markers(Marker.FolderTail).Symbol = MarkerSymbol.LCorner
        End With
 
        ' Enable automatic folding
        editor.AutomaticFold = (AutomaticFold.Show Or AutomaticFold.Click Or AutomaticFold.Change)
 
        ' Disable whitespaces visibility.
        editor.ViewWhitespace = WhitespaceMode.Invisible
 
        ' Set the selection color.
        '  editor.SetSelectionBackColor(True, selectionColor)
 
        ' Set the style of the Vb.Net language.
        With editor
            .Styles(Style.Default).BackColor = backColor
 
            .Styles(Style.Vb.Asm).BackColor = backColor
            .Styles(Style.Vb.Asm).ForeColor = Color.OrangeRed
            .Styles(Style.Vb.Asm).Bold = True
            .Styles(Style.Vb.Asm).Italic = False
            .Styles(Style.Vb.Asm).Underline = False
 
            .Styles(Style.Vb.BinNumber).BackColor = backColor
            .Styles(Style.Vb.BinNumber).ForeColor = Color.OrangeRed
            .Styles(Style.Vb.BinNumber).Bold = False
            .Styles(Style.Vb.BinNumber).Italic = False
            .Styles(Style.Vb.BinNumber).Underline = False
 
            .Styles(Style.Vb.Comment).BackColor = backColor
            .Styles(Style.Vb.Comment).ForeColor = Color.Green
            .Styles(Style.Vb.Comment).Bold = False
            .Styles(Style.Vb.Comment).Italic = False
            .Styles(Style.Vb.Comment).Underline = False
 
            .Styles(Style.Vb.CommentBlock).BackColor = backColor
            .Styles(Style.Vb.CommentBlock).ForeColor = Color.Green
            .Styles(Style.Vb.CommentBlock).Bold = False
            .Styles(Style.Vb.CommentBlock).Italic = False
            .Styles(Style.Vb.CommentBlock).Underline = False
 
            .Styles(Style.Vb.Constant).BackColor = backColor
            .Styles(Style.Vb.Constant).ForeColor = Color.DarkMagenta
            .Styles(Style.Vb.Constant).Bold = False
            .Styles(Style.Vb.Constant).Italic = False
            .Styles(Style.Vb.Constant).Underline = False
 
            .Styles(Style.Vb.Date).BackColor = backColor
            .Styles(Style.Vb.Date).ForeColor = Color.DarkMagenta
            .Styles(Style.Vb.Date).Bold = False
            .Styles(Style.Vb.Date).Italic = False
            .Styles(Style.Vb.Date).Underline = False
 
            .Styles(Style.Vb.Default).BackColor = backColor
            .Styles(Style.Vb.Default).ForeColor = Color.Black
            .Styles(Style.Vb.Default).Bold = False
            .Styles(Style.Vb.Default).Italic = False
            .Styles(Style.Vb.Default).Underline = False
 
            .Styles(Style.Vb.DocBlock).BackColor = backColor
            .Styles(Style.Vb.DocBlock).ForeColor = Color.Green
            .Styles(Style.Vb.DocBlock).Bold = False
            .Styles(Style.Vb.DocBlock).Italic = False
            .Styles(Style.Vb.DocBlock).Underline = False
 
            .Styles(Style.Vb.DocKeyword).BackColor = backColor
            .Styles(Style.Vb.DocKeyword).ForeColor = Color.FromArgb(255, 64, 47, 241)
            .Styles(Style.Vb.DocKeyword).Bold = False
            .Styles(Style.Vb.DocKeyword).Italic = False
            .Styles(Style.Vb.DocKeyword).Underline = False
 
            .Styles(Style.Vb.DocLine).BackColor = backColor
            .Styles(Style.Vb.DocLine).ForeColor = Color.Green
            .Styles(Style.Vb.DocLine).Bold = False
            .Styles(Style.Vb.DocLine).Italic = False
            .Styles(Style.Vb.DocLine).Underline = False
 
            .Styles(Style.Vb.Error).BackColor = backColor
            .Styles(Style.Vb.Error).ForeColor = Color.OrangeRed
            .Styles(Style.Vb.Error).Bold = True
            .Styles(Style.Vb.Error).Italic = False
            .Styles(Style.Vb.Error).Underline = False
 
            .Styles(Style.Vb.HexNumber).BackColor = backColor
            .Styles(Style.Vb.HexNumber).ForeColor = Color.OrangeRed
            .Styles(Style.Vb.HexNumber).Bold = False
            .Styles(Style.Vb.HexNumber).Italic = False
            .Styles(Style.Vb.HexNumber).Underline = False
 
            .Styles(Style.Vb.Identifier).BackColor = backColor
            .Styles(Style.Vb.Identifier).ForeColor = Color.Black
            .Styles(Style.Vb.Identifier).Bold = False
            .Styles(Style.Vb.Identifier).Italic = False
            .Styles(Style.Vb.Identifier).Underline = False
 
            .Styles(Style.Vb.Keyword).BackColor = backColor
            .Styles(Style.Vb.Keyword).ForeColor = Color.FromArgb(255, 72, 64, 213)
            .Styles(Style.Vb.Keyword).Bold = False
            .Styles(Style.Vb.Keyword).Italic = False
            .Styles(Style.Vb.Keyword).Underline = False
 
            .Styles(Style.Vb.Keyword2).BackColor = backColor
            .Styles(Style.Vb.Keyword2).ForeColor = Color.DarkCyan
            .Styles(Style.Vb.Keyword2).Bold = False
            .Styles(Style.Vb.Keyword2).Italic = False
            .Styles(Style.Vb.Keyword2).Underline = False
 
            .Styles(Style.Vb.Keyword3).BackColor = backColor
            .Styles(Style.Vb.Keyword3).ForeColor = Color.OrangeRed
            .Styles(Style.Vb.Keyword3).Bold = False
            .Styles(Style.Vb.Keyword3).Italic = False
            .Styles(Style.Vb.Keyword3).Underline = False
 
            .Styles(Style.Vb.Keyword4).BackColor = backColor
            .Styles(Style.Vb.Keyword4).ForeColor = Color.DarkRed
            .Styles(Style.Vb.Keyword4).Bold = False
            .Styles(Style.Vb.Keyword4).Italic = False
            .Styles(Style.Vb.Keyword4).Underline = False
 
            .Styles(Style.Vb.Label).BackColor = backColor
            .Styles(Style.Vb.Label).ForeColor = Color.FromArgb(255, 72, 64, 213)
            .Styles(Style.Vb.Label).Bold = False
            .Styles(Style.Vb.Label).Italic = False
            .Styles(Style.Vb.Label).Underline = False
 
            .Styles(Style.Vb.Number).BackColor = backColor
            .Styles(Style.Vb.Number).ForeColor = Color.OrangeRed
            .Styles(Style.Vb.Number).Bold = False
            .Styles(Style.Vb.Number).Italic = False
            .Styles(Style.Vb.Number).Underline = False
 
            .Styles(Style.Vb.Operator).BackColor = backColor
            ' .Styles(Style.Vb.Operator).ForeColor = Color.DarkKhaki
            ' .Styles(Style.Vb.Operator).ForeColor = Color.DarkCyan
            ' .Styles(Style.Vb.Operator).ForeColor = Color.Honeydew
            ' .Styles(Style.Vb.Operator).ForeColor = Color.LightSteelBlue
            .Styles(Style.Vb.Operator).ForeColor = Color.Gray
            .Styles(Style.Vb.Operator).Bold = True
            .Styles(Style.Vb.Operator).Italic = False
            .Styles(Style.Vb.Operator).Underline = False
 
            .Styles(Style.Vb.Preprocessor).BackColor = backColor
            ' .Styles(Style.Vb.Preprocessor).ForeColor = Color.HotPink
            .Styles(Style.Vb.Preprocessor).ForeColor = Color.Gray
            .Styles(Style.Vb.Preprocessor).Bold = False
            .Styles(Style.Vb.Preprocessor).Italic = False
            .Styles(Style.Vb.Preprocessor).Underline = False
 
            .Styles(Style.Vb.String).BackColor = backColor
            .Styles(Style.Vb.String).ForeColor = Color.Brown
            .Styles(Style.Vb.String).Bold = False
            .Styles(Style.Vb.String).Italic = False
            .Styles(Style.Vb.String).Underline = False
 
            .Styles(Style.Vb.StringEol).BackColor = backColor
            .Styles(Style.Vb.StringEol).ForeColor = Color.Black
            .Styles(Style.Vb.StringEol).FillLine = True
            .Styles(Style.Vb.StringEol).Bold = False
            .Styles(Style.Vb.StringEol).Italic = False
            .Styles(Style.Vb.StringEol).Underline = False
 
        End With
 
        ' Set the Vb.Net keywords.
        editor.SetKeywords(0, keywords)
        editor.SetKeywords(1, typenames)
        editor.SetKeywords(2, literals)
        editor.SetKeywords(3, other)
 
    End Sub