Question

易语言 当指针移到窗口的按钮时（不是单击按钮），窗口移动，求代码

Answer 1

.版本 2
.支持库 iext2

.程序集 窗口程序集1

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

时钟2.时钟周期 ＝ 1

.子程序 _时钟2_周期事件
.局部变量 i, 整数型
.局部变量 ii, 整数型

置随机数种子 ()
ii ＝ 取鼠标垂直位置 ()
i ＝ 取鼠标水平位置 ()

.如果真 (i ＞ _启动窗口.顶边 ＋ 超级按钮1.顶边 且 i ＜ _启动窗口.顶边 ＋ 超级按钮1.顶边 ＋ 超级按钮1.高度)
_启动窗口.移动 (取随机数 (1, 取屏幕宽度 () － 200), 取随机数 (1, 取屏幕高度 () － 200), , )
.如果真结束

.如果真 (i ＞ _启动窗口.左边 ＋ 超级按钮1.左边 且 i ＜ _启动窗口.左边 ＋ 超级按钮1.左边 ＋ 超级按钮1.宽度)
_启动窗口.移动 (取随机数 (1, 取屏幕宽度 () － 200), 取随机数 (1, 取屏幕高度 () － 200), , )
.如果真结束

加一个超级按钮和时钟

追问

怎么才能使第一个移动窗口销毁毁后第2个窗口出现在第一个窗口销毁的位子，重复上述操作

Answer 2

在按钮的鼠标移入事件下写移动窗口的代码就可以了。

追问

哪里有鼠标移入事件额，代码写一下

追答

哦，记错了，不叫鼠标移入，一字不差的叫鼠标位置被移动。
在这个事件下面写上你所谓的窗口移动的代码，运行之后，只要鼠标指针碰到这个按钮，就会触发这个事件，然后执行的窗口移动代码。

追问

源代码给出看看

追答

启动窗口上放一个按钮，你说的窗口移动我也不知道是怎么移动。所以这个代码演示一下，鼠标指针指向按钮，窗口抖动。
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

_启动窗口.左边 ＝ _启动窗口.左边 － 5
_启动窗口.左边 ＝ _启动窗口.左边 ＋ 5

追问

一个按钮被单击执行一个语句后还可以再次被单击么，如果可以，怎么实现啊，源代码谢谢

追答

按钮被单击就会触发被单击事件，当然这个按钮可以再次被单击，这个一句话就能说明白，不知道你要什么的代码。