|
板凳
发表于 2010-4-3 10:05:37
|
只看该作者
福建省泉州市
.版本 2
.DLL命令 置鼠标位置, , "user32", "SetCursorPos"
.参数 X, 整数型
.参数 Y, 整数型
-----------------------------------------------
.版本 2
.程序集 窗口程序集1
.程序集变量 左移, 逻辑型
.程序集变量 最大左, 整数型
.程序集变量 最大右, 整数型
.子程序 __启动窗口_创建完毕
最大左 = _启动窗口.左边
最大右 = _启动窗口.左边 + _启动窗口.宽度
.子程序 _时钟1_周期事件
.如果真 (取鼠标水平位置 () = 最大左)
左移 = 假
.如果真结束
.如果真 (取鼠标水平位置 () = 最大右)
左移 = 真
.如果真结束
.如果 (左移 = 真)
置鼠标位置 (取鼠标水平位置 () - 1, 取鼠标垂直位置 ())
.否则
置鼠标位置 (取鼠标水平位置 () + 1, 取鼠标垂直位置 ())
.如果结束
.子程序 _按钮1_被单击
置鼠标位置 (_启动窗口.左边, 取鼠标垂直位置 ())
时钟1.时钟周期 = 1
以上是代码 你犯错的是逻辑性的错误 你把代码在头脑里跑下就知道错在哪了
稍后发上源码 |
|