Question

易语言怎么做到鼠标指针移动到一个标签上，标签的背景颜色就改变？

易语言怎么做到鼠标指针移动到一个标签上，标签的背景颜色就改变？然后鼠标指针离开了这个标签，背景颜色又还原。

Answer 1

.版本 2
.支持库 spec

.子程序 _时钟1_周期事件
.局部变量 横, 整数型
.局部变量 纵, 整数型
.局部变量 左, 整数型
.局部变量 右, 整数型
.局部变量 顶, 整数型
.局部变量 底, 整数型
.局部变量 边框宽, 整数型
.局部变量 标题栏宽, 整数型

左 ＝ 标签1.左边
右 ＝ 标签1.左边 ＋ 标签1.宽度
顶 ＝ 标签1.顶边
底 ＝ 标签1.顶边 ＋ 标签1.高度
边框宽 ＝ (宽度 － 取用户区宽度 ()) ÷ 2
标题栏宽 ＝ 高度 － 取用户区高度 () － 边框宽

横 ＝ 取鼠标水平位置 () － 左边 － 边框宽
纵 ＝ 取鼠标垂直位置 () － 顶边 － 标题栏宽
调试输出 (左, 右, 顶, 底, 横, 纵)
.如果 (横 ＞ 左 且 横 ＜ 右 且 纵 ＞ 顶 且 纵 ＜ 底)
标签1.背景颜色 ＝ #蓝色
.否则
标签1.背景颜色 ＝ #绿色