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

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

為了實現(xiàn)這一功能，首先是在VB中處理列表控件的消息。由于VB中無法直接處理我們所需要的消息，在這里我們就要用到一個API函數(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 是要設置的窗體句柄

nIndex 是要設置項目的索引，在這段程序里我們將其取值為GWL_WNDPROC

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

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

具體的做法如下所示：

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

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

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

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

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

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

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

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

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

SetWindowLong XXXListView.hWnd, GWL_WNDPROC, g_ OldProc

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