易语言 卷帘式菜单 读写配置 8
.版本2.支持库iext3.支持库shell.程序集窗口程序集_启动窗口.程序集变量q,整数型.子程序_卷帘式菜单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”, “请勿更改,删除”, “顶边”, ))上面是我的源码。请问如何写配置。读配置。
读写配置。 展开
读写配置。 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询