易语言图片框模仿超级按钮
<p><img src="https://img2020.cnblogs.com/blog/966843/202112/966843-20211204112752137-2073499990.jpg"></p><p>.版本 2</p>
<p>.支持库 eAPI<br><br>.程序集 窗口程序集1<br>.程序集变量 移入, 逻辑型<br><br>.子程序 _图片框1_鼠标位置被移动, 逻辑型<br>.参数 横向位置, 整数型<br>.参数 纵向位置, 整数型<br>.参数 功能键状态, 整数型<br><br>.如果 (移入 ＝ 假)<br> 捕获鼠标 (图片框1.取窗口句柄 ())<br> 移入 ＝ 真<br> 图片框1.边框 ＝ 3<br> 图片框1.背景颜色 ＝ #嫩黄<br>.否则<br> .如果真 (横向位置 ＞ 0 且 横向位置 ＞ 图片框1.宽度 或 纵向位置 ＞ 0 且 纵向位置 ＞ 图片框1.高度)<br> 图片框1.边框 ＝ 0<br> 图片框1.背景颜色 ＝ #默认色<br> 移入 ＝ 假<br> 释放鼠标 ()<br> .如果真结束<br><br><br>.如果结束<br><br><br>.子程序 _图片框1_鼠标左键被按下, 逻辑型<br>.参数 横向位置, 整数型<br>.参数 纵向位置, 整数型<br>.参数 功能键状态, 整数型<br><br>信息框 (“按下了信息框”, 0, )<br>图片框1.边框 ＝ 0<br>图片框1.背景颜色 ＝ #默认色<br>移入 ＝ 假<br>释放鼠标 ()</p>
<p id="1638588472722"> </p><br><br>
来源：https://www.cnblogs.com/hongyuyingxiao/p/15641352.html
頁:
[1]