超级列表框检查框不可见的问题

gdhong · 发表于 2024-8-7 07:56:36

suyunsq · 发表于 2024-8-7 08:07:37

刷新显示

浅黑 · 发表于 2024-8-7 08:21:02

把禁止重画注释掉就行了

子程序名	返回值类型	公开	备注
_超级列表框1_被双击	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类型	静态	数组	备注
表项坐标	坐标
i
画笔句柄

如果真 (表项信息.列＝ 0 或表项信息.列＝ 4 或表项信息.列＝ 5)

返回 ()
画笔句柄＝创建画笔 (0, 1, 超级列表框1.背景颜色)
选入设备场景 (设备句柄, 画笔句柄)
取老矩形 (老表项, 老列)
画矩形 (设备句柄, 老矩形.左, 老矩形.上, 老矩形.右, 老矩形.下)
表项信息.横向＝横向位置
表项信息.纵向＝纵向位置
取表项结构信息 (超级列表框1.取窗口句柄 (), 4153, 0, 表项信息)
超级列表框1.现行选中项＝ -1

如果真 (表项信息.行 ≠ -1)

取表项坐标信息 (超级列表框1.取窗口句柄 (), 4096 ＋ 16, 表项信息.行, 表项坐标)

编辑框1.顶边＝超级列表框1.顶边＋表项坐标.y ＋ 1

判断 (超级列表框1.是否有检查框＝真)

编辑框1.左边＝表项坐标.x ＋超级列表框1.左边－ 18

编辑框1.左边＝表项坐标.x ＋超级列表框1.左边

如果真 (表项信息.列＝ 0)

编辑框1.左边＝表项坐标.x ＋超级列表框1.左边

计次循环首 (表项信息.列, i)

编辑框1.左边＝编辑框1.左边＋超级列表框1.取列宽 (i － 1)

计次循环尾 ()

判断 (超级列表框1.是否有检查框＝真且表项信息.列＝ 0)

编辑框1.宽度＝超级列表框1.取列宽 (表项信息.列) － 18

编辑框1.宽度＝超级列表框1.取列宽 (表项信息.列)

编辑框1.内容＝超级列表框1.取标题 (表项信息.行, 表项信息.列)

编辑框1.可视＝真

' 超级列表框1.禁止重画 ()

编辑框1.获取焦点 ()

编辑框1.被选择字符数＝ -1

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

.版本 2<br />
.支持库 iext<br />
<br />
.子程序 _超级列表框1_被双击, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
.局部变量 表项坐标, 坐标<br />
.局部变量 i<br />
.局部变量 画笔句柄<br />
<br />
.如果真 (表项信息.列 ＝ 0 或 表项信息.列 ＝ 4 或 表项信息.列 ＝ 5)<br />
    返回 ()<br />
.如果真结束<br />
画笔句柄 ＝ 创建画笔 (0, 1, 超级列表框1.背景颜色)<br />
选入设备场景 (设备句柄, 画笔句柄)<br />
取老矩形 (老表项, 老列)<br />
画矩形 (设备句柄, 老矩形.左, 老矩形.上, 老矩形.右, 老矩形.下)<br />
表项信息.横向 ＝ 横向位置<br />
表项信息.纵向 ＝ 纵向位置<br />
取表项结构信息 (超级列表框1.取窗口句柄 (), 4153, 0, 表项信息)<br />
超级列表框1.现行选中项 ＝ -1<br />
.如果真 (表项信息.行 ≠ -1)<br />
    取表项坐标信息 (超级列表框1.取窗口句柄 (), 4096 ＋ 16, 表项信息.行, 表项坐标)<br />
    编辑框1.顶边 ＝ 超级列表框1.顶边 ＋ 表项坐标.y ＋ 1<br />
    .判断开始 (超级列表框1.是否有检查框 ＝ 真)<br />
        编辑框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边 － 18<br />
    .默认<br />
        编辑框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边<br />
    .判断结束<br />
    .如果真 (表项信息.列 ＝ 0)<br />
        编辑框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边<br />
    .如果真结束<br />
    .计次循环首 (表项信息.列, i)<br />
        编辑框1.左边 ＝ 编辑框1.左边 ＋ 超级列表框1.取列宽 (i － 1)<br />
    .计次循环尾 ()<br />
    .判断开始 (超级列表框1.是否有检查框 ＝ 真 且 表项信息.列 ＝ 0)<br />
        编辑框1.宽度 ＝ 超级列表框1.取列宽 (表项信息.列) － 18<br />
    .默认<br />
        编辑框1.宽度 ＝ 超级列表框1.取列宽 (表项信息.列)<br />
    .判断结束<br />
<br />
    编辑框1.内容 ＝ 超级列表框1.取标题 (表项信息.行, 表项信息.列)<br />
    编辑框1.可视 ＝ 真<br />
    ' 超级列表框1.禁止重画 ()<br />
    编辑框1.获取焦点 ()<br />
    编辑框1.被选择字符数 ＝ -1