DataGrid控件支持鼠标滚动操作.docVIP

方法一： VB中使DataGrid控件支持鼠标滚动操作 (2010-01-29 14:42:15) 标签： 分类： 默认情况下VB中的DataGrid控件是不支持鼠标滚动的，但可以通过API函数来实现，具体如下: ? 在工程中新建一模块，并将以下代码加入到该的模块中(即module1.bas) Public tmpDataGrid As DataGrid 用与确定要实现滚动的DataGrid控件Public tmpDataGridRowNum As Integer 有多少行数据 Public Const GWL_WNDPROC = (-4)Public Const WM_COMMAND = H111Public Const WM_MBUTTONDOWN = H207Public Const WM_MBUTTONUP = H208Public Const WM_MOUSEWHEEL = H20A??????Public Oldwinproc???? As LongPublic Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic Declare Function CallWindowProc Lib user32 Alias CallWindowProcA (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As Long?Public Function DataGridScroll(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long?该函数用于实现鼠标滚动????????? Select Case wMsg????????? Case WM_MOUSEWHEEL????????????????? Select Case wParam????????????????? Case -7864320?????? 向下滚?????????????????????? If tmpDataGrid.Row tmpDataGridRowNum - tmpDataGrid.FirstRow Then???????????????????????? tmpDataGrid.Row = tmpDataGrid.Row + 1?????????????????????? End If??????????????????????????????????????? Case 7864320???????? 向上滚????????????????????? If tmpDataGrid.Bookmark 1 Then???????????????????????? tmpDataGrid.Bookmark = tmpDataGrid.Bookmark - 1????????????????????? End If????????????????????????????????????????? End Select?????????????????????????????????????????????? End Select????????? DataGridScroll = CallWindowProc(Oldwinproc, hWnd, wMsg, wParam, lParam)? End Function 在具体包含要实现滚动功能的DataGrid控件的窗体中加入如下代码,并一定记得把DataGrid1的属性页中的 拆分选项卡中的选取框样式改为 2-debhighlightCell ? Private Sub DataGrid1_GotFocus()? 获取焦点时候?? Oldwinproc = GetWindowLong_r(Me.hWnd, GWL_WNDPROC)?? Set tmpDataGr