易语言图片框模仿超级按钮

会飞的公奶牛

.版本 2

.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 移入, 逻辑型

.子程序 _图片框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果 (移入 ＝ 假)
    捕获鼠标 (图片框1.取窗口句柄 ())
    移入 ＝ 真
    图片框1.边框 ＝ 3
    图片框1.背景颜色 ＝ #嫩黄
.否则
    .如果真 (横向位置 ＞ 0 且 横向位置 ＞ 图片框1.宽度 或 纵向位置 ＞ 0 且 纵向位置 ＞ 图片框1.高度)
        图片框1.边框 ＝ 0
        图片框1.背景颜色 ＝ #默认色
        移入 ＝ 假
        释放鼠标 ()
    .如果真结束


.如果结束


.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

信息框 (“按下了信息框”, 0, )
图片框1.边框 ＝ 0
图片框1.背景颜色 ＝ #默认色
移入 ＝ 假
释放鼠标 ()

 

来源：https://www.cnblogs.com/hongyuyingxiao/p/15641352.html