Public Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal
dwNewLong As Long) As Long 它有三个参数:
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
Function 这个函数中使用了LoadDataFunc对数据进行加载,它是一个自定义的函数,第一个参数是数据加载的起始位置(第n条记录),第二个参数是要加载数据(记录)的数量。这个函数可以根据自己的实际情况定义,这里只是我使用的形式。另外,需要注意的是这个消息处理函数必须定义在模块中,而不能定义在窗体中。