窗口中很多按钮，如何用选择框，让所有按钮

pimixixi

窗口中很多按钮，如何用选择框，让所有按钮的标题显示和隐藏，[color=rgba(0, 0, 0, 0.85)][backcolor=rgba(0, 0, 0, 0.04)]并且在按钮边线外右下面仅显示和隐藏[color=rgba(0, 0, 0, 0.85)][backcolor=rgba(0, 0, 0, 0.04)]按钮名称中数字

wangchen

pimixixi 发表于 2025-10-1 10:08
帮我看一下，按钮是一直显示的，只有按钮的标题隐藏，按钮右下面显示按钮中的数字，这样，导入图片，就能 ...

555.e (10.01 KB, 下载次数: 2)

2025-10-1 10:17 上传

点击文件名下载附件

kedoubobo

本方法。 一个时钟 一个判断。。时钟里面判断。 选择选中  按钮1  按钮2  按钮3 .......可视=真  否则 可视 等于假

ChinaSaga

下面是我写的一键保存读取窗口所有组件的代码,按钮的你自己猜一下也该知道怎么写了

.版本 2
.支持库 iext

.子程序 圣人自用_配置保存, , 公开, 如果编辑框允许多行 那么保存时会以字节集模式保存多行
.参数 参_窗口, 窗口
.参数 保存文件名, 文本型
.参数 参_前缀名, 文本型, 可空
.参数 不保存的控件名称, 文本型, 可空, 不需要自动保存数据的控件名称,以|分开;
.局部变量 i, 整数型
.局部变量 局_选择框, 选择框
.局部变量 局_单选框, 单选框
.局部变量 局_组合框, 组合框
.局部变量 局_编辑框, 编辑框
.局部变量 局_图形按钮, 图形按钮
.局部变量 局_控件句柄, 整数型
.局部变量 局_hk条, hk条
.局部变量 局_颜色选择器, 颜色选择器
.局部变量 局_指针, 整数型


.如果真 (是否为空 (参_前缀名) 或 参_前缀名 ＝ “”)

    参_前缀名 ＝ “默认”
.如果真结束

局_控件句柄 ＝ 寻找组件 (参_窗口, , “选择框”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_选择框 ＝ 取所找到组件 (局_控件句柄, i － 1)

    .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_选择框)))

        写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_选择框), 到文本 (局_选择框.选中))
    .如果真结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “单选框”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_单选框 ＝ 取所找到组件 (局_控件句柄, i － 1)

    .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_单选框)))

        写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_单选框), 到文本 (局_单选框.选中))
    .如果真结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “组合框”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_组合框 ＝ 取所找到组件 (局_控件句柄, i － 1)

    .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_组合框)))

        写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_组合框), 到文本 (局_组合框.现行选中项))
    .如果真结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “编辑框”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_编辑框 ＝ 取所找到组件 (局_控件句柄, i － 1)

    .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_编辑框)))

        .判断开始 (局_编辑框.是否允许多行)

            写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_编辑框), 字节集_字节集转文本 (到字节集 (局_编辑框.内容), ))

        .默认
            写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_编辑框), 局_编辑框.内容)
        .判断结束

    .如果真结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “图形按钮”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_图形按钮 ＝ 取所找到组件 (局_控件句柄, i － 1)

    .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_图形按钮)))

        写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_图形按钮), 到文本 (局_图形按钮.选中))
    .如果真结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “hk条”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_hk条 ＝ 取所找到组件 (局_控件句柄, i － 1)

    .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_hk条)))

        写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_hk条), 到文本 (局_hk条.位置))
    .如果真结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “颜色选择器”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_颜色选择器 ＝ 取所找到组件 (局_控件句柄, i － 1)

    .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_颜色选择器)))

        写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_颜色选择器), 到文本 (局_颜色选择器.颜色))
    .如果真结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)


