“图片框”中的图片如何实现鼠标滚轮控制其放大缩小

ljq182

目前的实现是通过监听滚轮被滚动，来改变图片字节集的高度和宽度，但是实际测试发现这样特别特别卡。想问下大佬们有啥好的办法没，就像VX那样查看图片时，鼠标滚轮可以快速放大缩小

malin158

看看这样行吗 笨方法
1111.e (1.85 MB, 下载次数: 6)

昨天 11:40 上传

点击文件名下载附件

aipca

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
高宽比	双精度小数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

高宽比 ＝ 图片框1.高度 ÷ 图片框1.宽度

子程序名	返回值类型	公开	备 注
_图片框1_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

判断 (滚动距离 ＞ 0)
图片框1.高度 ＝ 图片框1.高度 ＋ 滚动距离
图片框1.宽度 ＝ 图片框1.高度 ÷ 高宽比
判断 (滚动距离 ＜ 0)
图片框1.高度 ＝ 图片框1.高度 ＋ 滚动距离
图片框1.宽度 ＝ 图片框1.高度 ÷ 高宽比

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 高宽比, 双精度小数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 高宽比 ＝ 图片框1.高度 ÷ 图片框1.宽度<br /> <br /> <br /> .子程序 _图片框1_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> <br /> .判断开始 (滚动距离 ＞ 0)<br />     图片框1.高度 ＝ 图片框1.高度 ＋ 滚动距离<br />     图片框1.宽度 ＝ 图片框1.高度 ÷ 高宽比<br /> .判断 (滚动距离 ＜ 0)<br />     图片框1.高度 ＝ 图片框1.高度 ＋ 滚动距离<br />     图片框1.宽度 ＝ 图片框1.高度 ÷ 高宽比<br /> .默认

1173847128

图片快速无极限放大和平移.e (40.62 KB, 下载次数: 3)

昨天 12:48 上传

点击文件名下载附件

long280556182

https://bbs.125.la/forum.php?mod ... 3%E7%BC%A9%E6%94%BE
https://bbs.125.la/forum.php?mod ... 3%E7%BC%A9%E6%94%BE

w589321