1dp.sh.Brushes.Vb = function() 2{ 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'; 17 18 this.regexList = [ 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 23 ]; 24 25 this.CssClass = 'dp-vb'; 26} 27 28dp.sh.Brushes.Vb.prototype = new dp.sh.Highlighter(); 29dp.sh.Brushes.Vb.Aliases = ['vb', 'vb.net']; 30