VB编程技巧两则(1)

黄立伟 
2001年 10期

#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中相应的字符串将以红色高亮显示。
　　#1    二、在Windows 95/98启动后自动启动程序
　　    我们都知道在Windows 95/98的“开始”→“程序”菜单下有一“启动”选单项，当每次启动Windows 95或Windows 98时，系统都会自动启动放在“启动”菜单栏里的可执行程序。
　　    但目前有好多软件，像超级解霸5、ICQ，以及大部分实时侦测病毒的软件等等，安装后，并没有放在“启动”选单里，也能在启动操作系统时自动启动。怎么实现的呢？
　　    其实只要知道Windows注册表的一些知识，这个问题就不能称之为问题了。用鼠标单击“开始”，打开开始选单，再单击“运行”，出现一对话框，然后输入“regedit”，确定后，会打开系统注册表编辑器，找到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run，加入你的程序的入口，就可以了。如果不知道怎么加，就参考一下已经存在的键值。
　　
　　 
 