贝乐虎儿歌动画大全小程序(易语言 用滑块条控制放大或缩小图片)
时间：
2024-03-30 作者：
小编 阅读量：
37 栏目名：
儿童歌曲
文档下载
.版本2.程序集窗口程序集1.程序集变量图片号,整数型.程序集变量缩放值,小数型.子程序__启动窗口_创建完毕滑块条1.最小位置＝10'表示最小可缩小到0.1倍滑块条1.最大位置＝500'100表示1倍、200表示2倍、300表示3倍。。。
易语言 用滑块条控制放大或缩小图片
我就懒得按楼主要求做了，我只做了图片缩放部分，楼主的问题补充自己做可以吧！
.版本 2
.程序集 窗口程序集1
.程序集变量 图片号, 整数型
.程序集变量 缩放值, 小数型
.子程序 __启动窗口_创建完毕
滑块条1.最小位置 ＝ 10 ' 表示最小可缩小到0.1倍
滑块条1.最大位置 ＝ 500 ' 100表示1倍、200表示2倍、300表示3倍。。。
滑块条1.位置 ＝ 100 ' 100表示原始尺寸
滑块条1.调整层次 (#顶层)
画板1.自动重画 ＝ 真
移动 (200, 200, 800, 600)
画板1.移动 (0, 0, 800, 600)
缩放值 ＝ 1 ' 1表示原始尺寸 / 1表示1倍、2表示2倍、3表示3倍。。。
.子程序 _按钮1_被单击
通用对话框1.类型 ＝ 0
通用对话框1.过滤器 ＝ “图片文件|*.jpg;*.bmp;*.gif”
.如果真 (通用对话框1.打开 ())
.如果真 (图片号 ≠ 0)
卸载图片 (图片号)
.如果真结束
图片号 ＝ 载入图片 (通用对话框1.文件名)
画出图片 (图片号)
.如果真结束
.子程序 画出图片
.参数 图片号_, 整数型
.局部变量 图片宽度
.局部变量 图片高度
画板1.清除 (, , , )
图片宽度 ＝ 画板1.取图片宽度 (图片号_) × 缩放值
图片高度 ＝ 画板1.取图片高度 (图片号_) × 缩放值
' 画板1.移动 (0, 0, 图片宽度, 图片高度)
画板1.画图片 (图片号_, 0, 0, 图片宽度, 图片高度, )
.子程序 _滑块条1_位置被改变
缩放值 ＝ 滑块条1.位置 ÷ 100
画出图片 (图片号)
标题 ＝ “缩放倍数：” ＋ 到文本 (缩放值) ＋ “倍 /缩放值：” ＋ 到文本 (滑块条1.位置) ＋ “%”植物大战僵尸年度版
不错
