易语言卷帘菜单与json_易语言 卷帘式菜单 读写配置

.版本2.支持库iext3.支持库shell.程序集窗口程序集_启动窗口.程序集变量q,整数型.子程序_卷帘式菜单1_项目被选择.参数菜单索引,整数型.参数项目索引,整数型置剪辑板文本(卷帘式菜单1....

.版本 2.支持库 iext3.支持库 shell.程序集 窗口程序集_启动窗口.程序集变量 q, 整数型.子程序 _卷帘式菜单1_项目被选择.参数 菜单索引, 整数型.参数 项目索引, 整数型置剪辑板文本 (卷帘式菜单1.取项目名称 (卷帘式菜单1.现行选中项目, )).子程序 _按钮1_被单击编辑框1.内容 ＝ 到文本 (卷帘式菜单1.取项目名称 (卷帘式菜单1.现行选中项目, )).子程序 _按钮2_被单击.判断开始 (卷帘式菜单1.现行选中项目 ≥ 0) 卷帘式菜单1.删除项目 (卷帘式菜单1.现行选中项目, ).默认 信息框 (“确认删除当前” ＋ 卷帘式菜单1.取菜单名称 (卷帘式菜单1.现行选中菜单) ＋ “菜单吗”, 1, “提示！”, ) .如果 (卷帘式菜单1.取项目数 () ＝ 0) 卷帘式菜单1.删除菜单 (卷帘式菜单1.现行选中菜单) .否则 信息框 (“请将” ＋ 卷帘式菜单1.取菜单名称 (卷帘式菜单1.现行选中菜单) ＋ “菜单内容全部删除后再试”, 0, “提示！”, ) .如果结束.判断结束.子程序 _按钮3_被单击.判断开始 (编辑框1.内容 ≠ “”) 卷帘式菜单1.加入项目 (编辑框1.内容, , , , ).默认 信息框 (“请将输入标题后再试”, 0, “提示！”, ).判断结束.子程序 _按钮4_被单击.判断开始 (编辑框1.内容 ≠ “”) 卷帘式菜单1.加入菜单 (编辑框1.内容, , ).默认 信息框 (“请将输入标题后再试”, 0, “提示！”, ).判断结束.子程序 __启动窗口_将被销毁写配置项 (取特定目录 (1) ＋ “\ztgj.ini”, “请勿更改，删除”, “顶边”, 到文本 (_启动窗口.顶边))写配置项 (取特定目录 (1) ＋ “\ztgj.ini”, “请勿更改，删除”, “左边”, 到文本 (_启动窗口.左边)).计次循环首 (卷帘式菜单1.取项目数 (), q) 写配置项 (取特定目录 (1) ＋ “\ztgj1.ini”, “请勿更改，删除”, 到文本 (q), 卷帘式菜单1.取项目名称 (q － 1, )).计次循环尾 ().子程序 __启动窗口_尺寸被改变卷帘式菜单1.左边 ＝ 0卷帘式菜单1.顶边 ＝ 0卷帘式菜单1.宽度 ＝ _启动窗口.宽度 － 30卷帘式菜单1.高度 ＝ _启动窗口.高度 － 150.子程序 __启动窗口_创建完毕_启动窗口.左边 ＝ 到整数 (读配置项 (取特定目录 (1) ＋ “\ztgj.ini”, “请勿更改，删除”, “左边”, ))_启动窗口.顶边 ＝ 到整数 (读配置项 (取特定目录 (1) ＋ “\ztgj.ini”, “请勿更改，删除”, “顶边”, ))上面是我的源码。请问如何写配置。读配置。

读写配置。

展开