'在VB中,MsFlexGrid和DataGrid等控件本来不支持鼠标的滚动操作,但是人性化的设计要求希望这些控件能支持鼠标的各项操作。但是这些控件本身并不自带鼠标的支持参数,必须要自己添加相应的代码。
'本代码需要引用Microsoft ActiveX Data Objects x.0 Library
'添加控件 Microsoft ADO Data Control 6.0
'Microsoft DataGrid Control 6.0
Private Const PM_REMOVE = &H1
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type Msg
hWnd As Long
Message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" _
(lpMsg As Msg, _
ByVal hWnd As Long, _
ByVal wMsgFilterMin As Long, _
ByVal wMsgFilterMax As Long, _
ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private bCancel As Boolean
Private Const WM_MOUSEWHEEL = 522
Public RowAA As Integer
Private Sub ProcessMessages()
Dim Message As Msg
Do While Not bCancel
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载