窗口中有20个选择框，如何

pimixixi

窗口中有20个选择框，有几个选择框点打勾，如何关了软件下次打开软件时还是打勾的，如果不打勾，下次打开也是不打勾的，以软件最后一次选择或不选择为准，哪位帮我一下，如果点一下保存，就是点保存的为准

刘文明乌猛

给你写好了

人生学神

读配置项 写配置项

1173847128

写配置项 写注册表

qcby

精易模块有命令

批量_编辑框_保存配置(, , )
批量_编辑框_读取配置(, )
批量_选择框_保存配置(, , )
批量_选择框_读取配置(, )
.....

releee

很简单， 1 2 4 8 16 32 64 ...... 用位与,位或 来判断每个选择框的值。

releee

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
已选中	整数型
选择框	选择框	32

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

变量名	类 型	静态	数组	备 注
I	整数型
最大宽度	整数型
当前左边	整数型
当前顶边	整数型

最大宽度 ＝ 取用户区宽度 ()
当前左边 ＝ 10
当前顶边 ＝ 10
计次循环首 (取数组成员数 (选择框), I)
复制窗口组件 (待复制的选择框, 选择框 [I])
如果真 (当前左边 ＞ 最大宽度 － 70)
当前左边 ＝ 10
当前顶边 ＝ 当前顶边 ＋ 30

选择框 [I].左边 ＝ 当前左边
选择框 [I].顶边 ＝ 当前顶边
选择框 [I].标题 ＝ 到文本 (求次方 (2, I － 1))
选择框 [I].可视 ＝ 真
选择框 [I].标记 ＝ 到文本 (求次方 (2, I － 1))
当前左边 ＝ 当前左边 ＋ 70
计次循环尾 ()
取事件组件 ()

子程序名	返回值类型	公开	备 注
_待复制的选择框_被单击

变量名	类 型	静态	数组	备 注
当前选择框	选择框

当前选择框 ＝ 取事件组件 ()
调试输出 (“被点击的选择框标记是：”, 当前选择框.标记)
判断 (当前选择框.选中 ＝ 真)
已选中 ＝ 位或 (已选中, 到整数 (当前选择框.标记))
' 已选中 ＝ 已选中 ＋ 到整数 (当前选择框.标记)


已选中 ＝ 位与 (已选中, 位取反 (到整数 (当前选择框.标记)))
' 已选中 ＝ 已选中 － 到整数 (当前选择框.标记)

编辑框1.内容 ＝ 到文本 (已选中)

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

变量名	类 型	静态	数组	备 注
循环次数	整数型
I	整数型

循环次数 ＝ 取数组成员数 (选择框)
计次循环首 (循环次数, I)
选择框 [I].选中 ＝ 假
计次循环尾 ()
已选中 ＝ 0

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

变量名	类 型	静态	数组	备 注
记录值	整数型
循环次数	整数型
I	整数型
当前值	整数型

