VB鼠标滚轴控制滚动条

概述添加一个窗体 在窗体上添加一个垂直滚动条 名字就默认即可 然后粘贴如下代码： Private Sub Form_Load()     OldProcAddr = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf MyWinProc) End Sub 然后添加一个模块 粘贴如下代码： Public Const GWL_WNDPROC = (-4) Publi 添加一个窗体
在窗体上添加一个垂直滚动条
名字就默认即可
然后粘贴如下代码：

Private Sub Form_Load()
oldProcAddr = SetwindowLong(Me.hwnd,GWL_WNDPROC,AddressOf MyWinProc)
End Sub
然后添加一个模块
粘贴如下代码：
Public Const GWL_WNDPROC = (-4)
Public Const WM_MOUSEWHEEL = &H20A
Public oldProcAddr As Long
Public Declare Function SetwindowLong lib "user32" Alias "SetwindowLongA" (ByVal hwnd As Long,ByVal nIndex As Long,ByVal DWNewLong As Long) As Long
Public 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
Public Function MyWinProc(ByVal hwnd As Long,ByVal wp As Long,ByVal lp As Long) As Long
If msg <> WM_MOUSEWHEEL Then
MyWinProc = CallWindowProc(oldProcAddr,hwnd,msg,wp,lp)
Else
DeBUG.Print msg
Dim s As String
s = Hex(wp)
If Len(s) < 8 Then s = String(8 - Len(s),"0") & s
Dim zDelta As Long
zDelta = CInt("&h" & left(s,4)) * (-1)
If Form1.VScroll1.Value + zDelta < Form1.VScroll1.Min Then
Form1.VScroll1.Value = Form1.VScroll1.Min
ElseIf Form1.VScroll1.Value + zDelta > Form1.VScroll1.Max Then
Form1.VScroll1.Value = Form1.VScroll1.Max
Form1.VScroll1.Value = Form1.VScroll1.Value + zDelta
End If
End Function 总结

以上是内存溢出为你收集整理的VB鼠标滚轴控制滚动条全部内容，希望文章能够帮你解决VB鼠标滚轴控制滚动条所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。