.子程序 圣人自用_配置读取, , 公开, 触发事件 编辑框内容被改变 选择框被单击两次 组合框切换现行选中项 颜色选择器选中
.参数 参_窗口, 窗口
.参数 保存文件名, 文本型
.参数 参_前缀名, 文本型, 可空
.局部变量 i, 整数型
.局部变量 局_选择框, 选择框
.局部变量 局_单选框, 单选框
.局部变量 局_组合框, 组合框
.局部变量 局_编辑框, 编辑框
.局部变量 局_读取文本, 文本型
.局部变量 局_控件句柄, 整数型
.局部变量 局_标签, 标签
.局部变量 局_分组框, 分组框
.局部变量 局_选择夹, 选择夹
.局部变量 局_超级列表框, 超级列表框
.局部变量 局_按钮, 按钮
.局部变量 局_列表框, 列表框
.局部变量 局_透明标签, 透明标签
.局部变量 局_选择列表框, 选择列表框
.局部变量 局_文件框, 文件框
.局部变量 局_图形按钮, 图形按钮
.局部变量 局_hk条, hk条
.局部变量 局_颜色选择器, 颜色选择器


.如果真 (是否为空 (参_前缀名) 或 参_前缀名 ＝ “”)

    参_前缀名 ＝ “默认”
.如果真结束

局_控件句柄 ＝ 寻找组件 (参_窗口, , “编辑框”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_编辑框 ＝ 取所找到组件 (局_控件句柄, i － 1)

    .判断开始 (局_编辑框.是否允许多行)

        局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_编辑框), “”)

        局_读取文本 ＝ 到文本 (字节集_文本转字节集 (局_读取文本))

    .默认
        局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_编辑框), “”)
    .判断结束

    .判断开始 (局_读取文本 ＝ “”)

        局_编辑框.内容 ＝ 局_编辑框.内容

    .默认
        局_编辑框.内容 ＝ 局_读取文本
    .判断结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “选择框”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_选择框 ＝ 取所找到组件 (局_控件句柄, i － 1)

    局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_选择框), “”)

    .判断开始 (局_读取文本 ＝ “”)

    .默认
        局_选择框.选中 ＝ 到逻辑型 (局_读取文本, , )
    .判断结束

    SendMessageA (局_选择框.取窗口句柄 (), #BM_CLICK, 0, 0)

    SendMessageA (局_选择框.取窗口句柄 (), #BM_CLICK, 0, 0)

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “单选框”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_单选框 ＝ 取所找到组件 (局_控件句柄, i － 1)

    局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_单选框), “”)

    .判断开始 (局_读取文本 ＝ “”)

    .默认
        局_单选框.选中 ＝ 到逻辑型 (局_读取文本, , )
    .判断结束

    .如果真 (局_单选框.选中)

        SendMessageA (局_单选框.取窗口句柄 (), #BM_CLICK, 0, 0)
    .如果真结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “组合框”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_组合框 ＝ 取所找到组件 (局_控件句柄, i － 1)

    局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_组合框), “”)

    .判断开始 (局_读取文本 ＝ “”)

    .默认
        局_组合框.现行选中项 ＝ 到整数 (局_读取文本)
    .判断结束

    局_组合框.发送信息 (42769, 0, 0)  ' 调用组合框被选中的消息

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “图形按钮”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_图形按钮 ＝ 取所找到组件 (局_控件句柄, i － 1)

    局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_图形按钮), “”)

    .判断开始 (局_读取文本 ＝ “”)

    .默认
        局_图形按钮.选中 ＝ 到逻辑型 (局_读取文本, , )
    .判断结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “hk条”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_hk条 ＝ 取所找到组件 (局_控件句柄, i － 1)

    局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_hk条), “”)

    .判断开始 (局_读取文本 ＝ “”)

    .默认
        局_hk条.位置 ＝ 到整数 (局_读取文本)
    .判断结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

局_控件句柄 ＝ 寻找组件 (参_窗口, , “颜色选择器”, , )

.计次循环首 (取找到组件数目 (局_控件句柄), i)

    局_颜色选择器 ＝ 取所找到组件 (局_控件句柄, i － 1)

    局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_颜色选择器), “”)

    .判断开始 (局_读取文本 ＝ “”)

        局_颜色选择器.发送信息 (33772, 局_颜色选择器.颜色, 0)

    .默认
        局_颜色选择器.发送信息 (33772, 到整数 (局_读取文本), 0)
    .判断结束

.计次循环尾 ()

清除组件寻找句柄 (局_控件句柄)

ChinaSaga

  

