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

其實這種方法在VC中很容易實現，我們只要相應相應列表的WM_VSCROLL就可以了，但是在VB中，列表控件不直接支持這個消息，這就需要我們做一些額外的工作，以實現這一過程。我們似乎可以使用計時器控件定期對列表狀態(tài)進行監(jiān)視，從而實現改過程，但是這種方法不但影響系統運行速度，而且效果也不是很好，所以在這里我們仍然使用響應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中使用指針，但合理地使用指針將對功能的實現具有很大的幫助。這里只介紹了利用自定義消息處理函數動態(tài)加載數據的一種方法，其實也可以將這種方法應用到其它方面，從而加強程序的功能，提高程序的效率。