Question

如何编程使文本框中文本的某一特定字符或字符串同时高亮显示?

Answer 1

由于普通TextBox控件不支持不连续字符串的同时高亮显示，所以我们选择RichTextBox控件。单击工程（Project）选单项，在弹出的下拉选单中单击组件（Components）选单项，从弹出的对话框中选择Microsoft Rich Textbox Control 5.0复选框，确定加载RichTextBox控件。

　　新建（New）一个工程，在窗体（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中相应的字符串将以红色高亮显示。

Answer 2

在你需要让它高亮显示的时候对那个文本框经行字体与颜色的设置，有属性可以设的，比如txtName.setFontColor之类的方法或属性。