Question

vb6.0富文本框find方法怎么实现

vb6.0富文本框find方法怎么实现

Answer 1

Find的返回值就是你要找的字符串在富文本中的位置。

以下代码会高亮显示找到的字符串：

Dim s As String, n As Long
s = InputBox("请输入要查找的字符串")
If s <> "" Then
    n = RichTextBox1.Find(s)
    If n > 0 Then
        RichTextBox1.SetFocus
        RichTextBox1.SelStart = n
        RichTextBox1.SelLength = Len(s)
    End If
End If