子程序名	返回值类型	公开	备 注
圣人自用_配置保存			如果编辑框允许多行 那么保存时会以字节集模式保存多行
参数名	类 型	参考	可空	数组	备 注
参_窗口	窗口
保存文件名	文本型
参_前缀名	文本型
不保存的控件名称	文本型				不需要自动保存数据的控件名称,以|分开;

变量名	类 型	静态	数组	备 注
i	整数型
局_选择框	选择框
局_单选框	单选框
局_组合框	组合框
局_编辑框	编辑框
局_图形按钮	图形按钮
局_控件句柄	整数型
局_hk条	hk条
局_颜色选择器	颜色选择器
局_指针	整数型

如果真 (是否为空 (参_前缀名) 或 参_前缀名 ＝ “”)
参_前缀名 ＝ “默认”

局_控件句柄 ＝ 寻找组件 (参_窗口, , “选择框”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_选择框 ＝ 取所找到组件 (局_控件句柄, i － 1)
如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_选择框)))
写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_选择框), 到文本 (局_选择框.选中))

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “单选框”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_单选框 ＝ 取所找到组件 (局_控件句柄, i － 1)
如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_单选框)))
写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_单选框), 到文本 (局_单选框.选中))

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “组合框”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_组合框 ＝ 取所找到组件 (局_控件句柄, i － 1)
如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_组合框)))
写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_组合框), 到文本 (局_组合框.现行选中项))

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “编辑框”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_编辑框 ＝ 取所找到组件 (局_控件句柄, i － 1)
如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_编辑框)))
判断 (局_编辑框.是否允许多行)
写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_编辑框), 字节集_字节集转文本 (到字节集 (局_编辑框.内容), ))

写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_编辑框), 局_编辑框.内容)


计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “图形按钮”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_图形按钮 ＝ 取所找到组件 (局_控件句柄, i － 1)
如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_图形按钮)))
写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_图形按钮), 到文本 (局_图形按钮.选中))

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “hk条”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_hk条 ＝ 取所找到组件 (局_控件句柄, i － 1)
如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_hk条)))
写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_hk条), 到文本 (局_hk条.位置))

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “颜色选择器”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_颜色选择器 ＝ 取所找到组件 (局_控件句柄, i － 1)
如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_颜色选择器)))
写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_颜色选择器), 到文本 (局_颜色选择器.颜色))

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)

子程序名	返回值类型	公开	备 注
圣人自用_配置读取			触发事件 编辑框内容被改变 选择框被单击两次 组合框切换现行选中项 颜色选择器选中
参数名	类 型	参考	可空	数组	备 注
参_窗口	窗口
保存文件名	文本型
参_前缀名	文本型

变量名	类 型	静态	数组	备 注
i	整数型
局_选择框	选择框
局_单选框	单选框
局_组合框	组合框
局_编辑框	编辑框
局_读取文本	文本型
局_控件句柄	整数型
局_标签	标签
局_分组框	分组框
局_选择夹	选择夹
局_超级列表框	超级列表框
局_按钮	按钮
局_列表框	列表框
局_透明标签	透明标签
局_选择列表框	选择列表框
局_文件框	文件框
局_图形按钮	图形按钮
局_hk条	hk条
局_颜色选择器	颜色选择器

如果真 (是否为空 (参_前缀名) 或 参_前缀名 ＝ “”)
参_前缀名 ＝ “默认”

局_控件句柄 ＝ 寻找组件 (参_窗口, , “编辑框”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_编辑框 ＝ 取所找到组件 (局_控件句柄, i － 1)
判断 (局_编辑框.是否允许多行)
局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_编辑框), “”)
局_读取文本 ＝ 到文本 (字节集_文本转字节集 (局_读取文本))

局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_编辑框), “”)

判断 (局_读取文本 ＝ “”)
局_编辑框.内容 ＝ 局_编辑框.内容

局_编辑框.内容 ＝ 局_读取文本

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “选择框”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_选择框 ＝ 取所找到组件 (局_控件句柄, i － 1)
局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_选择框), “”)
判断 (局_读取文本 ＝ “”)

局_选择框.选中 ＝ 到逻辑型 (局_读取文本, , )

SendMessageA (局_选择框.取窗口句柄 (), #BM_CLICK, 0, 0)
SendMessageA (局_选择框.取窗口句柄 (), #BM_CLICK, 0, 0)
计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “单选框”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_单选框 ＝ 取所找到组件 (局_控件句柄, i － 1)
局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_单选框), “”)
判断 (局_读取文本 ＝ “”)

