“操作符 AddressOf 使用无效”问题提示,高手看一下。
在MSHFLEXGRID(vb6)中怎么解决鼠标滚轮的滚动问题中使用了前辈代码,代码在FmReplc窗体内:
Const GWL_WNDPROC = (-4)
Const WM_COPYDATA = &H4A
Const WM_MOUSEWHEEL = &H20A
Private Type COPYDATASTRUCT
dwData As Long
cbData As Long
lpData As Long
End Type
Private 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 Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Private prevWndProc As Long
Public Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal Wparam As Long, ByVal Lparam As Long) As Long
If Msg = WM_MOUSEWHEEL Then
With FmReplc.MSHFlexGrid1
If Wparam = -7864320 Then
.TopRow = .TopRow + 1 '向下滚动
ElseIf Wparam = 7864320 Then
If .TopRow > 1 Then
.TopRow = .TopRow - 1 '向上滚动
End If
End If
End With
Else
WndProc = CallWindowProc(prevWndProc, hWnd, Msg, Wparam, Lparam)
End If
End Function
'所在窗体:
Private Sub Form_Load()
'表格窗口消息
prevWndProc = GetWindowLong(MSHFlexGrid1.hWnd, GWL_WNDPROC)
Call SetWindowLong(MSHFlexGrid1.hWnd, GWL_WNDPROC, AddressOf WndProc)《-启动窗体就出现
俺所说问题,请高手解释一下AddressOf的详细用法及注意的地方。在线解决立即给分。
End Sub
Private Sub Form_Unload(Cancel As Integer)
'恢复窗口程序
Call SetWindowLong(MSHFlexGrid1.hWnd, GWL_WNDPROC, prevWndProc1)
End Sub