字符搜索选定问题

tbk_lcy 发布于 2024-04-09 15:29， 395 次点击

如何对编辑框内搜索到的所有指定字符进行选定，并改为红色背景。
以下代码只能选定第一个。

temp_mn=ALLTRIM(thisform.text3.value)
temp_mm=At(temp_mn,thisform.编辑框1.value)

IF temp_mm<>0
  thisform.编辑框1.selstart=temp_mm-1
  thisform.编辑框1.sellength=LEN(temp_mn)
ELSE
  WAIT windows"没有匹配的文字"timeout 1

endif

[此贴子已经被作者于2024-4-9 16:25编辑过]

4 回复

吹水佬2024-04-09 16:33

编辑框好像没有段落颜色

tbk_lcy2024-04-10 08:26

回复 2楼吹水佬

使用selecedbackcolor属性对选定字符设置了背景色，主要问题是有多个查找到的字符，只对第一个字符设置了背景色。

只有本站会员才能查看附件，请登录

cssnet2024-04-10 14:51

若十分坚持无怨无悔必须一定要选定N个匹配字符串并改为红色背景，那么，审慎地建议：
改用RichTextBox来做这一个编辑框。

shizi02024-04-13 12:44

vfp编辑框只有一个seleced，应该难以实现楼主目的
RichTextBox理论上是可以的，可能是我用过的版本不对，感觉汉化有问题，对于字符位置的计算不准，而且不是简单可以修正的
还是建议使用word、pdf、或浏览器控件来处理，现成功能，不费心。只需简单把txt文件转换下格式