|
楼主 |
发表于 2011-3-7 16:06:11
|
显示全部楼层
山东省临沂市
.版本 2
.支持库 shellEx
.支持库 spec
.程序集 窗口程序集1
.程序集变量 热键停止
.程序集变量 热键F2
.程序集变量 热键F3
.程序集变量 热键F4
.程序集变量 热键F5
.程序集变量 热键F6
.程序集变量 热键F7
.程序集变量 热键F8
.程序集变量 热键F9
.程序集变量 热键F10
.程序集变量 热键F11
.程序集变量 回车状态, 逻辑型
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
回车状态 = 选择框1.选中
.如果 (参数一 = 热键F2)
标签1.标题 = 回复列表框.取项目文本 (0)
内容变量 = 回复列表框.取项目文本 (0)
文本投递 (取焦点句柄 (), 内容变量)
.判断开始 (回车状态 = 真)
按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
.默认
.判断结束
处理事件 ()
.否则
.如果 (参数一 = 热键F3)
标签1.标题 = 回复列表框.取项目文本 (1)
内容变量 = 回复列表框.取项目文本 (1)
文本投递 (取焦点句柄 (), 内容变量)
.判断开始 (回车状态 = 真)
按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
.默认
.判断结束
处理事件 ()
.否则
.如果 (参数一 = 热键F4)
标签1.标题 = 回复列表框.取项目文本 (2)
内容变量 = 回复列表框.取项目文本 (2)
文本投递 (取焦点句柄 (), 内容变量)
.判断开始 (回车状态 = 真)
按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
.默认
.判断结束
处理事件 ()
.否则
.如果 (参数一 = 热键F5)
标签1.标题 = 回复列表框.取项目文本 (3)
内容变量 = 回复列表框.取项目文本 (3)
文本投递 (取焦点句柄 (), 内容变量)
.判断开始 (回车状态 = 真)
按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
.默认
.判断结束
处理事件 ()
.否则
.如果 (参数一 = 热键F6)
标签1.标题 = 回复列表框.取项目文本 (4)
内容变量 = 回复列表框.取项目文本 (4)
文本投递 (取焦点句柄 (), 内容变量)
.判断开始 (回车状态 = 真)
按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
.默认
.判断结束
处理事件 ()
.否则
.如果 (参数一 = 热键F7)
标签1.标题 = 回复列表框.取项目文本 (5)
内容变量 = 回复列表框.取项目文本 (5)
文本投递 (取焦点句柄 (), 内容变量)
.判断开始 (回车状态 = 真)
按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
.默认
.判断结束
处理事件 ()
.否则
.如果 (参数一 = 热键F8)
标签1.标题 = 回复列表框.取项目文本 (6)
内容变量 = 回复列表框.取项目文本 (6)
文本投递 (取焦点句柄 (), 内容变量)
.判断开始 (回车状态 = 真)
按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
.默认
.判断结束
处理事件 ()
.否则
.如果 (参数一 = 热键F9)
标签1.标题 = 回复列表框.取项目文本 (7)
内容变量 = 回复列表框.取项目文本 (7)
文本投递 (取焦点句柄 (), 内容变量)
.判断开始 (回车状态 = 真)
按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
.默认
.判断结束
处理事件 ()
.否则
.如果 (参数一 = 热键F10)
标签1.标题 = 回复列表框.取项目文本 (8)
内容变量 = 回复列表框.取项目文本 (8)
文本投递 (取焦点句柄 (), 内容变量)
.判断开始 (回车状态 = 真)
按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
.默认
.判断结束
处理事件 ()
.否则
.如果 (参数一 = 热键F11)
标签1.标题 = 回复列表框.取项目文本 (9)
内容变量 = 回复列表框.取项目文本 (9)
文本投递 (取焦点句柄 (), 内容变量)
.判断开始 (回车状态 = 真)
按组合键 (取焦点句柄 (), #Ctrl键, #回车键, )
.默认
.判断结束
处理事件 ()
.否则
.如果 (参数一 = 热键停止)
标签1.标题 = “热键停止”
' 撤销热键 (标签1.取窗口句柄 (), 热键停止)
处理事件 ()
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.子程序 __启动窗口_创建完毕
热键停止 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Esc键)
热键F2 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F2键)
热键F3 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F3键)
热键F4 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F4键)
热键F5 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F5键)
热键F6 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键)
热键F7 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F7键)
热键F8 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F8键)
热键F9 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F9键)
热键F10 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键)
热键F11 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F11键)
调用子程序 (&_载入按钮_被单击, , , )
.子程序 _修改当前文本按钮_被单击
.如果 (回复列表框.现行选中项 < 0)
信息框 (“请选择一个项目”, 0, )
.否则
回复列表框.置项目文本 (回复列表框.现行选中项, 输入编辑框.内容)
.如果结束
.子程序 _保存按钮_被单击
.局部变量 i, 整数型
.局部变量 文本, 文本型
.计次循环首 (回复列表框.取项目数 (), i)
文本 = 文本 + 回复列表框.取项目文本 (i - 1) + #换行符
写到文件 (取运行目录 () + “\” + “项目文本.txt”, 到字节集 (文本))
.计次循环尾 ()
.子程序 _载入按钮_被单击
.局部变量 文本1, 文本型
.局部变量 项目数组, 文本型, , "0"
.局部变量 j, 整数型
.如果真 (文件是否存在 (取运行目录 () + “\” + “项目文本.txt”))
文本1 = 到文本 (读入文件 (取运行目录 () + “\” + “项目文本.txt”))
项目数组 = 分割文本 (文本1, #换行符, )
.计次循环首 (取数组成员数 (项目数组), j)
.判断开始 (j ≥ 11 或 回复列表框.取项目数 () ≥ 10)
跳出循环 ()
.默认
.判断结束
回复列表框.加入项目 (项目数组 [j], )
.计次循环尾 ()
.如果真结束
.子程序 _清空按钮_被单击
回复列表框.清空 ()
.子程序 __启动窗口_将被销毁
调用子程序 (&_保存按钮_被单击, , , )
.子程序 _清空修改框_被单击
输入编辑框.内容 = “”
.子程序 __启动窗口_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
载入 (窗口1, , 真) |
|