即當(dāng)進(jìn)行初始化時，只是加載少量的數(shù)據(jù)，使控件快速完成初始化，讓用戶在較短的時間內(nèi)得到控制權(quán)，這時加載數(shù)據(jù)的多少可以根據(jù)實(shí)際情況進(jìn)行設(shè)定；然后，當(dāng)用戶滾動視圖的時候，我們檢測其滾動的位置，判斷是否需要繼續(xù)加載數(shù)據(jù)，如果尚未顯示的數(shù)據(jù)數(shù)量少于約定值，則繼續(xù)加載一定量的數(shù)據(jù)，否則不作任何動作。這樣一來，既可以實(shí)現(xiàn)所有數(shù)據(jù)的加載，又不影響用戶的操作。
其實(shí)這種方法在VC中很容易實(shí)現(xiàn)，我們只要相應(yīng)相應(yīng)列表的WM_VSCROLL就可以了，但是在VB中，列表控件不直接支持這個消息，這就需要我們做一些額外的工作，以實(shí)現(xiàn)這一過程。我們似乎可以使用計(jì)時器控件定期對列表狀態(tài)進(jìn)行監(jiān)視，從而實(shí)現(xiàn)改過程，但是這種方法不但影響系統(tǒng)運(yùn)行速度，而且效果也不是很好，所以在這里我們?nèi)匀皇褂庙憫?yīng)WM_VSCROLL消息的方法。
為了實(shí)現(xiàn)這一功能，首先是在VB中處理列表控件的消息。由于VB中無法直接處理我們所需要的消息，在這里我們就要用到一個API函數(shù)將列表控件的消息處理過程設(shè)置為我們自己定義的函數(shù)。這個API就是SetWindowLong，它的原型是
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
它有三個參數(shù)：
hwnd 是要設(shè)置的窗體句柄
nIndex 是要設(shè)置項(xiàng)目的索引，在這段程序里我們將其取值為GWL_WNDPROC
dwNewLong 是要設(shè)置項(xiàng)目的值，在這段程序里就是我們自定義的消息處理函數(shù)的地址
它的返回值是一個長整數(shù)，是調(diào)用這個API之前對應(yīng)項(xiàng)目的值，如果設(shè)置失敗，則返回0，對于具體的錯誤信息可以調(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
這個函數(shù)中使用了LoadDataFunc對數(shù)據(jù)進(jìn)行加載，它是一個自定義的函數(shù)，第一個參數(shù)是數(shù)據(jù)加載的起始位置（第n條記錄），第二個參數(shù)是要加載數(shù)據(jù)（記錄）的數(shù)量。這個函數(shù)可以根據(jù)自己的實(shí)際情況定義，這里只是我使用的形式。另外，需要注意的是這個消息處理函數(shù)必須定義在模塊中，而不能定義在窗體中。
2. 當(dāng)窗體初始化時將列表控件的消息處理函數(shù)設(shè)置為自定義的消息處理函數(shù)
在列表控件所在的窗體的初始化函數(shù)中加入下面代碼：
g_OldProc=SetWindowLong(XXXListView.hWnd,GWL_WNDPROC,AddressOf XXXListProc)
其中，XXXListView.hWnd是列表控件的窗口句柄，這個屬性是一個隱藏屬性，雖然看不到，但是可以正常使用；我們使用AddressOf取得了我們自定義消息處理函數(shù)的地址。g_OldProc是一個全局變量，用來保存原始的消息處理函數(shù)地址。
3. 當(dāng)窗體退出時將列表控件的消息處理函數(shù)設(shè)置為原來的函數(shù)
在列表控件所在窗體的Unload事件中加入以下代碼：
SetWindowLong XXXListView.hWnd, GWL_WNDPROC, g_ OldProc
在這種處理方法中，最關(guān)鍵的就是實(shí)現(xiàn)對窗口消息的自定義處理，所以我們使用了VB中不提倡使用的指針，雖然不提倡在VB中使用指針，但合理地使用指針將對功能的實(shí)現(xiàn)具有很大的幫助。這里只介紹了利用自定義消息處理函數(shù)動態(tài)加載數(shù)據(jù)的一種方法，其實(shí)也可以將這種方法應(yīng)用到其它方面，從而加強(qiáng)程序的功能，提高程序的效率。
