Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
Dim pos = RichTextBox1.SelectionStart
Dim i As String = Regex.Matches(RichTextBox1.Text, "\bDim\b").ToString
RichTextBox1.SelectAll
RichTextBox1.SelectionColor = Color.Black
If Regex.IsMatch(RichTextBox1.Text, "\bDim\b") = True Then
For Each mat As Match In Regex.Matches(RichTextBox1.Text, "\bDim\b")
RichTextBox1.SelectionStart = mat.Index
RichTextBox1.SelectionLength = mat.Length
RichTextBox1.SelectionColor = Color.YellowGreen
Next
End If
RichTextBox1.SelectionStart = pos
RichTextBox1.SelectionLength = 0
End Sub
我做了一个更详细的正则：
Friend Keys As String =
"\b(#Const|#If|Then|#Else|#Region|Delegate|Namespace|Class|End|Firend|Partial|Module|Interface|Enum|Shared|Overrides|Overloads|Structure|Let|Const|Dim|As|Private|Public|New|Static|Option|Private|Module|IsArray|IsDate|IsEmpty|IsError|IsMissing|IsNull|IsNumeric|IsObject|TypeName|VarType|Me|Option|Explicit|Mod|Like|Is|Not|And|Or|Xor|Eqv|Imp|Clear|Error|Raise|Error|Err|CVErr|On|Error|Resume|IsError|Collection|Add|Remove|Item|DDB|SLN|SYD|FV|Rate|IRR|MIRR|NPer|IPmt|Pmt|PPmt|NPV|PV|Do|Loop|For|Next|For|Each|Next|While|Wend|With|Choose|If|Then|Else|Select|Case|Switch|Call|Function|Property|Get|Property|Let|Property|Set|Sub|Date|Now|Time|DateAdd|DateDiff|DatePart|DateSerial|DateValue|TimeSerial|TimeValue|Date|Time|Timer|CBool|CByte|CCur|CDate|CDbl|CDec|CInt|CLng|CSng|CStr|CVar|CVErr|Fix|Int|Boolean|Byte|Currency|Date|Double|Integer|Long|Object|Single|String|Object|Atn|Cos|Sin|Tan|Exp|Log|Sqr|Randomize|Rnd|Abs|Sgn|Fix|Int|IsArray|Array|Option|Base|Dim|Private|Public|ReDim|Static|LBound|UBound|Erase|ReDim|DeleteSetting|GetSetting|GetAllSettings|SaveSetting|Chr|Format|LCase|UCase|DateSerial|DateValue|Hex|Oct|Format|Str|CBool|CByte|CCur|CDate|CDbl|CDec|CInt|CLng|CSng|CStr|CVar|CVErr|Fix|Int|Day|Month|Weekday|Year|Hour|Minute|Second|Asc|Val|TimeSerial|TimeValue|StrComp|StrConv|Format|LCase|UCase|Space|String|Len|Format|LSet|RSet|InStr|Left|LTrim|Mid|Right|RTrim|Trim|Option|Compare|Asc|Chr|AppActivate|Shell|SendKeys|Beep|Command)\b"
这个用读写TXT的话比较繁琐,建议题主使用读写INI的方式,参考：
'声明INI配置文件读写API函数
'定义读取配置文件函数
Public?Function?GetINI(ByVal?Section?As?String,?ByVal?AppName?As?String,?ByVal?lpDefault?As?String,?ByVal?FileName?As?String)?As?String
GetPrivateProfileString(Section,?AppName,?lpDefault,?Str,?Len(Str),?FileName)
Return?Microsoft.VisualBasic.Left(Str,?InStr(Str,?Chr(0))?-?1)
End?Function
'定义写入配置文件函数
Public?Function?WriteINI(ByVal?Section?As?String,?ByVal?AppName?As?String,?ByVal?lpDefault?As?String,?ByVal?FileName?As?String)?As?Long
WriteINI?=?WritePrivateProfileString(Section,?AppName,?lpDefault,?FileName)
'定义INI文件位置
Dim?path?As?String
那么读取的时候：
TextBox1.Text?=?GetINI("main","v1","",?path)
写入的时候：
WriteINI("main","v1",?TextBox1.Text,?path)
【附】INI文件的格式,范例：
[main]
[aaa]
abc=1
[bbb]
ni=wo
wo=ta
①.、vb.net ?完全符合面向对象的编程语言抽象、封装、继承的四大特性,而vb不支持继承.
vb中只是On Error.....goto和On Errer Resume Next ,这些错误称为非结构化异常处理.而在vb.net中采用的结构化异常处理机制,try...catch....finally控制.
vb.net 允许创建不同类型的应用程序,例如,创建ASP.NET和ASP.NET Web 服务应用程序,还允许创建控制台应用程序和作为桌面服务运行的应用程序.但是vb 只能创建Windows窗体.
扩展资料
Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言,为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言.是一种可用于微软自家产品开发的语言.
"Visual" 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置,而只要把预先建立的对象add到屏幕上的一点即可.
"Basic"指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言,是一种在计算技术发展历史上应用得最为广泛的语言.
Visual Basic源自于BASIC编程语言.VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建Active?X控件,用于高效生成类型安全和面向对象的应用程序 .
参考资料：百度百科-Visual Basic
思路：
编写一个函数,给它某列的宽度和该列的具体值（文本）,
如果是左对齐,返回的字符串右边自动加上合适的空格；
如果是右对齐,返回的字符串左边自动加上合适的空格；
vb.net有自己的设置,不需要ini,在工程【属性】-【设置】中设置.
——————
ini设置属性.
'声明API函数
Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long
Return WritePrivateProfileString(Section, AppName, lpDefault, FileName)
End Function
'调用writeini函数存储属性.
'section为节点,也就是ini中带[]符号的节点文本
'APPname为存储的名称,即ini文件中等于符号前面的文本
'ipdefault为存储的属性,即等于符号右边的文本.
'filename为存储的ini文件地址,如d:\save.ini
————————
ini返回属性.
Private Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
Dim Str As String = ""
Str = LSet(Str, IniCount)
GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)
Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
'调用getini函数
'说明同上.
以上就是土嘎嘎小编为大家整理的vb.netlset的简单介绍vb.netlset的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！