Mouse Zoom Functionality in VB.NET
在这个代码片段中，鼠标滚轮的功能被实现为：
-
放大操作：
vb
Form1.Picture1.Cls
cskd = cskd * 1.05
Call自定义坐标(cskd)
Form1.Picture1.Circle (0, 0), 10
Debug.Print "鼠标滚轮动作:上"
-
缩小操作：
vb
Else
Form1.Picture1.Cls
cskd = cskd * 0.95
Call自定义坐标(cskd)
Form1.Picture1.Circle (0, 0), 10
Debug.Print "鼠标滚轮动作:下"
这个逻辑循环检测鼠标滚轮的滚动，依次调整图形的大小。
文件大小：36.38KB
评论区