在访问数据库时，经常会遇到记录数量过多，对数据列表进行初始化时耗费大量时间，使用户在进入界面时等待时间过长。为了解决这个问题，我们可以通过使用动态加载数据的方法来实现。
即当进行初始化时，只是加载少量的数据，使控件快速完成初始化，让用户在较短的时间内得到控制权，这时加载数据的多少可以根据实际情况进行设定；然后，当用户滚动视图的时候，我们检测其滚动的位置，判断是否需要继续加载数据，如果尚未显示的数据数量少于约定值，则继续加载一定量的数据，否则不作任何动作。这样一来，既可以实现所有数据的加载，又不影响用户的操作。
其实这种方法在VC中很容易实现，我们只要相应相应列表的WM_VSCROLL就可以了，但是在VB中，列表控件不直接支持这个消息，这就需要我们做一些额外的工作，以实现这一过程。我们似乎可以使用计时器控件定期对列表状态进行监视，从而实现改过程，但是这种方法不但影响系统运行速度，而且效果也不是很好，所以在这里我们仍然使用响应WM_VSCROLL消息的方法。
为了实现这一功能，首先是在VB中处理列表控件的消息。由于VB中无法直接处理我们所需要的消息，在这里我们就要用到一个API函数将列表控件的消息处理过程设置为我们自己定义的函数。这个API就是SetWindowLong，它的原型是
它有三个参数：
hwnd 是要设置的窗体句柄
nIndex 是要设置项目的索引，在这段程序里我们将其取值为GWL_WNDPROC
dwNewLong 是要设置项目的值，在这段程序里就是我们自定义的消息处理函数的地址
它的返回值是一个长整数，是调用这个API之前对应项目的值，如果设置失败，则返回0，对于具体的错误信息可以调用GetLastError来获得，在这里它将返回原始的列表控件的消息处理函数的地址。
具体的做法如下所示：
1. 在现有的模块或新建立的模块中定义消息处理函数
消息处理函数应定义为下面的形式：
ByVal wParam As Long， lParam As Long） As Long
If （iMsg = WM_VSCROLL） Then If SB_ENDSCROLL = Val（"&H" & Right（Hex（wParam）， 4）） Then If frmXXX.XXXListView.GetFirstVisible.Index + 100 > frmXXX. XXXListView.ListItems.count Then LoadDataFunc frmXXX. XXXListView.ListItems.count， 100 End If
End If
End If
XXXListProc = CallWindowProc（g_OldProc， hWnd， iMsg， wParam， lParam）
End Function
这个函数中使用了LoadDataFunc对数据进行加载，它是一个自定义的函数，第一个参数是数据加载的起始位置（第n条记录），第二个参数是要加载数据（记录）的数量。这个函数可以根据自己的实际情况定义，这里只是我使用的形式。另外，需要注意的是这个消息处理函数必须定义在模块中，而不能定义在窗体中。
2. 当窗体初始化时将列表控件的消息处理函数设置为自定义的消息处理函数
在列表控件所在的窗体的初始化函数中加入下面代码：
其中，XXXListView.hWnd是列表控件的窗口句柄，这个属性是一个隐藏属性，虽然看不到，但是可以正常使用；我们使用AddressOf取得了我们自定义消息处理函数的地址。g_OldProc是一个全局变量，用来保存原始的消息处理函数地址。
3. 当窗体退出时将列表控件的消息处理函数设置为原来的函数
在列表控件所在窗体的Unload事件中加入以下代码：
在这种处理方法中，最关键的就是实现对窗口消息的自定义处理，所以我们使用了VB中不提倡使用的指针，虽然不提倡在VB中使用指针，但合理地使用指针将对功能的实现具有很大的帮助。这里只介绍了利用自定义消息处理函数动态加载数据的一种方法，其实也可以将这种方法应用到其它方面，从而加强程序的功能，提高程序的效率。
静态页面：http://www.qqread.com/vb/e420757010.html进入讨论组讨论。
相关专题
- VB+Access设计图书管理系统 (104238次浏览)
- VB设计有语音报时和报警功能的闹钟 (13528次浏览)
- 用VB制作一个简单的MP3播放器 (8172次浏览)
- DataGrid 控件的使用 (5010次浏览)
- 用VB编写记事本 (4443次浏览)
- IP地址与子网掩码（二） (4152次浏览)
- IP地址与子网掩码（三） (3708次浏览)
- 掌握VB中的ADO数据对象编程 (3504次浏览)
- 在VB下设计开发实时的数据采集曲线 (3403次浏览)
- VB中使用WinSock控件编写网络程序 (3400次浏览)
