让程序的鼠标支持滚轮

软件测试技术门户7?KSve
                 End  Select 
r!n$mH$w(PY                   软件测试技术门户aU1H P5L+tT
                 FlexScroll  =  CallWindowProc(Oldwinproc,  hWnd,  wMsg,  wParam,  lParam) 
N`{ r'O%V7D                   软件测试技术门户/s;z*W t2Ns8LT
End  Function  软件测试技术门户3yj/Y4vD d
 软件测试技术门户i+k9RT.Ca*O_E
 软件测试技术门户^fRym\
以下代码写在窗体里面  软件测试技术门户!t"\!k1uH$J*G!@O
 软件测试技术门户5K$Mxc"lUg"`
Private  Sub  MfgMonth_GotFocus()  软件测试技术门户wF$JvvY A
        
2z*s+@YG}NT$])Y2H       Oldwinproc  =  GetWindowLong(Me.hWnd,  GWL_WNDPROC)  软件测试技术门户 ue D:T;MQr"sF
         SetWindowLong  Me.hWnd,  GWL_WNDPROC,  AddressOf  FlexScroll 
@*{R9SBqEnd  Sub  软件测试技术门户k4rD8iOg
 
;ZXW;W]Private  Sub  MfgMonth_LostFocus()  软件测试技术门户#O/cTWW
\'m
       SetWindowLong  Me.hWnd,  GWL_WNDPROC,  Oldwinproc 
Q'SQ^