即當(dāng)進(jìn)行初始化時(shí)，只是加載少量的數(shù)據(jù)，使控件快速完成初始化，讓用戶在較短的時(shí)間內(nèi)得到控制權(quán)，這時(shí)加載數(shù)據(jù)的多少可以根據(jù)實(shí)際情況進(jìn)行設(shè)定；然后，當(dāng)用戶滾動(dòng)視圖的時(shí)候，我們檢測其滾動(dòng)的位置，判斷是否需要繼續(xù)加載數(shù)據(jù)，如果尚未顯示的數(shù)據(jù)數(shù)量少于約定值，則繼續(xù)加載一定量的數(shù)據(jù)，否則不作任何動(dòng)作。這樣一來，既可以實(shí)現(xiàn)所有數(shù)據(jù)的加載，又不影響用戶的操作。

其實(shí)這種方法在VC中很容易實(shí)現(xiàn)，我們只要相應(yīng)相應(yīng)列表的WM_VSCROLL就可以了，但是在VB中，列表控件不直接支持這個(gè)消息，這就需要我們做一些額外的工作，以實(shí)現(xiàn)這一過程。我們似乎可以使用計(jì)時(shí)器控件定期對(duì)列表狀態(tài)進(jìn)行監(jiān)視，從而實(shí)現(xiàn)改過程，但是這種方法不但影響系統(tǒng)運(yùn)行速度，而且效果也不是很好，所以在這里我們?nèi)匀皇褂庙憫?yīng)WM_VSCROLL消息的方法。

為了實(shí)現(xiàn)這一功能，首先是在VB中處理列表控件的消息。由于VB中無法直接處理我們所需要的消息，在這里我們就要用到一個(gè)API函數(shù)將列表控件的消息處理過程設(shè)置為我們自己定義的函數(shù)。這個(gè)API就是SetWindowLong，它的原型是

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

它有三個(gè)參數(shù)：

hwnd 是要設(shè)置的窗體句柄

nIndex 是要設(shè)置項(xiàng)目的索引，在這段程序里我們將其取值為GWL_WNDPROC

dwNewLong 是要設(shè)置項(xiàng)目的值，在這段程序里就是我們自定義的消息處理函數(shù)的地址

它的返回值是一個(gè)長整數(shù)，是調(diào)用這個(gè)API之前對(duì)應(yīng)項(xiàng)目的值，如果設(shè)置失敗，則返回0，對(duì)于具體的錯(cuò)誤信息可以調(diào)用GetLastError來獲得，在這里它將返回原始的列表控件的消息處理函數(shù)的地址。

具體的做法如下所示：

1.       在現(xiàn)有的模塊或新建立的模塊中定義消息處理函數(shù)

消息處理函數(shù)應(yīng)定義為下面的形式：

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

這個(gè)函數(shù)中使用了LoadDataFunc對(duì)數(shù)據(jù)進(jìn)行加載，它是一個(gè)自定義的函數(shù)，第一個(gè)參數(shù)是數(shù)據(jù)加載的起始位置（第n條記錄），第二個(gè)參數(shù)是要加載數(shù)據(jù)（記錄）的數(shù)量。這個(gè)函數(shù)可以根據(jù)自己的實(shí)際情況定義，這里只是我使用的形式。另外，需要注意的是這個(gè)消息處理函數(shù)必須定義在模塊中，而不能定義在窗體中。

2.       當(dāng)窗體初始化時(shí)將列表控件的消息處理函數(shù)設(shè)置為自定義的消息處理函數(shù)

在列表控件所在的窗體的初始化函數(shù)中加入下面代碼：

g_OldProc=SetWindowLong(XXXListView.hWnd,GWL_WNDPROC,AddressOf  XXXListProc)

其中，XXXListView.hWnd是列表控件的窗口句柄，這個(gè)屬性是一個(gè)隱藏屬性，雖然看不到，但是可以正常使用；我們使用AddressOf取得了我們自定義消息處理函數(shù)的地址。g_OldProc是一個(gè)全局變量，用來保存原始的消息處理函數(shù)地址。

3.       當(dāng)窗體退出時(shí)將列表控件的消息處理函數(shù)設(shè)置為原來的函數(shù)

在列表控件所在窗體的Unload事件中加入以下代碼：

SetWindowLong XXXListView.hWnd, GWL_WNDPROC, g_ OldProc

在這種處理方法中，最關(guān)鍵的就是實(shí)現(xiàn)對(duì)窗口消息的自定義處理，所以我們使用了VB中不提倡使用的指針，雖然不提倡在VB中使用指針，但合理地使用指針將對(duì)功能的實(shí)現(xiàn)具有很大的幫助。這里只介紹了利用自定義消息處理函數(shù)動(dòng)態(tài)加載數(shù)據(jù)的一種方法，其實(shí)也可以將這種方法應(yīng)用到其它方面，從而加強(qiáng)程序的功能，提高程序的效率。