关于超列_模拟虚表.ec，最终解决方案

luowm850

我之前在论坛里有问过在使用  超列_模拟虚表  时的一些问题现在在这里总结下，第一就是在使用时载入一个窗口后超级列表框就会变大，而关闭时就会变小，这个问题的解决方案是，易友“请叫我胖虎”给出的，就是删除图片中的两条代码。第二就是载入后不能显示到最后一条，这个问题是我自己解决的，也要感谢在论坛里易友给出的其它方案就是先记录集1.到尾记录 ()  循环后在记录集1.到前一条 ()，使反过来，倒排序，把尾部放在最前面，不过这个效果不是我想要的，后面就自己解决啦，添加了几条代码，如下图。

  

子程序名	返回值类型	公开	备 注
填充列表
参数名	类 型	参考	可空	数组	备 注
参数_记录数	整数型
参数_填充数据	子程序指针				参数1:表项索引为整数型,参数2:列索引为整数型,返回:填充数据为文本型
参数_是否到最后	逻辑型				如果为空或者假时载入后显示到最后一条数据，否则显示在第一条数据。

变量名	类 型	静态	数组	备 注
局_变量_滚动条位置	整数型
局_变量_表项数	整数型

如果真 (集_判断_绑定成功 ＝ 假)
信息框 (“请先进行绑定.”, 0, “提示:”)
返回 ()
集_指针_填充数据 ＝ 参数_填充数据
集_变量_记录数 ＝ 参数_记录数
集_控件_滚动条.重置滚动条 (1, 1, SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0), 集_变量_记录数)
集_控件_超级列表框.全部删除 ()
局_变量_表项数 ＝ SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0)
如果真 (局_变量_表项数 ＞ 集_变量_记录数)
局_变量_表项数 ＝ 集_变量_记录数

计次循环首 (局_变量_表项数, )
集_控件_超级列表框.插入表项 (, , , , , )
计次循环尾 ()
调用子程序 (辅_字节集到子程序地址 (集_地址_填充数据), , , 1)
如果真 (参数_是否到最后 ＝ 假)  ' 添加代码使载入后显示到最后一条数据
局_变量_滚动条位置 ＝ 集_变量_记录数 － SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0) ＋ 1
如果真 (局_变量_滚动条位置 ＜ 1)
局_变量_滚动条位置 ＝ 1
集_控件_滚动条.重置滚动条 (, 局_变量_滚动条位置, SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0), 集_变量_记录数)
局_变量_滚动条位置 ＝ 集_控件_滚动条.取滚动条位置 ()
调用子程序 (辅_字节集到子程序地址 (集_地址_填充数据), , , 局_变量_滚动条位置)

子程序名	返回值类型	公开	备 注
NewProc	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
Msg	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
局_变量_横向滚动条	逻辑型
局_变量_滚动条位置	整数型
局_变量_计次	整数型

