好友
阅读权限20
听众
最后登录1970-1-1
|
楼主可以看一下我做的
.版本 2
.支持库 eAPI
.支持库 iext2
.程序集 窗口程序集_启动窗口
.程序集变量 行号, 整数型
.子程序 __启动窗口_创建完毕
加载Aero特效 ()
加载皮肤 (9)
监视热键 (&_按钮1_被单击, #F9键, , )
监视热键 (&_按钮2_被单击, #F10键, , )
按钮2.可视 = 假
.子程序 _按钮1_被单击
.如果 (编辑框1.内容 = “”)
信息框 (“Hi~请在上方编辑框里面填写刷屏的间隔时间(毫秒)哦” + #换行符 + “” + #换行符 + “ 悄悄告诉你 1秒 = 1000毫秒 哦~”, #信息图标, “啊偶~木有填写间隔时间,臣妾做不到啊!”, )
.否则
按钮2.可视 = 假
按钮1.可视 = 真
.如果结束
.如果 (编辑框1.内容 ≠ “”)
时钟2.时钟周期 = 到数值 (编辑框1.内容)
时钟3.时钟周期 = 到数值 (编辑框1.内容)
按钮2.可视 = 真
按钮1.可视 = 假
.否则
.如果结束
.子程序 _时钟3_周期事件
置剪辑板文本 (编辑框2.内容)
.判断开始 (组合框1.内容 = “Ctrl + Enter”) ' 继续判断
模拟按键 (#Ctrl键, #V键, )
模拟按键 (#Ctrl键, #回车键, )
.判断 (组合框1.内容 = “Enter”)
模拟按键 (#Ctrl键, #V键, )
模拟按键 (#回车键, , )
.默认
.判断结束
.子程序 _按钮2_被单击
时钟2.时钟周期 = 0
时钟3.时钟周期 = 0
按钮2.可视 = 假
按钮1.可视 = 真
.子程序 _时钟2_周期事件
.判断开始 (单选框1.选中 = 真)
行号 = 行号 + 1
.如果真 (行号 > 超级编辑框1.取行数 ())
行号 = 0
.如果真结束
.判断 (单选框2.选中 = 真)
行号 = 取随机数 (0, 225)
.默认
.判断结束
编辑框2.内容 = 超级编辑框1.取行文本 (行号)
.子程序 _按钮3_被单击
.局部变量 文本, 整数型
.如果真 (通用对话框1.打开 ())
文本 = 打开文件 (通用对话框1.文件名, , )
.如果真结束
超级编辑框1.内容 = 读入文本 (文本, )
|
免费评分
-
查看全部评分
|