很简单，使用控件的MouseWheel中的e.Delta判断正负值即可解决，实例：

 

IDE：        Visual Studio 2017

 

Private Sub PicMain_MouseWheel(sender As Object, e As MouseEventArgs) Handles PicMain.MouseWheel

        '鼠标上下滚动调整大小

        Select Case e.Delta'鼠标滚动方向

            Case Is > 0 '正值表示滚轮向前旋转（远离用户）

                picChangeBigger()

            Case Is < 0 '负值表示滚轮向后旋转（朝向用户）

                picChangeSmaller()

        End Select

    End Sub

 

注：

 

本人编程爱好者，在写一个图片控件用鼠标滚动控制缩放的小程序，在网上搜索vb.net鼠标上下滚动的方法,看了多篇帖子也没找到，后来看到微软帮助介绍，通过里面的一句话“正值表示滚轮旋转（远离用户）;负值表示滚轮向后旋转（朝向用户）。”受到启发，解决了此问题。说实在的，微软的这篇文章中代码对我没帮助，为什么不举个实用的例子方便用户理解呢？可能人家是针对专业用户写的吧？ ：- (

————————————————

版权声明：本文为CSDN博主「清风不拂面」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/kguncn/article/details/107279432