标题VB编程技巧两则(1)

　　一、同时高亮显示不连续字符串
　　由于普通的TextBox控件不支持不连续字符串同时高亮显示，所以我们选择RichTextBox控件。单击“工程”菜单，再单击“组件”，从弹出的对话框中选择“Microsoft Rich Textbox Control 5.0”复选框，确定加载RichTextBox控件。
　　新建一个工程，在窗体(Form)上添加一个RichTextBox控件和两个Command(按钮)控件，都采用系统默认的Name属性值；设置RichTextBox的Text属性值为空，Command1和Command2的Caption属性值分别设为“输入文本”和“选择字符串”。最后，添加如下VB代码：
　　Private Sub Command1-Click()
　　Dim str As String
　　Dim Text As String
　　str=“输入文本”
　　Text=InputBox(str)
　　RichTextBox1.Text=Text
　　End Sub
　　Private Sub Command2-Click()
　　Dim str As String
　　Dim Text As String
　　Dim Position As Integer
　　Dim Lenth As Integer
　　str=“输入要高亮显示的字符串”
　　Text=InputBox(str)
　　If Text <> “” Then
　　Position=InStr(RichTextBox1.Text，Text)-1
　　Lenth=Len(Text)
　　RichTextBox1.SelStart=Position
　　RichTextBox1.SelLength=Lenth
　　RichTextBox1.SelColor=RGB(255，0，0)
　　Do While InStr(Position+Lenth+1， RichTextBox1.Text， Text) <> 0
　　Position=InStr(Position+Lenth+1， RichTextBox1.Text， Text)-1
　　RichTextBox1.SelStart=Position
　　RichTextBox1.SelLength=Lenth
　　RichTextBox1.SelColor=RGB(255，0，0)
　　Loop
　　End If
　　End Sub
　　按F5执行程序，单击“输入文本”按钮，在弹出的对话框中输入一些文本，确定后，刚刚输入的文本将显示在RichTextBox中；再单击“选择字符串”按钮，在弹出的对话框中输入你希望高亮显示的字符串，确定后，RichTextBox中相应的字符串将以红色高亮显示。
　　二、在Windows 95/98启动后自动启动程序
　　我们都知道在Windows 95/98的“开始”→“程序”菜单下有一“启动”选单项，当每次启动Windows 95或Windows 98时，系统都会自动启动放在“启动”菜单栏里的可执行程序。
　　但目前有好多软件，像超级解霸5、ICQ，以及大部分实时侦测病毒的软件等等，安装后，并没有放在“启动”选单里，也能在启动操作系统时自动启动。怎么实现的呢？
　　其实只要知道Windows注册表的一些知识，这个问题就不能称之为问题了。用鼠标单击“开始”，打开开始选单，再单击“运行”，出现一对话框，然后输入“regedit”，确定后，会打开系统注册表编辑器，找到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run，加入你的程序的入口，就可以了。如果不知道怎么加，就参考一下已经存在的键值。