7,785
社区成员
发帖
与我相关
我的任务
分享在richtextbox中怎么实现查找下一个?
Dim s1, s2 As String
Dim e As Integer
s1 = Form1.RichTextBox1.Text
s2 = InputBox("输入要查找的数字")
e = InStr(s1, s2)
Form1.RichTextBox1.SelStart = e - 1
Form1.RichTextBox1.SelLength = Len(s2)
这是源代码有错的地方也帮忙看下
怎么实现查找下一个
Dim e As Integer
s1 = Form1.RichTextBox1.Text
s2 = InputBox("输入要查找的数字")
e = InStr(s1, s2)
Form1.RichTextBox1.SelStart = e - 1
Form1.RichTextBox1.SelLength = Len(s2)
这是源代码有错的地方也帮忙看下
怎么实现查找下一个
...全文
请发表友善的回复…
发表回复
penguinhzf 2009-03-24
- 打赏
- 举报
Dim s1, s2 As String
Dim e As Integer
s1 = Form1.RichTextBox1.Text
s2 = InputBox("输入要查找的数字")
e = InStr(1,s1, s2,3)
Form1.RichTextBox1.SelStart = e - 1
Form1.RichTextBox1.SelLength = Len(s2)
我初步帮你改了一下,你可以先试试
Dim e As Integer
s1 = Form1.RichTextBox1.Text
s2 = InputBox("输入要查找的数字")
e = InStr(1,s1, s2,3)
Form1.RichTextBox1.SelStart = e - 1
Form1.RichTextBox1.SelLength = Len(s2)
我初步帮你改了一下,你可以先试试
