|GoTo|Handles|If" &; _ "|Implements|Imports|In|Inherits|Integer|Interface|Is|Let|Lib|Like|Long" &; _ "|Loop|Me|Mod|Module|MustInherit|MustOverride|MyBase|MyClass|Namespace" &; _ "|New|Next|Not|Nothing|NotInheritable|NotOverridable|Object|On|Option" &; _ "|Optional|Or|OrElse|Overloads|Overridable|Overrides|ParamArray|Preserve" &; _ "|Private|Property|Protected|Public|RaiseEvent|ReadOnly|ReDim|RemoveHandler" &; _ "|Resume|Return|Select|Set|Shadows|Shared|Short|Single|Static|Step|Stop" &; _ "|String|Structure|Sub|SyncLock|Then|Throw|To|True|Try|TypeOf|Unicode" &; _ "|Until|Variant|When|While|With|WithEvents|WriteOnly|Xor)\b" '较
常用的VB的注释内容正则表达式 Dim remstr As String = "'[\W\w]*?$\n" '获取代码内字符串的正则表达式 Dim constr As String = """" &; "[\w\W]*?" &; """" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Highlighter1.loadtextfile(Application.StartupPath &; "\script.txt") Highlighter1.CodeColor = Color.Blue Highlighter1.Regstr = Parsestr Highlighter1.FormatString() Highlighter1.CodeColor = Color.FromArgb(0, 0, 128, 0) Highlighter1.Regstr = remstr Highlighter1.FormatString() Highlighter1.CodeColor = Color.FromArgb(0, 163