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: dp.sh.RegexLib.DoubleQuotedString, 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'];