以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  备注列内检索标识  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191951)

--  作者：yifan3429 --  发布时间：2024/5/17 20:18:00 --  备注列内检索标识  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:内容检索.foxdb 备注列内检索标识 求助 此主题相关图片如下：企业微信截图_20240517201632.png

--  作者：有点蓝 --  发布时间：2024/5/18 8:59:00 --   可以查询后设置为选中状态，无法单独设置颜色：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=170650

--  作者：yifan3429 --  发布时间：2024/5/20 22:45: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 是全部高亮了 滚动到了对应位置  需要是关键词高亮  请教老师 此主题相关图片如下：企业微信截图_20240520224411.png

--  作者：有点蓝 --  发布时间：2024/5/20 22:48:00 --   这个代码不可能全部高亮。只能一个个的查找然后高亮显示

--  作者：yifan3429 --  发布时间：2024/5/21 7:55:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:内容检索.foxdb 此主题相关图片如下：企业微信截图_20240521075422.png 良好 此主题相关图片如下：企业微信截图_20240521075400.png

--  作者：有点蓝 --  发布时间：2024/5/21 8:57:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:内容检索.zip