Agregar palabras reservadas a un richtextbox

[nolasco281]

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

Código (vbnet) [Seleccionar] Expandir

Dim variable as String

o si escribiese

java

Código (java) [Seleccionar] Expandir

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.

[Eleкtro]

Desarrollar el algoritmo léxico por ti mismo sería una locura que llevaría demasiado tiempo, en mi opinión haces muy bien en preguntar por una librería ya desarrollada, puesto que existen algunas con años de experiencia en ese tema, muy, muy veteranas, como el wrapper de Scintilla para .Net:

• https://github.com/jacobslusser/ScintillaNET

En mi opinión no hay nada mejor, eso si, la plantilla de colores de "X" lenguaje es responsabilidad tuya constuirla a tu gusto... aquí tienes algunos ejemplos:

• https://gist.github.com/jacobslusser

Otra opción sería FastcoloredTextBox, es lo que yo usaba antes de conocer Scintilla, y sinceramente ...es bueno, no hay que construir plantillas, pero el comportamiento y el acabado del control deja mucho que desear.

• https://github.com/PavelTorgashov/FastColoredTextBox

Y si solamente quieres colorear un código de una manera eficiente pero sin un control de usuario por medio, entonces puedes utilizar la librería ColorCode:

• http://colorcode.codeplex.com/

...Aunque el string resultante de ColorCode está en Html, así que no te vendría nada mal este genial control, Html Renderer:

• https://htmlrenderer.codeplex.com/

saludos!

[Slava_TZD]

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.

[nolasco281]

Muchas gracias por la ayuda a los dos ya estoy viendo ejemplos y probando las paginas que me proporciono Eleкtro.

Gracias de nuevo saludos.

[Eleкtro]

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:

Código (vbnet) [Seleccionar] Expandir

   ''' ----------------------------------------------------------------------------------------------------
   ''' <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


Código (vbnet) [Seleccionar] Expandir

   ''' ----------------------------------------------------------------------------------------------------
   ''' <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

[nolasco281]

Hola Eleкtro.

Gracias a las recomendaciones, ya habia logrado hacer algo, no tanto como lo que compartes en este momento pero lo suficiente para saber como funcionan algunas cosas, Ya he probado el ejemplo que compartes y estoy tratando de entender algunas cosas por mi cuenta.

Te agradezco mucho la ayuda y por mencionar Roslyn de Microsoft como investigacion me viene bien.

Saludos.