[求助] 怎样显示文本框里许多数据中被选中的数据用红色来显示问题

Question

 如 文本框里数据如下；1245315488486214563452 使用另一个文本框用于输入要红色显示的数据，那么，文本框里输入（5），让上面文本框里的所有5  都显示出红色的5.运行结果，上面文本框里4个红色的5。这个怎样实现呢？            请VB高手指教一下。

Answer 1

如果你想让其中某个字的字体的色彩改变,你用文本框是不行的.
这时建议你用RixhTextBox. 在VB中,我只知道有这个控件可以做到.
不知是否有别的控件能做到.请高手指正.以下是在RichTextBox中的代码示例:
申明,以下代码调试过:
Private Sub Command1_Click()
  Dim BeginIndex As Long
  BeginIndex = RichTextBox1.Find("5", 0)
  While BeginIndex <> -1
     RichTextBox1.SelStart = BeginIndex
     RichTextBox1.SelLength = 1
     RichTextBox1.SelColor = vbRed
     BeginIndex = RichTextBox1.Find("5", BeginIndex + 1)
  Wend
End SubPrivate Sub Form_Load()
  RichTextBox1.Text = "1245315488486214563452"
End Sub