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