vb.net用鼠标滚动轮控制图片缩放

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