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

.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 鼠标停留在画板内, 逻辑型

.程序集变量 鼠标移动在画板内, 逻辑型

.程序集变量 横坐标, 整数型

.程序集变量 纵坐标, 整数型

.程序集变量 半径, 整数型

.程序集变量 x, 双精度小数型

.程序集变量 y, 双精度小数型

.子程序 __启动窗口_创建完毕

横坐标 ＝ 50 ' 设置变量数值

纵坐标 ＝ 50 ' 设置变量数值

半径 ＝ 25 ' 设置变量数值

.版本 2

.子程序 _画板1_绘画

.参数 重画区左边, 整数型

.参数 重画区上边, 整数型

.参数 重画区右边, 整数型

.参数 重画区下边, 整数型

画板1.画椭圆 (横坐标 － 半径, 纵坐标 － 半径, 横坐标 ＋ 半径, 纵坐标 ＋ 半径) ' 画板1.画椭圆 你可以替换成 画板1.画矩形 等其他形状

.版本 2

.子程序 _画板1_鼠标位置被移动, 逻辑型

.参数 横向位置, 整数型, , 鼠标指针横向位置

.参数 纵向位置, 整数型, , 鼠标指针纵向位置

.参数 功能键状态, 整数型

x ＝ 横向位置 － 横坐标

y ＝ 纵向位置 － 纵坐标

.如果 (x × x ＋ y × y ＜ 半径 × 半径) ' 检测鼠标指针位置是否在画板内

  .如果 (鼠标停留在画板内)

  .否则

    画板1.刷子颜色 ＝ #浅灰

  .如果结束

  .如果真 (取反 (鼠标移动在画板内))

    画板1.重画 () ' 重画——画板1.刷子颜色 ＝ #浅灰

  .如果真结束

  鼠标移动在画板内 ＝ 真 ' 等于真则返回假——鼠标离开画板后画板颜色改变，等于假则返回真——鼠标离开画板后画板颜色不变

.否则

  画板1.刷子颜色 ＝ #白色

  .如果真 (鼠标移动在画板内)

    画板1.重画 () ' 重画——画板1.刷子颜色 ＝ #白色

  .如果真结束

  鼠标移动在画板内 ＝ 假 ' 等于真则返回假——鼠标离开画板后画板颜色改变，等于假则返回真——鼠标离开画板后画板颜色不变

.版本 2

.子程序 _画板1_鼠标左键被按下, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

x ＝ 横向位置 － 横坐标

y ＝ 纵向位置 － 纵坐标

.如果真 (x × x ＋ y × y ＜ 半径 × 半径)

  鼠标停留在画板内 ＝ 真

  画板1.刷子颜色 ＝ #灰色

.如果真结束

画板1.重画 ()

.子程序 _画板1_鼠标左键被放开, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

鼠标停留在画板内 ＝ 假

x ＝ 横向位置 － 横坐标

y ＝ 纵向位置 － 纵坐标

.如果真 (x × x ＋ y × y ＜ 半径 × 半径)

  信息框 (“按钮被按下”, 0, )

  画板1.重画 ()

.如果真结束