判断 (Msg ＝ #WM_PAINT )
局_变量_计次 ＝ 局_变量_计次 ＋ 1
如果 (集_控件_超级列表框.高度 － 集_控件_超级列表框.取用户区高度 () ＞ 8)
如果真 (局_变量_横向滚动条 ＝ 假)
集_控件_超级列表框.高度 ＝ 集_控件_超级列表框.高度  ' 删除 ＋ 集_控件_滚动条.取滚动条大小 ()
局_变量_横向滚动条 ＝ 真



如果真 (局_变量_横向滚动条 ＝ 真)
集_控件_超级列表框.高度 ＝ 集_控件_超级列表框.高度  ' 删除 － 集_控件_滚动条.取滚动条大小 ()
局_变量_横向滚动条 ＝ 假


如果真 (集_控件_超级列表框.宽度 － 集_控件_超级列表框.取用户区宽度 () ＜ 8)
集_控件_滚动条.重置滚动条 (, , , 集_变量_记录数)

判断 (Msg ＝ #WM_VSCROLL )
集_控件_滚动条.置滚动条位置 (wParam)
返回 (0)
判断 (Msg ＝ #WM_KEYDOWN )
局_变量_滚动条位置 ＝ 集_控件_滚动条.取滚动条位置 ()
判断 (集_控件_超级列表框.现行选中项 ＝ SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0) － 1)
判断 (wParam ＝ #下光标键 )
局_变量_滚动条位置 ＝ 局_变量_滚动条位置 ＋ 1



判断 (集_控件_超级列表框.现行选中项 ＝ 0)
判断 (wParam ＝ #上光标键 )
局_变量_滚动条位置 ＝ 局_变量_滚动条位置 － 1






如果真 (局_变量_滚动条位置 ＞ 集_变量_记录数 － SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0) ＋ 1)
局_变量_滚动条位置 ＝ 集_变量_记录数 － SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0) ＋ 1
如果真 (局_变量_滚动条位置 ＜ 1)
局_变量_滚动条位置 ＝ 1
集_控件_滚动条.重置滚动条 (, 局_变量_滚动条位置, , )
判断 (Msg ＝ #WM_MOUSEWHEEL )
集_控件_滚动条.滚动滚动条 (辅_取高16位 (wParam) ÷ 120)
返回 (0)



返回 (CallWindowProc (集_地址_旧函数, hWnd, Msg, wParam, lParam))

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 填充列表, , 公开<br /> .参数 参数_记录数, 整数型<br /> .参数 参数_填充数据, 子程序指针, , 参数1:表项索引为整数型,参数2:列索引为整数型,返回:填充数据为文本型<br /> .参数 参数_是否到最后, 逻辑型, 可空, 如果为空或者假时载入后显示到最后一条数据，否则显示在第一条数据。<br /> .局部变量 局_变量_滚动条位置, 整数型<br /> .局部变量 局_变量_表项数, 整数型<br /> <br /> .如果真 (集_判断_绑定成功 ＝ 假)<br />     信息框 (“请先进行绑定.”, 0, “提示:”)<br />     返回 ()<br /> .如果真结束<br /> 集_指针_填充数据 ＝ 参数_填充数据<br /> 集_变量_记录数 ＝ 参数_记录数<br /> 集_控件_滚动条.重置滚动条 (1, 1, SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0), 集_变量_记录数)<br /> 集_控件_超级列表框.全部删除 ()<br /> 局_变量_表项数 ＝ SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0)<br /> .如果真 (局_变量_表项数 ＞ 集_变量_记录数)<br />     局_变量_表项数 ＝ 集_变量_记录数<br /> .如果真结束<br /> <br /> .计次循环首 (局_变量_表项数, )<br />     集_控件_超级列表框.插入表项 (, , , , , )<br /> .计次循环尾 ()<br /> 调用子程序 (辅_字节集到子程序地址 (集_地址_填充数据), , , 1)<br /> <br /> <br /> .如果真 (参数_是否到最后 ＝ 假)  ' 添加代码使载入后显示到最后一条数据<br /> <br />     局_变量_滚动条位置 ＝ 集_变量_记录数 － SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0) ＋ 1<br />     .如果真 (局_变量_滚动条位置 ＜ 1)<br />         局_变量_滚动条位置 ＝ 1<br />     .如果真结束<br />     集_控件_滚动条.重置滚动条 (, 局_变量_滚动条位置, SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0), 集_变量_记录数)<br />     局_变量_滚动条位置 ＝ 集_控件_滚动条.取滚动条位置 ()<br />     调用子程序 (辅_字节集到子程序地址 (集_地址_填充数据), , , 局_变量_滚动条位置)<br /> <br /> <br /> .版本 2<br /> .支持库 iext<br /> <br /> .子程序 NewProc, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 Msg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 局_变量_横向滚动条, 逻辑型, 静态<br /> .局部变量 局_变量_滚动条位置, 整数型<br /> .局部变量 局_变量_计次, 整数型, 静态<br /> <br /> .判断开始 (Msg ＝ #WM_PAINT)<br />     局_变量_计次 ＝ 局_变量_计次 ＋ 1<br /> <br />     .如果 (集_控件_超级列表框.高度 － 集_控件_超级列表框.取用户区高度 () ＞ 8)<br /> <br />         .如果真 (局_变量_横向滚动条 ＝ 假)<br />             集_控件_超级列表框.高度 ＝ 集_控件_超级列表框.高度  ' 删除 ＋ 集_控件_滚动条.取滚动条大小 ()<br /> <br />             局_变量_横向滚动条 ＝ 真<br />         .如果真结束<br /> <br />     .否则<br /> <br />         .如果真 (局_变量_横向滚动条 ＝ 真)<br />             集_控件_超级列表框.高度 ＝ 集_控件_超级列表框.高度  ' 删除 － 集_控件_滚动条.取滚动条大小 ()<br /> <br />             局_变量_横向滚动条 ＝ 假<br />         .如果真结束<br /> <br />     .如果结束<br /> <br />     .如果真 (集_控件_超级列表框.宽度 － 集_控件_超级列表框.取用户区宽度 () ＜ 8)<br />         集_控件_滚动条.重置滚动条 (, , , 集_变量_记录数)<br />     .如果真结束<br /> <br /> .判断 (Msg ＝ #WM_VSCROLL)<br />     集_控件_滚动条.置滚动条位置 (wParam)<br />     返回 (0)<br /> .判断 (Msg ＝ #WM_KEYDOWN)<br />     局_变量_滚动条位置 ＝ 集_控件_滚动条.取滚动条位置 ()<br />     .判断开始 (集_控件_超级列表框.现行选中项 ＝ SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0) － 1)<br />         .判断开始 (wParam ＝ #下光标键)<br />             局_变量_滚动条位置 ＝ 局_变量_滚动条位置 ＋ 1<br />         .默认<br /> <br />         .判断结束<br /> <br />     .判断 (集_控件_超级列表框.现行选中项 ＝ 0)<br />         .判断开始 (wParam ＝ #上光标键)<br />             局_变量_滚动条位置 ＝ 局_变量_滚动条位置 － 1<br />         .默认<br /> <br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br />     .如果真 (局_变量_滚动条位置 ＞ 集_变量_记录数 － SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0) ＋ 1)<br />         局_变量_滚动条位置 ＝ 集_变量_记录数 － SendMessage (集_控件_超级列表框.取窗口句柄 (), 4136, 0, 0) ＋ 1<br />     .如果真结束<br />     .如果真 (局_变量_滚动条位置 ＜ 1)<br />         局_变量_滚动条位置 ＝ 1<br />     .如果真结束<br />     集_控件_滚动条.重置滚动条 (, 局_变量_滚动条位置, , )<br /> .判断 (Msg ＝ #WM_MOUSEWHEEL)<br />     集_控件_滚动条.滚动滚动条 (辅_取高16位 (wParam) ÷ 120)<br />     返回 (0)<br /> .默认<br /> <br /> .判断结束<br /> <br /> 返回 (CallWindowProc (集_地址_旧函数, hWnd, Msg, wParam, lParam))

lhn0925

学习一下

hlswuwu

感谢分享，很给力！~

lhn0925

学习一下

艾玛克138

谢谢大佬提供的精品

白云飘飘

感谢分享，很给力！~

李泽勇2

access数据库读取速度真的慢，只能在能用的地步。

lqylbh

感谢分享，很给力！~

1347379245

感谢分享

qqmqqg

66666666666666666666666