Question

谁会用易语言做windows自带记事本的那种查找功能？

谁会用易语言做windows自带记事本的那种查找功能？
要图片上那种查找效果。用易语言写的代码
我要的是那种有阴影选择的效果。

Answer 1

.版本 2

.子程序 查找下一个
.参数 查找文本, 文本型
.局部变量 内容, 文本型
.局部变量 查找结果, 整数型

.如果真 (查找文本 ≠ “”)
内容 ＝ 编辑框内容.内容
.如果 (单选框向上.选中)
查找结果 ＝ 倒找文本 (内容, 查找文本, 编辑框内容.起始选择位置, 取反 (选择框大小写.选中))
.否则
查找结果 ＝ 寻找文本 (内容, 查找文本, 编辑框内容.起始选择位置 ＋ 取文本长度 (编辑框内容.被选择文本), 取反 (选择框大小写.选中))
.如果结束
.如果 (查找结果 ＝ -1)
信息框 (“找不到” ＋ #引号 ＋ 查找文本 ＋ #引号, #信息图标, “查找”)
.否则
编辑框内容.起始选择位置 ＝ 查找结果 － 1
编辑框内容.被选择字符数 ＝ 取文本长度 (查找文本)
.如果结束

.如果真结束

--------------------------------
有阴影效果的,也就是选中!
编辑框内容.起始选择位置 ＝ 查找结果 － 1
编辑框内容.被选择字符数 ＝ 取文本长度 (查找文本)

另外,要将
编辑框内容 控件的 隐藏选择 设置为假,

Answer 2

.版本 2

.子程序 向上找
.参数 要找的文本, 文本型

编辑框1.起始选择位置 ＝ 寻找文本 (编辑框1.内容, 要找的文本, 查找位置, a)
查找位置 ＝ 编辑框1.起始选择位置
编辑框1.被选择字符数 ＝ 取文本长度 (要找的文本)

.子程序 向下找
.参数 要找的文本, 文本型

编辑框1.起始选择位置 ＝ 倒找文本 (编辑框1.内容, 要找的文本, 查找位置, a)
查找位置 ＝ 编辑框1.起始选择位置
编辑框1.被选择字符数 ＝ 取文本长度 (要找的文本)

楼上忘了一件事！
要把编辑框的“隐藏选择”属性设置为“假”
留下邮箱，源码发给你！