求一个图片缩放源码100精币

张小三

就是，在易语言里添加一张图片，鼠标指到图片上，图片就自动变大，鼠标移开，图片就还是原来的大小！

我原来有个源码，但是丢了！我印象中，那个源码很简单，但是忘了怎么写，就是宽度 高度 啥的、。。是100精币！

竭诚软件

qq1334239148

竭诚软件

为何不是交易币呢  唉    算了  楼主联系我吧

无名i

精币 帖子 不在问答区 在这里提问

sx大总管

成品 那就即可使用 920573290

陆小双

送上源码 其中鼠标移入移出代码借用温柔NiKop的代码 请大牛见谅

陆小双

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

图片框1.图片 ＝ #美女

子程序名	返回值类型	公开	备 注
_图片框1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
是否移入	逻辑型

如果 (0 ≤ 横向位置 且 横向位置 ≤ 图片框1.宽度 且 0 ≤ 纵向位置 且 纵向位置 ≤ 图片框1.高度)
如果真 (是否移入 ＝ 假)
SetCapture (图片框1.取窗口句柄 ())
显隐放大图 (真)
是否移入 ＝ 真

如果真 (是否移入 ＝ 真)
ReleaseCapture ()
显隐放大图 (假)
是否移入 ＝ 假

子程序名	返回值类型	公开	备 注
显隐放大图
参数名	类 型	参考	可空	数组	备 注
显隐	逻辑型				真=显示 假=隐藏

判断 (显隐 ＝ 真)
图片框1.宽度 ＝ 479
图片框1.高度 ＝ 574
图片框1.宽度 ＝ 176
图片框1.高度 ＝ 200

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 图片框1.图片 ＝ #美女<br /> <br /> .子程序 _图片框1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 是否移入, 逻辑型, 静态<br /> <br /> .如果 (0 ≤ 横向位置 且 横向位置 ≤ 图片框1.宽度 且 0 ≤ 纵向位置 且 纵向位置 ≤ 图片框1.高度)<br />     .如果真 (是否移入 ＝ 假)<br />         SetCapture (图片框1.取窗口句柄 ())<br />         显隐放大图 (真)<br />         是否移入 ＝ 真<br />     .如果真结束<br /> <br /> .否则<br />     .如果真 (是否移入 ＝ 真)<br />         ReleaseCapture ()<br />         显隐放大图 (假)<br />         是否移入 ＝ 假<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 显隐放大图<br /> .参数 显隐, 逻辑型, , 真=显示 假=隐藏<br /> <br /> .判断开始 (显隐 ＝ 真)<br />     图片框1.宽度 ＝ 479<br />     图片框1.高度 ＝ 574<br /> .默认<br />     图片框1.宽度 ＝ 176<br />     图片框1.高度 ＝ 200<br /> .判断结束

陆小双

附件发送不成功 贴上代码吧 资源你随便搞个吧 看你也不想小白

陆小双

补个附件给你把

风景好靓

支持支持支持支持