在VB的ListView中动态加载记录

原创 2004年03月22日 15:54:00

   在访问数据库时,经常会遇到记录数量过多,对数据列表进行初始化时耗费大量时间,使用户在进入界面时等待时间过长。为了解决这个问题,我们可以通过使用动态加载数据的方法来实现。

即当进行初始化时,只是加载少量的数据,使控件快速完成初始化,让用户在较短的时间内得到控制权,这时加载数据的多少可以根据实际情况进行设定;然后,当用户滚动视图的时候,我们检测其滚动的位置,判断是否需要继续加载数据,如果尚未显示的数据数量少于约定值,则继续加载一定量的数据,否则不作任何动作。这样一来,既可以实现所有数据的加载,又不影响用户的操作。

其实这种方法在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中动态加载数据库中的大量记录?

在使用VB6.0访问数据库时,经常会遇到记录数量过多,对数据列表进行初始化时耗费大量时间,如何在初始化时,只是先加载少量的数据,使控件快速完成初始化.然后当按垂直滚动条的时间再加载更多的其它内容,但是...
  • mjc1982
  • mjc1982
  • 2006年06月10日 14:09
  • 3873

在VB的ListView中动态加载记录

   在访问数据库时,经常会遇到记录数量过多,对数据列表进行初始化时耗费大量时间,使用户在进入界面时等待时间过长。为了解决这个问题,我们可以通过使用动态加载数据的方法来实现。即当进行初始化时,只是加载...
  • yangang000
  • yangang000
  • 2004年03月22日 15:54
  • 806

ListView怎么处理大量的加载数据;比如有10万条数据,你在ListView怎么处理?

题目:ListView怎么处理大量的加载数据;比如有10万条数据,你在ListView怎么处理?...
  • huangxiaominglipeng
  • huangxiaominglipeng
  • 2014年10月11日 10:34
  • 3768

VB将数据显示在ListView中

   最近在学VB,所以把一些东西都记下来,方便以后学习。下面是将数据查处来显示在ListView中   Dim ledrst As ADODB.Recordset  Set ledrst = New...
  • shengyongwang
  • shengyongwang
  • 2009年06月15日 19:59
  • 3569

[VB.NET]如何在DataGridView控件中增加、删除和修改记录(用程序代码的方法)

  • mohongmao
  • mohongmao
  • 2008年12月27日 22:13
  • 1106

ListView 动态加载

这是一篇动态加载ListView的学习日记
  • Shuai_de_yi_ta_hu_tu
  • Shuai_de_yi_ta_hu_tu
  • 2016年01月07日 14:17
  • 209

记录开发中listview的动态显示

最近在项目中,产生了实际的需求,必须要将listview动态的加载出来。一个页面就包含的有两三个动态的listview,而他们都包含在一个ScrollView当中。 要想在动态的加载,貌似向以前,直...
  • zr940326
  • zr940326
  • 2016年04月19日 23:18
  • 399

关于在VB中动态加载控件的方法

动态加载控件,有诸多好处, 以前以为,只有在VC中才能动态加载控件,而在VB中,只能定义一个数组,然后采用Load方式加载。近日编码,才发现,原来VB中也可以方便的动态加载。 举例子总结一下,免得以后...
  • tiger119
  • tiger119
  • 2006年04月10日 21:51
  • 4010

VB ListView控件各种操作详解

Private Sub Form_Load() 'ListView1.SmallIcons = ImageList1.Object '把ImageList1图标列表控件绑定到 ListVie...
  • cncco
  • cncco
  • 2013年11月30日 12:45
  • 27255

Android中ListView动态加载数据

Android中ListView动态加载数据介绍。
  • mayingcai1987
  • mayingcai1987
  • 2011年03月24日 11:24
  • 56468
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在VB的ListView中动态加载记录
举报原因:
原因补充:

(最多只允许输入30个字)