很简单,使用控件的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鼠标上下滚动的方法,看了多篇帖子也没找到,后来看到微软帮助介绍,通过里面的一句话“正值表示滚轮旋转(远离用户);负值表示滚轮向后旋转(朝向用户)。”受到启发,解决了此问题。说实在的,微软的这篇文章中代码对我没帮助,为什么不举个实用的例子方便用户理解呢?可能人家是针对专业用户写的吧? :- (