每日一贴:十七课客服快捷回复(2)

时光海苔

每日一贴---------------------------------------------------------------
知识点:组件复制,复制组件事件,配置项,树形框操作
所用模块:精易模块,精易皮肤模块
下边上代码
----------------------------------------------------

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
当前按钮位置	文本型
按钮数组	按钮	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序_初始化 ()
子程序_刷新树形框 ()

子程序名	返回值类型	公开	备 注
子程序_初始化

变量名	类 型	静态	数组	备 注
i	整数型
按钮复件	按钮

皮肤_加载 ( #皮肤_FlatUI, , )
当前按钮位置 ＝ “1”
加入成员 (按钮数组, 按钮1)
计次循环首 (3, i)
复制窗口组件 (按钮1, 按钮复件)
按钮复件.可视 ＝ 真
按钮复件.标记 ＝ 到文本 (i ＋ 1)
按钮复件.左边 ＝ 按钮1.左边 ��� (按钮1.宽度 ＋ 5) × i
加入成员 (按钮数组, 按钮复件)
计次循环尾 ()
子程序_创建目录 (取运行目录 () ＋ “\配置项”)
计次循环首 (4, i)
子程序_创建目录 (取运行目录 () ＋ “\配置项\” ＋ 到文本 (i))
按钮数组 [i].标题 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “按钮标记”, 到文本 (i), “右键修改”)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序_创建目录
参数名	类 型	参考	可空	数组	备 注
路径	文本型

判断 (文件是否存在 (路径) ＝ 假)
创建目录 (路径)

子程序名	返回值类型	公开	备 注
_加入父项_被选择

变量名	类 型	静态	数组	备 注
输入内容	文本型

判断 (输入框 (“请输入标题”, , , 输入内容, , ))
写到文件 (取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置 ＋ “\” ＋ 输入内容 ＋ “.txt”, 到字节集 (“”))
子程序_刷新树形框 ()

子程序名	返回值类型	公开	备 注
_加入子项_被选择

变量名	类 型	静态	数组	备 注
输入内容	文本型
项目文本	文本型
文件内容	文本型
文件名	文本型

判断 (树型框1.现行选中项 ≠ -1)
判断 (树型框1.取父项目 (树型框1.现行选中项) ＝ -1)
判断 (输入框 (“请输入标题”, , , 输入内容, , ))
项目文本 ＝ 树型框1.取项目文本 (树型框1.现行选中项)
文件名 ＝ 取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置 ＋ “\” ＋ 项目文本 ＋ “.txt”
文件内容 ＝ 到文本 (读入文件 (文件名))
文件内容 ＝ 文件内容 ＋ 输入内容 ＋ #换行符
写到文件 (文件名, 到字节集 (文件内容))
子程序_刷新树形框 ()




信息框 (“子项目不允许添加子项目”, 0, , )

信息框 (“请选中父项目”, 0, , )

子程序名	返回值类型	公开	备 注
_树型框1_鼠标右键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (右键菜单, , )

子程序名	返回值类型	公开	备 注
子程序_刷新树形框

变量名	类 型	静态	数组	备 注
文件数组	文本型		0
i	整数型
临时索引	整数型
文件内容	文本型
文本内容数组	文本型		0
j	整数型