记录值 ＝ 到整数 (编辑框1.内容)  ' 可以将选择的值保存到变量中，下次读取变量进行恢复即可。
循环次数 ＝ 取数组成员数 (选择框)
计次循环首 (循环次数, I)
当前值 ＝ 求次方 (2, I － 1)
判断 (位与 (记录值, 当前值) ≠ 0)  ' 只要记录的变量进行位与，不是0就是代表选中。
选择框 [I].选中 ＝ 真
选择框 [I].选中 ＝ 假

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 已选中, 整数型<br /> .程序集变量 选择框, 选择框, , "32"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 I, 整数型<br /> .局部变量 最大宽度, 整数型<br /> .局部变量 当前左边, 整数型<br /> .局部变量 当前顶边, 整数型<br /> <br /> 最大宽度 ＝ 取用户区宽度 ()<br /> 当前左边 ＝ 10<br /> 当前顶边 ＝ 10<br /> <br /> .计次循环首 (取数组成员数 (选择框), I)<br />     复制窗口组件 (待复制的选择框, 选择框 [I])<br /> <br />     .如果真 (当前左边 ＞ 最大宽度 － 70)<br />         当前左边 ＝ 10<br />         当前顶边 ＝ 当前顶边 ＋ 30<br />     .如果真结束<br /> <br />     选择框 [I].左边 ＝ 当前左边<br />     选择框 [I].顶边 ＝ 当前顶边<br />     选择框 [I].标题 ＝ 到文本 (求次方 (2, I － 1))<br />     选择框 [I].可视 ＝ 真<br />     选择框 [I].标记 ＝ 到文本 (求次方 (2, I － 1))<br /> <br />     当前左边 ＝ 当前左边 ＋ 70<br /> <br /> .计次循环尾 ()<br /> 取事件组件 ()<br /> <br /> <br /> <br /> <br /> .子程序 _待复制的选择框_被单击<br /> .局部变量 当前选择框, 选择框<br /> <br /> <br /> 当前选择框 ＝ 取事件组件 ()<br /> 调试输出 (“被点击的选择框标记是：”, 当前选择框.标记)<br /> <br /> .判断开始 (当前选择框.选中 ＝ 真)<br /> <br />     已选中 ＝ 位或 (已选中, 到整数 (当前选择框.标记))<br />     ' 已选中 ＝ 已选中 ＋ 到整数 (当前选择框.标记)<br /> .默认<br /> <br />     已选中 ＝ 位与 (已选中, 位取反 (到整数 (当前选择框.标记)))<br />     ' 已选中 ＝ 已选中 － 到整数 (当前选择框.标记)<br /> .判断结束<br /> <br /> 编辑框1.内容 ＝ 到文本 (已选中)<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 循环次数, 整数型<br /> .局部变量 I, 整数型<br /> <br /> 循环次数 ＝ 取数组成员数 (选择框)<br /> <br /> .计次循环首 (循环次数, I)<br />     选择框 [I].选中 ＝ 假<br /> .计次循环尾 ()<br /> 已选中 ＝ 0<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 记录值, 整数型<br /> .局部变量 循环次数, 整数型<br /> .局部变量 I, 整数型<br /> .局部变量 当前值, 整数型<br /> <br /> 记录值 ＝ 到整数 (编辑框1.内容)  ' 可以将选择的值保存到变量中，下次读取变量进行恢复即可。<br /> 循环次数 ＝ 取数组成员数 (选择框)<br /> <br /> .计次循环首 (循环次数, I)<br />     当前值 ＝ 求次方 (2, I － 1)<br />     .判断开始 (位与 (记录值, 当前值) ≠ 0)  ' 只要记录的变量进行位与，不是0就是代表选中。<br />         选择框 [I].选中 ＝ 真<br />     .默认<br />         选择框 [I].选中 ＝ 假<br />     .判断结束<br /> <br /> .计次循环尾 ()

releee

releee 发表于 2025-10-5 02:13
[e=2].版本 2
.支持库 spec

数字在内存中 都是 00000000或11111111 通过每个位记录一个选择项，每次选择以后只要存入变量即可。这样再根据变量反向选择即可。

releee

  

