.版本 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) .如果真结束 .' 计次循环尾 ()