局_单选框.选中 ＝ 到逻辑型 (局_读取文本, , )

如果真 (局_单选框.选中)
SendMessageA (局_单选框.取窗口句柄 (), #BM_CLICK, 0, 0)

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “组合框”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_组合框 ＝ 取所找到组件 (局_控件句柄, i － 1)
局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_组合框), “”)
判断 (局_读取文本 ＝ “”)

局_组合框.现行选中项 ＝ 到整数 (局_读取文本)

局_组合框.发送信息 (42769, 0, 0)  ' 调用组合框被选中的消息
计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “图形按钮”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_图形按钮 ＝ 取所找到组件 (局_控件句柄, i － 1)
局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_图形按钮), “”)
判断 (局_读取文本 ＝ “”)

局_图形按钮.选中 ＝ 到逻辑型 (局_读取文本, , )

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “hk条”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_hk条 ＝ 取所找到组件 (局_控件句柄, i － 1)
局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_hk条), “”)
判断 (局_读取文本 ＝ “”)

局_hk条.位置 ＝ 到整数 (局_读取文本)

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)
局_控件句柄 ＝ 寻找组件 (参_窗口, , “颜色选择器”, , )
计次循环首 (取找到组件数目 (局_控件句柄), i)
局_颜色选择器 ＝ 取所找到组件 (局_控件句柄, i － 1)
局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_颜色选择器), “”)
判断 (局_读取文本 ＝ “”)
局_颜色选择器.发送信息 (33772, 局_颜色选择器.颜色, 0)

局_颜色选择器.发送信息 (33772, 到整数 (局_读取文本), 0)

