Question

高手看看 喔写的代码易语言工具包里的软件怎么点了没反应.我QQ991086299

.子程序 _时钟_周期事件
a ＝ 取文本右边 (“0” ＋ 到文本 (取小时 (取现行时间 ())), 2)
b ＝ 取文本右边 (“0” ＋ 到文本 (取分钟 (取现行时间 ())), 2)
c ＝ 取文本右边 (“0” ＋ 到文本 (取秒 (取现行时间 ())), 2)
透明标签_时间.标题 ＝ a ＋ “:” ＋ b ＋ “:” ＋ c

.子程序 _卷帘式菜单1_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果真 (卷帘式菜单1.现行选中菜单 ＝ 0)
弹出菜单 (菜单1, , )
.如果真结束
.如果真 (卷帘式菜单1.现行选中菜单 ＝ 1)
弹出菜单 (菜单2, , )
.如果真结束

.子程序 _添加工具_被选择
.局部变量 aa, 文本型, , "0"
.局部变量 文件名, 文本型, , "0"
.局部变量 无后缀文件名, 文本型
.如果真 (通用对话框1.打开 ())
.如果真 (通用对话框1.文件名 ＝ “”)
返回 ()
.如果真结束
aa ＝ 分割文本 (通用对话框1.文件名, “\”, )
文件名 ＝ 分割文本 (aa [取数组成员数 (aa)], “.”, )
无后缀文件名 ＝ 文件名 [1]
加空记录 ()
写 (#文件路径, 通用对话框1.文件名)
写 (#文件名, 无后缀文件名)
卷帘式菜单1.加入项目 (“”, 0, , 0, )
卷帘式菜单1.置项目名称 (卷帘式菜单1.取项目数 () － 1, 无后缀文件名, )
.如果真结束

.子程序 _卷帘式菜单1_项目被双击
.参数 菜单索引, 整数型
.参数 项目索引, 整数型
.局部变量 路径, 文本型
到首记录 ()
.计次循环首 (取记录数 (), )
.如果真 (读 (#文件名) ＝ 卷帘式菜单1.取项目名称 (卷帘式菜单1.现行选中项目, 卷帘式菜单1.现行选中菜单))
路径 ＝ 读 (#文件路径)
执行 (4, 路径, , , )
返回 ()
.如果真结束
跳过 ()
.计次循环尾 ()

Answer 1

已在QQ上回答

Answer 2

加我QQ 回来给你个！