主题：备注列内检索标识

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:内容检索.foxdb

备注列内检索标识 求助
此主题相关图片如下：企业微信截图_20240517201632.png

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:内容检索.foxdb

此主题相关图片如下：企业微信截图_20240521075422.png

良好
此主题相关图片如下：企业微信截图_20240521075400.png