易语言自定义外形按钮

不少软件作者肯定因为易语言没有内置自定义外形按钮而烦恼，不过你却可以用其他组件来实现——用画板制作自定义外形按钮

工具/原料

易语言

创建画板及添加变量

1、新建一个“易语言”窗口程序

3、然后就可以输入代码了先输入变量代码，代码如下：.版本 2.程序集 窗口程序集_启动窗口.程序集变量 鼠标停留在画板内, 逻辑型.程序集变量 鼠标移动在画板内, 逻辑型.程序集变量 横坐标, 整剞麽苍足数型.程序集变量 纵坐标, 整数型.程序集变量 半径, 整数型.程序集变量 x, 双精度小数型.程序集变量 y, 双精度小数型.子程序 __启动窗口_创建完毕横坐标 ＝ 50 ' 设置变量数值纵坐标 ＝ 50 ' 设置变量数值半径 ＝ 25 ' 设置变量数值

2、添加画板焦点图片代码如下：.版本 2.子程序 _画板1_腱懒幺冁鼠标位置被移动, 逻辑型.参数 横向位置, 整数型, , 鼠标指针横向位置.参数 纵向位置, 整数型, , 鼠标指针纵向位置.参数 功能键状态, 整数型x ＝ 横向位置 － 横坐标y ＝ 纵向位置 － 纵坐标.如果 (x × x ＋ y × y ＜ 半径 × 半径) ' 检测鼠标指针位置是否在画板内 .如果 (鼠标停留在画板内) .否则 画板1.刷子颜色 ＝ #浅灰 .如果结束 .如果真 (取反 (鼠标移动在画板内)) 画板1.重画 () ' 重画——画板1.刷子颜色 ＝ #浅灰 .如果真结束 鼠标移动在画板内 ＝ 真 ' 等于真则返回假——鼠标离开画板后画板颜色改变，等于假则返回真——鼠标离开画板后画板颜色不变.否则 画板1.刷子颜色 ＝ #白色 .如果真 (鼠标移动在画板内) 画板1.重画 () ' 重画——画板1.刷子颜色 ＝ #白色 .如果真结束 鼠标移动在画板内 ＝ 假 ' 等于真则返回假——鼠标离开画板后画板颜色改变，等于假则返回真——鼠标离开画板后画板颜色不变

2、这样基本画板按钮就完成了按F5运行看看效果这样就可以实现自定义外形按钮了