如何实现运行中修改UI界面配置:[以多选框为例]界面UI代码:
- 界面1:
- {
- 标签页1:
- {
- 文字框:
- {
- 注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
- 名称:"文字框1",
- 显示内容:"显示内容11",
- 文字大小:0,
- 高度:0,
- 宽度:0
- },
- 多选框:
- {
- 注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
- 名称:"多选框1",
- 提示内容:"提示用户的文字内容",
- 点击响应:"函数名1",
- 选中:false,
- 文字大小:0,
- 高度:0,
- 宽度:0
- },
- },
- }
复制代码 界面代码:- Dim 小精灵包名="com.bc"
- Dim 小精灵配件文件路径="/data/data/"&小精灵包名&"/files/script.cfg"
- Dim 返回值
- 返回值=File.Read(小精灵配件文件路径)
- Call File.Write(小精灵配件文件路径,Replace(返回值,"多选框1"":true","多选框1"":false"))
- //Call File.Write(小精灵配件文件路径,Replace(返回值,"多选框1"":false","多选框1"":true"))
复制代码 原理:小精灵配置文件存放位置:"/data/data/"&包名&"/files/script.cfg"包名如何获得:Dim 小精灵包名="com.bc"
Dim 小精灵配件文件路径="/data/data/"&小精灵包名&"/files/script.cfg"
修改前小精灵读取界面多选框返回值与script.cfg文件内容格式一览(josn格式)运行修改代码后:小精灵读取界面多选框值与界面配置情况[期间未停止运行小精灵]