vb6.0富文本框find方法怎么实现
发布网友
发布时间：2022-11-20 01:12
共1个回答
热心网友
时间：2023-10-09 15:49
Find的返回值就是你要找的字符串在富文本中的位置。
以下代码会高亮显示找到的字符串：
Dim s As String, n As Longs = 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