计次循环首 (iHeight, iY)
计次循环首 (iWidth, iX)
idx ＝ (iY － 1) × iWidth ＋ iX
' 读取标志位
cTemp ＝ 取字节集数据 (binData, #字节型, pos)
' 处理阻塞标志
如果真 (位与 (cTemp, #ATO_BLOCK ) ≠ 0)
地图组 [idx].阻挡 ＝ 位或 (地图组 [idx].阻挡, #ATO_BLOCK )

' 处理凤凰可通过标志
如果真 (位与 (cTemp, #ATO_PHENIX_PASS_BLOCK ) ≠ 0)
地图组 [idx].阻挡 ＝ 位或 (地图组 [idx].阻挡, #AT_PHENIX_PASS_BLOCK )

' 读取小型图块
如果真 (位与 (cTemp, #ATO_SMTILES ) ≠ 0)
地图组 [idx].小砖 ＝ 取字节集数据 (binData, #短整数型, pos)
如果真 (地图组 [idx].小砖 ≠ 0 且 右移 (地图组 [idx].小砖, 16) ＝ 0)
地图组 [idx].小砖 ＝ 位或 (地图组 [idx].小砖, 左移 ( #PACKAGE_SmTiles, 16))


' 读取主图块
如果真 (位与 (cTemp, #ATO_TILES ) ≠ 0)
地图组 [idx].地砖 ＝ 取字节集数据 (binData, #短整数型, pos)
' 使用右移操作检查高16位是否为0
如果真 (地图组 [idx].地砖 ≠ 0 且 右移 (地图组 [idx].地砖, 16) ＝ 0)
' 根据物体类型设置资源包
如果 (位与 (地图组 [idx].物体, #OT_TYPE_MASK ) ≠ #OT_NORMAL )
地图组 [idx].地砖 ＝ 位或 (地图组 [idx].地砖, 左移 ( #PACKAGE_effect, 16))
地图组 [idx].地砖 ＝ 位或 (地图组 [idx].地砖, 左移 ( #PACKAGE_Tiles, 16))



' 读取物体
如果真 (位与 (cTemp, #ATO_OBJECT ) ≠ 0)
地图组 [idx].物体 ＝ 取字节集数据 (binData, #整数型, pos)
lwObjectH ＝ 取字节集数据 (binData, #短整数型, pos)
' 处理物体高度
如果真 (lwObjectH ＝ #TILE_HEIGHT )
地图组 [idx].阻挡 ＝ 位或 (地图组 [idx].阻挡, #AT_NEARGROUD )

' 检查无效物体
如果真 (lwObjectH ≤ 0 且 位与 (地图组 [idx].物体, 位取反 ( #OT_OBJECT_MASK )) ＝ 0)
地图组 [idx].物体 ＝ 0


' 读取声音
如果真 (位与 (cTemp, #ATO_SOUND ) ≠ 0)
地图组 [idx].音效 ＝ 取字节集数据 (binData, #字节型, pos)

计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br />     .计次循环首 (iHeight, iY)<br />         .计次循环首 (iWidth, iX)<br />             idx ＝ (iY － 1) × iWidth ＋ iX<br /> <br />             ' 读取标志位<br />             cTemp ＝ 取字节集数据 (binData, #字节型, pos)<br /> <br />             ' 处理阻塞标志<br />             .如果真 (位与 (cTemp, #ATO_BLOCK) ≠ 0)<br />                 地图组 [idx].阻挡 ＝ 位或 (地图组 [idx].阻挡, #ATO_BLOCK)<br />             .如果真结束<br /> <br />             ' 处理凤凰可通过标志<br />             .如果真 (位与 (cTemp, #ATO_PHENIX_PASS_BLOCK) ≠ 0)<br />                 地图组 [idx].阻挡 ＝ 位或 (地图组 [idx].阻挡, #AT_PHENIX_PASS_BLOCK)<br />             .如果真结束<br /> <br />             ' 读取小型图块<br />             .如果真 (位与 (cTemp, #ATO_SMTILES) ≠ 0)<br />                 地图组 [idx].小砖 ＝ 取字节集数据 (binData, #短整数型, pos)<br />                 .如果真 (地图组 [idx].小砖 ≠ 0 且 右移 (地图组 [idx].小砖, 16) ＝ 0)<br />                     地图组 [idx].小砖 ＝ 位或 (地图组 [idx].小砖, 左移 (#PACKAGE_SmTiles, 16))<br />                 .如果真结束<br /> <br /> <br />             .如果真结束<br /> <br />             ' 读取主图块<br />             .如果真 (位与 (cTemp, #ATO_TILES) ≠ 0)<br />                 地图组 [idx].地砖 ＝ 取字节集数据 (binData, #短整数型, pos)<br />                 ' 使用右移操作检查高16位是否为0<br />                 .如果真 (地图组 [idx].地砖 ≠ 0 且 右移 (地图组 [idx].地砖, 16) ＝ 0)<br />                     ' 根据物体类型设置资源包<br />                     .如果 (位与 (地图组 [idx].物体, #OT_TYPE_MASK) ≠ #OT_NORMAL)<br />                         地图组 [idx].地砖 ＝ 位或 (地图组 [idx].地砖, 左移 (#PACKAGE_effect, 16))<br />                     .否则<br />                         地图组 [idx].地砖 ＝ 位或 (地图组 [idx].地砖, 左移 (#PACKAGE_Tiles, 16))<br />                     .如果结束<br /> <br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />             ' 读取物体<br />             .如果真 (位与 (cTemp, #ATO_OBJECT) ≠ 0)<br />                 地图组 [idx].物体 ＝ 取字节集数据 (binData, #整数型, pos)<br />                 lwObjectH ＝ 取字节集数据 (binData, #短整数型, pos)<br /> <br />                 ' 处理物体高度<br />                 .如果真 (lwObjectH ＝ #TILE_HEIGHT)<br />                     地图组 [idx].阻挡 ＝ 位或 (地图组 [idx].阻挡, #AT_NEARGROUD)<br />                 .如果真结束<br /> <br />                 ' 检查无效物体<br />                 .如果真 (lwObjectH ≤ 0 且 位与 (地图组 [idx].物体, 位取反 (#OT_OBJECT_MASK)) ＝ 0)<br />                     地图组 [idx].物体 ＝ 0<br />                 .如果真结束<br /> <br /> <br />             .如果真结束<br /> <br />             ' 读取声音<br />             .如果真 (位与 (cTemp, #ATO_SOUND) ≠ 0)<br />                 地图组 [idx].音效 ＝ 取字节集数据 (binData, #字节型, pos)<br />             .如果真结束<br /> <br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()

这是某游戏中，地图通过字节判断是否包含特定属性的用法，通用使用了该方法。盛大传奇世界地图算法。

阿白不爱吃菜

选择框单击写配置项,到文本(选择框1.选中),读的时候真选中=真,假选中=假