- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]差找文本框的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170650)
-- 发布时间：2021/8/3 12:33:00
-- [求助]差找文本框的问题
请问下如何通过关键字查找并定位文本框的内容呢，而且还需要能够向上查找和向下查找
-- 发布时间：2021/8/3 13:39:00
--
比如
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim s As String = txt.text
Dim f As String = e.Form.Controls("TextBox2").text
Dim idx As Integer = vars("i")
If idx > 0
idx = s.IndexOf(f,idx)
End If
If idx > -1 Then
vars("i") = idx + f.Length
txt.SelectionStart = idx
txt.SelectionLength = f.Length
Dim d = txt.BaseControl
d.ScrollToCaret
Else
vars("i") = 0
End If
-- 发布时间：2021/8/4 9:43:00
--
多谢了。还想问下，找到之后，可以让查找的字处于选择状态吗？或者高亮显示
-- 发布时间：2021/8/4 9:45:00
--
代码本来就是这样的。2楼代码测试过了吗？
-- 发布时间：2021/8/4 9:49:00
--
测试过了。但是没有选择呀
这是滚动到那个位置了。
[此贴子已经被作者于2021/8/4 9:50:02编辑过]
-- 发布时间：2021/8/4 9:54:00
--
下面代码就是选择的，不管文本框不处于输入焦点状态是看不到选择的
txt.SelectionStart = idx
txt.SelectionLength = f.Length
选择控件试试
If idx > -1 Then
vars("i") = idx + f.Length
txt.SelectionStart = idx
txt.SelectionLength = f.Length
Dim d = txt.BaseControl
d.ScrollToCaret
txt.select
Else
vars("i") = 0
End If
-- 发布时间：2024/5/18 20:19:00
--
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim s As String = txt.text
Dim f As String = e.Form.Controls("检索内容").text
Dim idx As Integer = vars("i")
If idx > 0 Then
idx = s.IndexOf(f, idx)
End If
If idx > -1 Then
vars("i") = idx + f.Length
txt.SelectionStart = idx
txt.SelectionLength = f.Length
Dim d = txt.BaseControl
d.ScrollToCaret
txt.select
Else
vars("i") = 0
End If
是全部高亮了 滚动到了对应位置 需要是关键词高亮 请教老师