计次循环尾 ()
清除组件寻找句柄 (局_控件句柄)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 圣人自用_配置保存, , 公开, 如果编辑框允许多行 那么保存时会以字节集模式保存多行<br /> .参数 参_窗口, 窗口<br /> .参数 保存文件名, 文本型<br /> .参数 参_前缀名, 文本型, 可空<br /> .参数 不保存的控件名称, 文本型, 可空, 不需要自动保存数据的控件名称,以|分开;<br /> .局部变量 i, 整数型<br /> .局部变量 局_选择框, 选择框<br /> .局部变量 局_单选框, 单选框<br /> .局部变量 局_组合框, 组合框<br /> .局部变量 局_编辑框, 编辑框<br /> .局部变量 局_图形按钮, 图形按钮<br /> .局部变量 局_控件句柄, 整数型<br /> .局部变量 局_hk条, hk条<br /> .局部变量 局_颜色选择器, 颜色选择器<br /> .局部变量 局_指针, 整数型<br /> <br /> <br /> .如果真 (是否为空 (参_前缀名) 或 参_前缀名 ＝ “”)<br /> <br />     参_前缀名 ＝ “默认”<br /> .如果真结束<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “选择框”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_选择框 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_选择框)))<br /> <br />         写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_选择框), 到文本 (局_选择框.选中))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “单选框”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_单选框 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_单选框)))<br /> <br />         写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_单选框), 到文本 (局_单选框.选中))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “组合框”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_组合框 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_组合框)))<br /> <br />         写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_组合框), 到文本 (局_组合框.现行选中项))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “编辑框”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_编辑框 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_编辑框)))<br /> <br />         .判断开始 (局_编辑框.是否允许多行)<br /> <br />             写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_编辑框), 字节集_字节集转文本 (到字节集 (局_编辑框.内容), ))<br /> <br />         .默认<br />             写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_编辑框), 局_编辑框.内容)<br />         .判断结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “图形按钮”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_图形按钮 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_图形按钮)))<br /> <br />         写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_图形按钮), 到文本 (局_图形按钮.选中))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “hk条”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_hk条 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_hk条)))<br /> <br />         写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_hk条), 到文本 (局_hk条.位置))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “颜色选择器”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_颜色选择器 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     .如果真 (内部_对比 (不保存的控件名称, 取组件名称 (局_颜色选择器)))<br /> <br />         写配置项 (保存文件名, 参_前缀名, 取组件名称 (局_颜色选择器), 到文本 (局_颜色选择器.颜色))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> <br /> .子程序 圣人自用_配置读取, , 公开, 触发事件 编辑框内容被改变 选择框被单击两次 组合框切换现行选中项 颜色选择器选中<br /> .参数 参_窗口, 窗口<br /> .参数 保存文件名, 文本型<br /> .参数 参_前缀名, 文本型, 可空<br /> .局部变量 i, 整数型<br /> .局部变量 局_选择框, 选择框<br /> .局部变量 局_单选框, 单选框<br /> .局部变量 局_组合框, 组合框<br /> .局部变量 局_编辑框, 编辑框<br /> .局部变量 局_读取文本, 文本型<br /> .局部变量 局_控件句柄, 整数型<br /> .局部变量 局_标签, 标签<br /> .局部变量 局_分组框, 分组框<br /> .局部变量 局_选择夹, 选择夹<br /> .局部变量 局_超级列表框, 超级列表框<br /> .局部变量 局_按钮, 按钮<br /> .局部变量 局_列表框, 列表框<br /> .局部变量 局_透明标签, 透明标签<br /> .局部变量 局_选择列表框, 选择列表框<br /> .局部变量 局_文件框, 文件框<br /> .局部变量 局_图形按钮, 图形按钮<br /> .局部变量 局_hk条, hk条<br /> .局部变量 局_颜色选择器, 颜色选择器<br /> <br /> <br /> .如果真 (是否为空 (参_前缀名) 或 参_前缀名 ＝ “”)<br /> <br />     参_前缀名 ＝ “默认”<br /> .如果真结束<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “编辑框”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_编辑框 ＝ 取所找到组件 (局_控件句柄, i － 1)<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 /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_选择框 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_选择框), “”)<br /> <br />     .判断开始 (局_读取文本 ＝ “”)<br /> <br />     .默认<br />         局_选择框.选中 ＝ 到逻辑型 (局_读取文本, , )<br />     .判断结束<br /> <br />     SendMessageA (局_选择框.取窗口句柄 (), #BM_CLICK, 0, 0)<br /> <br />     SendMessageA (局_选择框.取窗口句柄 (), #BM_CLICK, 0, 0)<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “单选框”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_单选框 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_单选框), “”)<br /> <br />     .判断开始 (局_读取文本 ＝ “”)<br /> <br />     .默认<br />         局_单选框.选中 ＝ 到逻辑型 (局_读取文本, , )<br />     .判断结束<br /> <br />     .如果真 (局_单选框.选中)<br /> <br />         SendMessageA (局_单选框.取窗口句柄 (), #BM_CLICK, 0, 0)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “组合框”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_组合框 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_组合框), “”)<br /> <br />     .判断开始 (局_读取文本 ＝ “”)<br /> <br />     .默认<br />         局_组合框.现行选中项 ＝ 到整数 (局_读取文本)<br />     .判断结束<br /> <br />     局_组合框.发送信息 (42769, 0, 0)  ' 调用组合框被选中的消息<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “图形按钮”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_图形按钮 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_图形按钮), “”)<br /> <br />     .判断开始 (局_读取文本 ＝ “”)<br /> <br />     .默认<br />         局_图形按钮.选中 ＝ 到逻辑型 (局_读取文本, , )<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “hk条”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_hk条 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_hk条), “”)<br /> <br />     .判断开始 (局_读取文本 ＝ “”)<br /> <br />     .默认<br />         局_hk条.位置 ＝ 到整数 (局_读取文本)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)<br /> <br /> 局_控件句柄 ＝ 寻找组件 (参_窗口, , “颜色选择器”, , )<br /> <br /> .计次循环首 (取找到组件数目 (局_控件句柄), i)<br /> <br />     局_颜色选择器 ＝ 取所找到组件 (局_控件句柄, i － 1)<br /> <br />     局_读取文本 ＝ 读配置项 (保存文件名, 参_前缀名, 取组件名称 (局_颜色选择器), “”)<br /> <br />     .判断开始 (局_读取文本 ＝ “”)<br /> <br />         局_颜色选择器.发送信息 (33772, 局_颜色选择器.颜色, 0)<br /> <br />     .默认<br />         局_颜色选择器.发送信息 (33772, 到整数 (局_读取文本), 0)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (局_控件句柄)

灵海雪缘

ChinaSaga 发表于 2025-9-30 21:43
[e=0].版本 2
.支持库 iext

你好，内部_对比这个命令是什么模块的啊？

RainCharm

看下是不是这样的效果

RainCharm

刚刚没发出去，再试一下

wangchen

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
按钮数组	整数型	0
标签数组	整数型	0
按钮标题	文本型	0

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

EnumChildWindows (_启动窗口.取窗口句柄 (), &回调函数, 0)

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

如果 (选择框1.选中)
透明显示 ()
按钮显示 ()
_启动窗口.重画 ()

子程序名	返回值类型	公开	备 注
按钮显示

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (按钮数组), i)
如果 (按钮数组 [i] ＞ 0)
SetWindowTextA (按钮数组 [i], 按钮标题 [i])
SetWindowTextA (标签数组 [i], “”)
ShowScrollBar (按钮数组 [i], 2, 真)
ShowScrollBar (标签数组 [i], 2, 假)
跳出循环 ()

