1 dp
.sh
.Brushes
.Vb
= function()
3 var keywords
= 'AddHandler AddressOf AndAlso Alias And Ansi As Assembly Auto ' +
4 'Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate ' +
5 'CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType ' +
6 'Date Decimal Declare Default Delegate Dim DirectCast Do Double Each ' +
7 'Else ElseIf End Enum Erase Error Event Exit False Finally For Friend ' +
8 'Function Get GetType GoSub GoTo Handles If Implements Imports In ' +
9 'Inherits Integer Interface Is Let Lib Like Long Loop Me Mod Module ' +
10 'MustInherit MustOverride MyBase MyClass Namespace New Next Not Nothing ' +
11 'NotInheritable NotOverridable Object On Option Optional Or OrElse ' +
12 'Overloads Overridable Overrides ParamArray Preserve Private Property ' +
13 'Protected Public RaiseEvent ReadOnly ReDim REM RemoveHandler Resume ' +
14 'Return Select Set Shadows Shared Short Single Static Step Stop String ' +
15 'Structure Sub SyncLock Then Throw To True Try TypeOf Unicode Until ' +
16 'Variant When While With WithEvents WriteOnly Xor';
19 { regex
: new RegExp('\'.*$', 'gm'), css
: 'comment' }, // one line comments
20 { regex
: new RegExp('"(?:\\.|[^\\""])*"', 'g'), css
: 'string' }, // strings
21 { regex
: new RegExp('^\\s*#.*', 'gm'), css
: 'preprocessor' }, // preprocessor tags like #region and #endregion
22 { regex
: new RegExp(this.GetKeywords(keywords
), 'gm'), css
: 'keyword' } // c# keyword
25 this.CssClass
= 'dp-vb';
28 dp
.sh
.Brushes
.Vb
.prototype = new dp
.sh
.Highlighter();
29 dp
.sh
.Brushes
.Vb
.Aliases
= ['vb', 'vb.net'];