在VB的ListView中动态加载记录
2004-03-22 15:54
309 查看
在访问数据库时,经常会遇到记录数量过多,对数据列表进行初始化时耗费大量时间,使用户在进入界面时等待时间过长。为了解决这个问题,我们可以通过使用动态加载数据的方法来实现。
即当进行初始化时,只是加载少量的数据,使控件快速完成初始化,让用户在较短的时间内得到控制权,这时加载数据的多少可以根据实际情况进行设定;然后,当用户滚动视图的时候,我们检测其滚动的位置,判断是否需要继续加载数据,如果尚未显示的数据数量少于约定值,则继续加载一定量的数据,否则不作任何动作。这样一来,既可以实现所有数据的加载,又不影响用户的操作。
其实这种方法在VC中很容易实现,我们只要相应相应列表的WM_VSCROLL就可以了,但是在VB中,列表控件不直接支持这个消息,这就需要我们做一些额外的工作,以实现这一过程。我们似乎可以使用计时器控件定期对列表状态进行监视,从而实现改过程,但是这种方法不但影响系统运行速度,而且效果也不是很好,所以在这里我们仍然使用响应WM_VSCROLL消息的方法。
为了实现这一功能,首先是在VB中处理列表控件的消息。由于VB中无法直接处理我们所需要的消息,在这里我们就要用到一个API函数将列表控件的消息处理过程设置为我们自己定义的函数。这个API就是SetWindowLong,它的原型是
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
它有三个参数:
hwnd 是要设置的窗体句柄
nIndex 是要设置项目的索引,在这段程序里我们将其取值为GWL_WNDPROC
dwNewLong 是要设置项目的值,在这段程序里就是我们自定义的消息处理函数的地址
它的返回值是一个长整数,是调用这个API之前对应项目的值,如果设置失败,则返回0,对于具体的错误信息可以调用GetLastError来获得,在这里它将返回原始的列表控件的消息处理函数的地址。
具体的做法如下所示:
1. 在现有的模块或新建立的模块中定义消息处理函数
消息处理函数应定义为下面的形式:
Public Function XXXListProc(ByVal hWnd As Long, ByVal iMsg As Long, _
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. 当窗体初始化时将列表控件的消息处理函数设置为自定义的消息处理函数
在列表控件所在的窗体的初始化函数中加入下面代码:
g_OldProc=SetWindowLong(XXXListView.hWnd,GWL_WNDPROC,AddressOf XXXListProc)
其中,XXXListView.hWnd是列表控件的窗口句柄,这个属性是一个隐藏属性,虽然看不到,但是可以正常使用;我们使用AddressOf取得了我们自定义消息处理函数的地址。g_OldProc是一个全局变量,用来保存原始的消息处理函数地址。
3. 当窗体退出时将列表控件的消息处理函数设置为原来的函数
在列表控件所在窗体的Unload事件中加入以下代码:
SetWindowLong XXXListView.hWnd, GWL_WNDPROC, g_ OldProc
在这种处理方法中,最关键的就是实现对窗口消息的自定义处理,所以我们使用了VB中不提倡使用的指针,虽然不提倡在VB中使用指针,但合理地使用指针将对功能的实现具有很大的帮助。这里只介绍了利用自定义消息处理函数动态加载数据的一种方法,其实也可以将这种方法应用到其它方面,从而加强程序的功能,提高程序的效率。
即当进行初始化时,只是加载少量的数据,使控件快速完成初始化,让用户在较短的时间内得到控制权,这时加载数据的多少可以根据实际情况进行设定;然后,当用户滚动视图的时候,我们检测其滚动的位置,判断是否需要继续加载数据,如果尚未显示的数据数量少于约定值,则继续加载一定量的数据,否则不作任何动作。这样一来,既可以实现所有数据的加载,又不影响用户的操作。
其实这种方法在VC中很容易实现,我们只要相应相应列表的WM_VSCROLL就可以了,但是在VB中,列表控件不直接支持这个消息,这就需要我们做一些额外的工作,以实现这一过程。我们似乎可以使用计时器控件定期对列表状态进行监视,从而实现改过程,但是这种方法不但影响系统运行速度,而且效果也不是很好,所以在这里我们仍然使用响应WM_VSCROLL消息的方法。
为了实现这一功能,首先是在VB中处理列表控件的消息。由于VB中无法直接处理我们所需要的消息,在这里我们就要用到一个API函数将列表控件的消息处理过程设置为我们自己定义的函数。这个API就是SetWindowLong,它的原型是
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
它有三个参数:
hwnd 是要设置的窗体句柄
nIndex 是要设置项目的索引,在这段程序里我们将其取值为GWL_WNDPROC
dwNewLong 是要设置项目的值,在这段程序里就是我们自定义的消息处理函数的地址
它的返回值是一个长整数,是调用这个API之前对应项目的值,如果设置失败,则返回0,对于具体的错误信息可以调用GetLastError来获得,在这里它将返回原始的列表控件的消息处理函数的地址。
具体的做法如下所示:
1. 在现有的模块或新建立的模块中定义消息处理函数
消息处理函数应定义为下面的形式:
Public Function XXXListProc(ByVal hWnd As Long, ByVal iMsg As Long, _
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. 当窗体初始化时将列表控件的消息处理函数设置为自定义的消息处理函数
在列表控件所在的窗体的初始化函数中加入下面代码:
g_OldProc=SetWindowLong(XXXListView.hWnd,GWL_WNDPROC,AddressOf XXXListProc)
其中,XXXListView.hWnd是列表控件的窗口句柄,这个属性是一个隐藏属性,虽然看不到,但是可以正常使用;我们使用AddressOf取得了我们自定义消息处理函数的地址。g_OldProc是一个全局变量,用来保存原始的消息处理函数地址。
3. 当窗体退出时将列表控件的消息处理函数设置为原来的函数
在列表控件所在窗体的Unload事件中加入以下代码:
SetWindowLong XXXListView.hWnd, GWL_WNDPROC, g_ OldProc
在这种处理方法中,最关键的就是实现对窗口消息的自定义处理,所以我们使用了VB中不提倡使用的指针,虽然不提倡在VB中使用指针,但合理地使用指针将对功能的实现具有很大的帮助。这里只介绍了利用自定义消息处理函数动态加载数据的一种方法,其实也可以将这种方法应用到其它方面,从而加强程序的功能,提高程序的效率。
相关文章推荐
- 到底应该如何在VB的ListView中动态加载数据库中的大量记录?
- 在VB的ListView中动态加载记录
- listview动态加载数据,并更新数据列表
- Android列表组件ListView使用详解之动态加载或修改列表数据
- Android开发中Listview动态加载数据的方法示例
- android ListView 动态分页加载数据
- Listview静态和动态加载显示
- vb.net动态加载dll并执行dll中的某一个函数
- [VB.NET]怎样用ListView显示符合条件的记录?
- ListView总结(多选框ListViiew,动态加载,多线程更新ListView中的进度条)
- ListView动态加载数据分页(使用Handler+线程和AsyncTask两种方法)
- listview,gridview 动态加载网络图片
- 实现聊天窗口动态可视区加载的listview
- ListView动态加载网络数据的解决办法
- listView动态加载数据分页
- ListView动态加载数据模板(使用代码布局)
- 解决:ScrollView嵌套ListView导致无法正确计算ListView的高度之动态加载图片高度常规方法失效。
- android 实现listview动态加载列表项
- Android_ListView_Adapter使用和数据动态加载
- android listview scroll滑屏显示sqlite分页,类似聊天记录,listview动态添加sqlite分页数据