计次循环尾 ()

子程序名	返回值类型	公开	备 注
透明显示

变量名	类 型	静态	数组	备 注
i	整数型
a	文本型

计次循环首 (取数组成员数 (按钮数组), i)
a ＝ 取数字 (取窗口标题 (按钮数组 [i]))
如果 (按钮数组 [i] ＞ 0 且 a ≠ “”)
SetWindowTextA (标签数组 [i], a)
SetWindowTextA (按钮数组 [i], “”)
ShowScrollBar (按钮数组 [i], 2, 假)
ShowScrollBar (标签数组 [i], 2, 真)
跳出循环 ()

计次循环尾 ()

子程序名	返回值类型	公开	备 注
取数字	文本型
参数名	类 型	参考	可空	数组	备 注
参数	文本型

变量名	类 型	静态	数组	备 注
i	整数型
a	文本型

计次循环首 (取文本长度 (参数), i)
如果真 (寻找文本 (“0123456789”, 取文本中间 (参数, i, 1), , 假) ≠ -1)
a ＝ a ＋ 取文本中间 (参数, i, 1)

计次循环尾 ()
返回 (a)

子程序名	返回值类型	公开	备 注
回调函数	整数型
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
类型	整数型

如果真 (句柄 ＝ 0)
返回 (0)
如果真 (取窗口类名 (句柄) ＝ “Button” 且 取窗口标题 (句柄) ≠ “选择框”)
加入成员 (按钮标题, 取窗口标题 (句柄))
加入成员 (按钮数组, 句柄)
如果真 (寻找文本 (取窗口类名 (句柄), “Afx”, , 假) ≠ -1)
加入成员 (标签数组, 句柄)

返回 (1)

DLL命令名	返回值类型	公开	备 注
EnumChildWindows	整数型		为指定的父窗口枚举子窗口  非零表示成功，零表示失败
DLL库文件名:
user32
在DLL库中对应命令名:
EnumChildWindows
参数名	类 型	传址	数组	备 注
父窗口句柄	整数型			欲枚举子窗口的父窗口的句柄
函数指针	子程序指针			为每个子窗口调用的函数的指针。用AddressOf运算符获得函数在一个标准模块中的地址
自定义值	整数型			在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的。（原文：Value that is passed to the EnumWindows event of the dwcbkd32.ocx custom control during enumeration. The meaning of this value is defined by the programmer.）;

DLL命令名	返回值类型	公开	备 注
SetWindowTextA	逻辑型		改变指定窗口的标题栏的文本内容（如果窗口有标题栏）。如果指定窗口是一个控件，则改变控件的文本内容。然而，SetWindowText函数不改变其他应用程序中的控件的文本内容。
DLL库文件名:
user32.dll
在DLL库中对应命令名:
SetWindowTextA
参数名	类 型	传址	数组	备 注
hWnd	整数型			要改变文本内容的窗口或控件的句柄。
lpString	文本型			指向一个空结束的字符串的指针，该字符串将作为窗口或控件的新文本。

