编辑框文本滚动

King°王

看看那~学习了        

迷糊老师

看看              

茽鳡觉

看看那~学习了      

六道·仙人

呵呵  i支持吧、。

q1198232488

搞不懂 不过我正找着东西呢

wyjhg555

.版本 2
.支持库 commobj
.支持库 iext

.程序集 窗口程序集1

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

编辑框_内容.内容 ＝ 到文本 (读入文件 (“2012强制法综合题库.txt”))

.子程序 _按钮1_被单击
.局部变量 快速, 快速文本对象

快速.置文本 (编辑框_内容.内容)
透明标签_次数.标题 ＝ “(” ＋ 到文本 (快速.替换子文本 (编辑框_查询.内容, “”, , , 假)) ＋ “)个”
快速.清除文本 ()
.如果 (编辑框_查询.内容 ＝ “”)
    编辑框_查询.内容 ＝ “请用鼠标右键粘贴查询内容”
.否则

.如果结束
编辑框_内容.获取焦点 ()
编辑框_内容.起始选择位置 ＝ 起始位置
编辑框_内容.被选择字符数 ＝ 字符长度
起始位置 ＝ 寻找文本 (编辑框_内容.内容, 编辑框_查询.内容, , 假)
字符长度 ＝ 取文本长度 (编辑框_查询.内容)

.子程序 _编辑框_查询_内容被改变

编辑框_内容.获取焦点 ()
编辑框_内容.起始选择位置 ＝ 起始位置
编辑框_内容.被选择字符数 ＝ 字符长度
起始位置 ＝ 寻找文本 (编辑框_内容.内容, 编辑框_查询.内容, , 假)
字符长度 ＝ 取文本长度 (编辑框_查询.内容)

.子程序 _导入题库_被选择
.局部变量 文件号, 整数型

通用对话框.类型 ＝ 0
通用对话框.过滤器 ＝ “文本文件|*.txt”
.如果真 (通用对话框.打开 ())
    文件号 ＝ 打开文件 (通用对话框.文件名, 1, 3)
    编辑框_内容.内容 ＝ 读入文本 (文件号, )
.如果真结束
清空 ()
标题 ＝ 通用对话框.文件名

.子程序 _编辑框_内容_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (菜单, , )

.子程序 _编辑框_查询_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

编辑框_查询.内容 ＝ “”

.子程序 _退出_被选择

销毁 ()




怎么加入重复查询下一个

xiaohu159

看看了  最好别标签滚动

小末依

没效果图  表示蛋疼

aiqc

没下载点了。。。。

aiqc

多拿点。。。。。