查找文本

想学坏的小孩

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 被查找文本, 文本型, 静态
.局部变量 找到位置, 整数型

.如果真 (输入框 (“输入欲查找的文本:”, “查找文本”, 被查找文本, 被查找文本, #输入文本) ＝ 真)
    找到位置 ＝ 寻找文本 (编辑框1.内容, 被查找文本, , 假)
    .如果 (找到位置 ≠ -1)
        编辑框1.获取焦点 ()
        编辑框1.起始选择位置 ＝ 找到位置 － 1
        编辑框1.被选择字符数 ＝ 取文本长度 (被查找文本)
    .否则
        信息框 (“没有找到指定文本”, 0, )
    .如果结束

.如果真结束


.子程序 __启动窗口_创建完毕

编辑框1.内容 ＝ “在科学上没有平坦的大道，只有不畏艰险沿着陡峭山路攀登的人，才有希望达到光辉的顶点。”

shandianhym

ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd

我会让你抓狂

漂亮！赞一个