DLL命令名	返回值类型	公开	备 注
ShowScrollBar	逻辑型
DLL库文件名:
user32
在DLL库中对应命令名:
ShowScrollBar
参数名	类 型	传址	数组	备 注
hWnd	整数型			0
wBar	整数型			0
bShow	逻辑型			0

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 按钮数组, 整数型, , "0"<br /> .程序集变量 标签数组, 整数型, , "0"<br /> .程序集变量 按钮标题, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> EnumChildWindows (_启动窗口.取窗口句柄 (), &回调函数, 0)<br /> <br /> .子程序 _选择框1_被单击<br /> <br /> .如果 (选择框1.选中)<br />     透明显示 ()<br /> .否则<br />     按钮显示 ()<br /> .如果结束<br /> _启动窗口.重画 ()<br /> <br /> .子程序 按钮显示<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (按钮数组), i)<br /> <br />     .如果 (按钮数组 <i> ＞ 0)<br />         SetWindowTextA (按钮数组 <i>, 按钮标题 <i>)<br />         SetWindowTextA (标签数组 <i>, “”)<br />         ShowScrollBar (按钮数组 <i>, 2, 真)<br />         ShowScrollBar (标签数组 <i>, 2, 假)<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 透明显示<br /> .局部变量 i, 整数型<br /> .局部变量 a, 文本型<br /> <br /> .计次循环首 (取数组成员数 (按钮数组), i)<br />     a ＝ 取数字 (取窗口标题 (按钮数组 <i>))<br />     .如果 (按钮数组 <i> ＞ 0 且 a ≠ “”)<br />         SetWindowTextA (标签数组 <i>, a)<br />         SetWindowTextA (按钮数组 <i>, “”)<br />         ShowScrollBar (按钮数组 <i>, 2, 假)<br />         ShowScrollBar (标签数组 <i>, 2, 真)<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 取数字, 文本型<br /> .参数 参数, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 a, 文本型<br /> <br /> <br /> .计次循环首 (取文本长度 (参数), i)<br />     .如果真 (寻找文本 (“0123456789”, 取文本中间 (参数, i, 1), , 假) ≠ -1)<br />         a ＝ a ＋ 取文本中间 (参数, i, 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (a)<br /> <br /> <br /> .子程序 回调函数, 整数型<br /> .参数 句柄, 整数型<br /> .参数 类型, 整数型<br /> <br /> .如果真 (句柄 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> .如果真 (取窗口类名 (句柄) ＝ “Button” 且 取窗口标题 (句柄) ≠ “选择框”)<br />     加入成员 (按钮标题, 取窗口标题 (句柄))<br />     加入成员 (按钮数组, 句柄)<br /> .如果真结束<br /> .如果真 (寻找文本 (取窗口类名 (句柄), “Afx”, , 假) ≠ -1)<br />     加入成员 (标签数组, 句柄)<br /> .如果真结束<br /> <br /> 返回 (1)<br /> <br /> .版本 2<br /> <br /> .DLL命令 EnumChildWindows, 整数型, "user32", "EnumChildWindows", , 为指定的父窗口枚举子窗口  非零表示成功，零表示失败<br />     .参数 父窗口句柄, 整数型, , 欲枚举子窗口的父窗口的句柄<br />     .参数 函数指针, 子程序指针, , 为每个子窗口调用的函数的指针。用AddressOf运算符获得函数在一个标准模块中的地址<br />     .参数 自定义值, 整数型, , 在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的。（原文：Value that is passed to the EnumWindows event of the dwcbkd32.ocx custom control during enumeration. The meaning of this value is defined by the programmer.）;<br /> <br /> .DLL命令 SetWindowTextA, 逻辑型, "user32.dll", "SetWindowTextA", , 改变指定窗口的标题栏的文本内容（如果窗口有标题栏）。如果指定窗口是一个控件，则改变控件的文本内容。然而，SetWindowText函数不改变其他应用程序中的控件的文本内容。<br />     .参数 hWnd, 整数型, , 要改变文本内容的窗口或控件的句柄。<br />     .参数 lpString, 文本型, , 指向一个空结束的字符串的指针，该字符串将作为窗口或控件的新文本。<br /> <br /> .DLL命令 ShowScrollBar, 逻辑型, "user32", "ShowScrollBar"<br />     .参数 hWnd, 整数型, , 0<br />     .参数 wBar, 整数型, , 0<br />     .参数 bShow, 逻辑型, , 0

ChinaSaga

灵海雪缘 发表于 2025-9-30 22:17
你好，内部_对比这个命令是什么模块的啊？

你不需要用啊,你只要看我是怎么取到的组件就行