我想查里面有没有一个数值，如果有则跳个对话框。没有就退出！！

用richtextbox.find * 吗？？具体该怎么操作啊？

我是新手。这些控件老师都没说过！！！

Find 方法示例

该示例是根据在 TextBox 控件中输入的一个单词，在 RichTextBox 控件中查找一个字符串。找到指定的字符串后，显示一个消息框。在消息框中给出指定单词所在行的行号。要试用此例，应在窗体上放置一个 RichTextBox 控件、一个 CommandButton 控件和一个 TextBox 控件。加载一个文件到 RichTextBox 中，并将这部分代码粘贴到窗体的通用声明部分中。然后运行此例，在 TextBox 中输入一个单词，再单击 CommandButton。

Private Sub Command1_Click()
   Dim FoundPos As Integer
   Dim FoundLine As Integer
   '查找 TextBox 控件中指定的文本。
   FoundPos = RichTextBox1.Find(Text1.Text, , , rtfWholeWord)   '根据是否找到文本，显示相应的消息。

   If FoundPos <> -1 Then      '返回已找到文本所在行的行号。
      FoundLine = RichTextBox1.GetLineFromChar(FoundPos)      
      MsgBox "Word found on line " & CStr(FoundLine)   
   Else     
      MsgBox "Word not found."   
   End If
End Sub

[此贴子已经被作者于2006-3-15 11:28:14编辑过]

根据给定的字符串，在 RichTextBox 控件中搜索文本。不支持命名的参数。

语法

object.Find(string, start, end, options)

Find 方法的语法包含下面部分：

设置值

对 options 的设置值包括：

通过把它们的值或常数相加、或者用 Or 运算符使这些值相结合的形式，可使用多个选项。

说明

如果找到被搜索的文本，Find 方法将突出显示所指定的文本，同时返回突出显示的第一个字符的索引。如果所指定的文本没有找到，Find 方法则返回 -1。

当 HideSelection 属性是 True、且 RichTextBox 控件没有焦点时，如果所使用的 Find 方法没有 rtfNoHighlight 选项，则控件仍然突出显示所找到的文本。此后使用 Find 方法，若插入点不移动，将只搜索突出显示的文本。

Find 方法搜索行为，基于 start 和 end 参数指定值的组合而变化。下表描述了可能的搜索行为：