Question

易语言将鼠标放在单选框时出现提示信息

要源码

Answer 1

源代码在下边

.版本 2

.程序集 窗口程序集1

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

载入 (窗口1, _启动窗口, 假)

.子程序 _时钟1_周期事件

.局部变量 X, 整数型, 静态

.局部变量 Y, 整数型, 静态

.局部变量 悬停时间, 整数型, 静态

.如果 (X ＝ 取鼠标水平位置 () 且 Y ＝ 取鼠标垂直位置 () － 28)

    悬停时间 ＝ 悬停时间 ＋ 100

    .如果真 (悬停时间 ＞ 500 且 X ＞ _启动窗口.左边 ＋ 单选框1.左边 且 X ＜ _启动窗口.左边 ＋ 单选框1.左边 ＋ 单选框1.宽度 且 Y ＞ _启动窗口.顶边 ＋ 单选框1.顶边 且 Y ＜ _启动窗口.顶边 ＋ 单选框1.顶边 ＋ 单选框1.高度)

        窗口1.左边 ＝ X

        窗口1.顶边 ＝ Y ＋ 48

        窗口1.可视 ＝ 真

        _启动窗口.获取焦点 ()

    .如果真结束

.否则

    悬停时间 ＝ 0

    窗口1.可视 ＝ 假

    X ＝ 取鼠标水平位置 ()

    Y ＝ 取鼠标垂直位置 () － 28

.如果结束