易语言自定义外形按钮实现过程

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

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

2、添加组件——一个画板到窗口内

为了方便定位按钮的位置

你可以把画板的宽度设置为：80，高度也设置为：80

为了清楚画板在哪里，可以把底色设置成你喜欢的颜色

3、然后就可以输入代码了

先输入变量代码，代码如下：

1. .版本 2
2.  
3. .程序集 窗口程序集_启动窗口
4.  
5. .程序集变量 鼠标停留在画板内, 逻辑型
6.  
7. .程序集变量 鼠标移动在画板内, 逻辑型
8.  
9. .程序集变量 横坐标, 整数型
10.  
11. .程序集变量 纵坐标, 整数型
12.  
13. .程序集变量 半径, 整数型
14.  
15. .程序集变量 x, 双精度小数型
16.  
17. .程序集变量 y, 双精度小数型
18.  
19. .子程序 __启动窗口_创建完毕
20.  
21. 横坐标 ＝ 50 ' 设置变量数值
22.  
23. 纵坐标 ＝ 50 ' 设置变量数值
24.  
25. 半径 ＝ 25 ' 设置变量数值

1、添加画板焦点颜色

先绘画画板外形

代码如下：

1. .版本 2
2.  
3. .子程序 _画板1_绘画
4.  
5. .参数 重画区左边, 整数型
6.  
7. .参数 重画区上边, 整数型
8.  
9. .参数 重画区右边, 整数型
10.  
11. .参数 重画区下边, 整数型
12.  
13. 画板1.画椭圆 (横坐标 － 半径, 纵坐标 － 半径, 横坐标 ＋ 半径, 纵坐标 ＋ 半径) ' 画板1.画椭圆 你可以替换成 画板1.画矩形 等其他形状

2、添加画板焦点图片

代码如下：

1. .版本 2
2.  
3. .子程序 _画板1_鼠标位置被移动, 逻辑型
4.  
5. .参数 横向位置, 整数型, , 鼠标指针横向位置
6.  
7. .参数 纵向位置, 整数型, , 鼠标指针纵向位置
8.  
9. .参数 功能键状态, 整数型
10.  
11. x ＝ 横向位置 － 横坐标
12.  
13. y ＝ 纵向位置 － 纵坐标
14.  
15. .如果 (x × x ＋ y × y ＜ 半径 × 半径) ' 检测鼠标指针位置是否在画板内
16.  
17. .如果 (鼠标停留在画板内)
18.  
19. .否则
20.  
21. 画板1.刷子颜色 ＝ #浅灰
22.  
23. .如果结束
24.  
25. .如果真 (取反 (鼠标移动在画板内))
26.  
27. 画板1.重画 () ' 重画——画板1.刷子颜色 ＝ #浅灰
28.  
29. .如果真结束
30.  
31. 鼠标移动在画板内 ＝ 真 ' 等于真则返回假——鼠标离开画板后画板颜色改变，等于假则返回真——鼠标离开画板后画板颜色不变
32.  
33. .否则
34.  
35. 画板1.刷子颜色 ＝ #白色
36.  
37. .如果真 (鼠标移动在画板内)
38.  
39. 画板1.重画 () ' 重画——画板1.刷子颜色 ＝ #白色
40.  
41. .如果真结束
42.  
43. 鼠标移动在画板内 ＝ 假 ' 等于真则返回假——鼠标离开画板后画板颜色改变，等于假则返回真——鼠标离开画板后画板颜色不变

3、按F5运行看看

当鼠标停留在画板内，画板颜色就会变成灰色

当鼠标离开在画板内，画板颜色就会变成白色

1、添加画板按钮效果

命令及变量我已经解释过了，就不多解释了

直接输入代码，代码如下：

1. .版本 2
2.  
3. .子程序 _画板1_鼠标左键被按下, 逻辑型
4.  
5. .参数 横向位置, 整数型
6.  
7. .参数 纵向位置, 整数型
8.  
9. .参数 功能键状态, 整数型
10.  
11. x ＝ 横向位置 － 横坐标
12.  
13. y ＝ 纵向位置 － 纵坐标
14.  
15. .如果真 (x × x ＋ y × y ＜ 半径 × 半径)
16.  
17. 鼠标停留在画板内 ＝ 真
18.  
19. 画板1.刷子颜色 ＝ #灰色
20.  
21. .如果真结束
22.  
23. 画板1.重画 ()
24.  
25. .子程序 _画板1_鼠标左键被放开, 逻辑型
26.  
27. .参数 横向位置, 整数型
28.  
29. .参数 纵向位置, 整数型
30.  
31. .参数 功能键状态, 整数型
32.  
33. 鼠标停留在画板内 ＝ 假
34.  
35. x ＝ 横向位置 － 横坐标
36.  
37. y ＝ 纵向位置 － 纵坐标
38.  
39. .如果真 (x × x ＋ y × y ＜ 半径 × 半径)
40.  
41. 信息框 (“按钮被按下”, 0, )
42.  
43. 画板1.重画 ()
44.  
45. .如果真结束

2、这样基本画板按钮就完成了

按F5运行看看效果

这样就可以实现自定义外形按钮了