树型框1.清空 ()
文件_枚举 (取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置, “*.txt”, 文件数组, 假)
计次循环首 (取数组成员数 (文件数组), i)
临时索引 ＝ 树型框1.加入项目 (-1, 文件_取文件名 (文件数组 [i], ), 0, , , 真, )
文件内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置 ＋ “\” ＋ 文件数组 [i]))
文本内容数组 ＝ 分割文本 (文件内容, #换行符, )
计次循环首 (取数组成员数 (文本内容数组), j)
树型框1.加入项目 (临时索引, 文本内容数组 [j], 1, , , , )
计次循环尾 ()
树型框1.扩展 (临时索引)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_删除项目_被选择

变量名	类 型	静态	数组	备 注
项目文本	文本型
文件内容	文本型
文件名	文本型

判断 (树型框1.现行选中项 ≠ -1)
项目文本 ＝ 树型框1.取项目文本 (树型框1.现行选中项)  ' 子项目
判断 (树型框1.取父项目 (树型框1.现行选中项) ＝ -1)  ' 父项目
文件名 ＝ 取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置 ＋ “\” ＋ 项目文本 ＋ “.txt”
删除文件 (文件名)

文件名 ＝ 树型框1.取项目文本 (树型框1.取父项目 (树型框1.现行选中项))
文件名 ＝ 取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置 ＋ “\” ＋ 文件名 ＋ “.txt”
文件内容 ＝ 到文本 (读入文件 (文件名))
文件内容 ＝ 文本_替换 (文件内容, , , , 项目文本 ＋ #换行符, “”, , , , , , , , )
写到文件 (文件名, 到字节集 (文件内容))
子程序_刷新树形框 ()
信息框 (“请选中项目”, 0, , )

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
按钮	按钮

按钮 ＝ 取事件组件 ()
当前按钮位置 ＝ 按钮.标记
子程序_刷新树形框 ()

子程序名	返回值类型	公开	备 注
_按钮1_鼠标右键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
输入内容	文本型
按钮	按钮

判断 (输入框 (“请输入标题”, , , 输入内容, , ))
按钮 ＝ 取事件组件 ()
按钮.标题 ＝ 输入内容
写配置项 (取运行目录 () ＋ “\配置.ini”, “按钮标记”, 按钮.标记, 输入内容)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 当前按钮位置, 文本型<br /> .程序集变量 按钮数组, 按钮, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 子程序_初始化 ()<br /> 子程序_刷新树形框 ()<br /> <br /> .子程序 子程序_初始化<br /> .局部变量 i, 整数型<br /> .局部变量 按钮复件, 按钮<br /> <br /> 皮肤_加载 (#皮肤_FlatUI, , )<br /> 当前按钮位置 ＝ “1”<br /> 加入成员 (按钮数组, 按钮1)<br /> .计次循环首 (3, i)<br />     复制窗口组件 (按钮1, 按钮复件)<br />     按钮复件.可视 ＝ 真<br />     按钮复件.标记 ＝ 到文本 (i ＋ 1)<br />     按钮复件.左边 ＝ 按钮1.左边 ＋ (按钮1.宽度 ＋ 5) × i<br />     加入成员 (按钮数组, 按钮复件)<br /> .计次循环尾 ()<br /> 子程序_创建目录 (取运行目录 () ＋ “\配置项”)<br /> .计次循环首 (4, i)<br />     子程序_创建目录 (取运行目录 () ＋ “\配置项\” ＋ 到文本 (i))<br />     按钮数组 <i>.标题 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “按钮标记”, 到文本 (i), “右键修改”)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 子程序_创建目录<br /> .参数 路径, 文本型<br /> <br /> .判断开始 (文件是否存在 (路径) ＝ 假)<br />     创建目录 (路径)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _加入父项_被选择<br /> .局部变量 输入内容, 文本型<br /> <br /> .判断开始 (输入框 (“请输入标题”, , , 输入内容, , ))<br />     写到文件 (取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置 ＋ “\” ＋ 输入内容 ＋ “.txt”, 到字节集 (“”))<br />     子程序_刷新树形框 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _加入子项_被选择<br /> .局部变量 输入内容, 文本型<br /> .局部变量 项目文本, 文本型<br /> .局部变量 文件内容, 文本型<br /> .局部变量 文件名, 文本型<br /> <br /> .判断开始 (树型框1.现行选中项 ≠ -1)<br />     .判断开始 (树型框1.取父项目 (树型框1.现行选中项) ＝ -1)<br />         .判断开始 (输入框 (“请输入标题”, , , 输入内容, , ))<br />             项目文本 ＝ 树型框1.取项目文本 (树型框1.现行选中项)<br />             文件名 ＝ 取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置 ＋ “\” ＋ 项目文本 ＋ “.txt”<br />             文件内容 ＝ 到文本 (读入文件 (文件名))<br />             文件内容 ＝ 文件内容 ＋ 输入内容 ＋ #换行符<br />             写到文件 (文件名, 到字节集 (文件内容))<br />             子程序_刷新树形框 ()<br />         .默认<br /> <br />         .判断结束<br /> <br /> <br />     .默认<br />         信息框 (“子项目不允许添加子项目”, 0, , )<br />     .判断结束<br /> <br /> .默认<br />     信息框 (“请选中父项目”, 0, , )<br /> .判断结束<br /> <br /> <br /> .子程序 _树型框1_鼠标右键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (右键菜单, , )<br /> <br /> <br /> .子程序 子程序_刷新树形框<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 临时索引, 整数型<br /> .局部变量 文件内容, 文本型<br /> .局部变量 文本内容数组, 文本型, , "0"<br /> .局部变量 j, 整数型<br /> <br /> 树型框1.清空 ()<br /> 文件_枚举 (取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置, “*.txt”, 文件数组, 假)<br /> .计次循环首 (取数组成员数 (文件数组), i)<br />     临时索引 ＝ 树型框1.加入项目 (-1, 文件_取文件名 (文件数组 <i>, ), 0, , , 真, )<br />     文件内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置 ＋ “\” ＋ 文件数组 <i>))<br />     文本内容数组 ＝ 分割文本 (文件内容, #换行符, )<br />     .计次循环首 (取数组成员数 (文本内容数组), j)<br />         树型框1.加入项目 (临时索引, 文本内容数组 [j], 1, , , , )<br />     .计次循环尾 ()<br />     树型框1.扩展 (临时索引)<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 _删除项目_被选择<br /> .局部变量 项目文本, 文本型<br /> .局部变量 文件内容, 文本型<br /> .局部变量 文件名, 文本型<br /> <br /> .判断开始 (树型框1.现行选中项 ≠ -1)<br />     项目文本 ＝ 树型框1.取项目文本 (树型框1.现行选中项)  ' 子项目<br />     .判断开始 (树型框1.取父项目 (树型框1.现行选中项) ＝ -1)  ' 父项目<br />         文件名 ＝ 取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置 ＋ “\” ＋ 项目文本 ＋ “.txt”<br />         删除文件 (文件名)<br /> <br />     .默认<br />         文件名 ＝ 树型框1.取项目文本 (树型框1.取父项目 (树型框1.现行选中项))<br />         文件名 ＝ 取运行目录 () ＋ “\配置项\” ＋ 当前按钮位置 ＋ “\” ＋ 文件名 ＋ “.txt”<br />         文件内容 ＝ 到文本 (读入文件 (文件名))<br />         文件内容 ＝ 文本_替换 (文件内容, , , , 项目文本 ＋ #换行符, “”, , , , , , , , )<br />         写到文件 (文件名, 到字节集 (文件内容))<br />     .判断结束<br />     子程序_刷新树形框 ()<br /> .默认<br />     信息框 (“请选中项目”, 0, , )<br /> .判断结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 按钮, 按钮<br /> <br /> 按钮 ＝ 取事件组件 ()<br /> 当前按钮位置 ＝ 按钮.标记<br /> 子程序_刷新树形框 ()<br /> <br /> .子程序 _按钮1_鼠标右键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 输入内容, 文本型<br /> .局部变量 按钮, 按钮<br /> <br /> .判断开始 (输入框 (“请输入标题”, , , 输入内容, , ))<br />     按钮 ＝ 取事件组件 ()<br />     按钮.标题 ＝ 输入内容<br />     写配置项 (取运行目录 () ＋ “\配置.ini”, “按钮标记”, 按钮.标记, 输入内容)<br /> .默认<br /> <br /> .判断结束

Solo98k

ganxiefenxiang

mm123456

6666666666666666666666666

Solo98k

支持开源~！感谢分享

li110

        支持开源~！感谢分享

396384183

请问这个如何配对 Q 以及 千牛 VX等 聊天窗口呢

moxuandk

支持下 不错

xiaoniu1230

支持开源~！感谢分享

qq184252904

6666666666666666666

web188

        支持开源~！感谢分享