共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]差找文本框的问题
1楼
81538475 发表于：2021/8/3 12:33:00请问下如何通过关键字查找并定位文本框的内容呢，而且还需要能够向上查找和向下查找
2楼
有点蓝 发表于：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
3楼
81538475 发表于：2021/8/4 9:43:00多谢了。还想问下，找到之后，可以让查找的字处于选择状态吗？或者高亮显示
4楼
有点蓝 发表于：2021/8/4 9:45:00代码本来就是这样的。2楼代码测试过了吗？
5楼
81538475 发表于：2021/8/4 9:49:00测试过了。但是没有选择呀
这是滚动到那个位置了。
[此贴子已经被作者于2021/8/4 9:50:02编辑过]
6楼
有点蓝 发表于：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
7楼
yifan3429 发表于：2024/5/18 20:19:00Dim 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
是全部高亮了 滚动到了对应位置 需要是关键词高亮 请教老师
共7 条记录, 每页显示 10 条, 页签:
[1]