超级列表框加入按钮半成品源码

.版本 2
.支持库 iext
.支持库 spec

.程序集 窗口程序集1
.程序集变量 默认窗口, 整数型
.程序集变量 集_超级链接框, 按钮, , "0"

.子程序 __启动窗口_创建完毕

默认窗口 ＝ SetWindowLongA (超级列表框1.取窗口句柄 (), -4, &处理)
超级列表框置超链接 (超级列表框1, 按钮1, 0, 3, “修改1”)
超级列表框置超链接 (超级列表框1, 按钮1, 0, 4, “删除1”)
超级列表框置超链接 (超级列表框1, 按钮1, 1, 3, “修改2”)
超级列表框置超链接 (超级列表框1, 按钮1, 1, 4, “删除2”)

.子程序 超级列表框置超链接
.参数 参_超级列表框, 超级列表框
.参数 参_超级链接框, 按钮
.参数 参_哪行, 整数型, , 将超链接框置于那行,表头为0行,依次类推
.参数 参_哪列, 整数型, , 将超链接框置于那列,其实为0列,依次类推
.参数 参_标题, 文本型
.局部变量 项坐标, 坐标
.局部变量 项高度, 整数型
.局部变量 i, 整数型
.局部变量 超级链接框, 按钮, , "1"

SendMessageA (参_超级列表框.取窗口句柄 (), 4112, 0, 项坐标)
调试输出 (项坐标.x, 项坐标.y, 项高度)
项高度 ＝ 项坐标.y
SendMessageA (参_超级列表框.取窗口句柄 (), 4112, 1, 项坐标)
项高度 ＝ 项坐标.y － 项高度
调试输出 (项坐标.x, 项坐标.y, 项高度)
SendMessageA (参_超级列表框.取窗口句柄 (), 4112, 参_哪行 － 1, 项坐标)
复制窗口组件 (参_超级链接框, 超级链接框 [1])
超级链接框 [1].移动 (0, 0, , )
超级链接框 [1].标题 ＝ 参_标题
超级链接框 [1].可视 ＝ 真
超级链接框 [1].置父窗口 (超级列表框1)
超级链接框 [1].移动 (项坐标.x － 1, 项坐标.y － 0, 参_超级列表框.取列宽 (参_哪列) － 1, 项高度 － 1)
.如果真 (参_哪行 ＝ 0)
    超级链接框 [1].顶边 ＝ 项坐标.y ＋ 项高度
.如果真结束
.如果真 (参_哪列 ＝ 0)
    超级链接框 [1].左边 ＝ 项坐标.x
.如果真结束
.计次循环首 (参_哪行, i)
    超级链接框 [1].顶边 ＝ 超级链接框 [1].顶边 ＋ 项高度
.计次循环尾 ()
.计次循环首 (参_哪列, i)
    超级链接框 [1].左边 ＝ 超级链接框 [1].左边 ＋ 参_超级列表框.取列宽 (i － 1)
.计次循环尾 ()
超级链接框 [1].可视 ＝ 真
超级链接框 [1].调整层次 (#顶层)
加入成员 (集_超级链接框, 超级链接框 [1])

.子程序 处理, 整数型
.参数 hWnd, 整数型
.参数 Msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.判断开始 (Msg ＝ 273)
    被单击 (lParam)
.默认

.判断结束

返回 (CallWindowProcA (默认窗口, hWnd, Msg, wParam, lParam))

.子程序 被单击
.参数 句柄, 整数型
.局部变量 I, 整数型

.计次循环首 (取数组成员数 (集_超级链接框), I)
    .判断开始 (句柄 ＝ 集_超级链接框 [I].取窗口句柄 ())
        信息框 (集_超级链接框 [I].标题 ＋ “ 被轻轻点了一下”, 0, )
        跳出循环 ()
    .默认

    .判断结束

.计次循环尾 ()


.子程序 _按钮2_被单击

超级列表框删除项 (超级列表框1, 超级列表框1.现行选中项)

.子程序 超级列表框删除项
.参数 参_超级列表框, 超级列表框
.参数 参_项, 整数型
.局部变量 I, 整数型

' 参_超级列表框.删除表项 (参_项)
.' 计次循环首 (取数组成员数 (集_超级链接框), I)
    .' 如果真 (I ＝ 参_项 ＋ 1)
        ' 清除数组 (集_超级链接框)
        ' 重定义数组 (集_超级链接框, 真, 0)
    .如果真结束

.' 计次循环尾 ()

@379061296