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