无敌送钱帖

斷續

.版本 2

.程序集 窗口程序集1

.程序集变量 谁在移动, 整数型

.程序集变量 按钮0的左边, 整数型

.程序集变量 按钮0的顶边, 整数型

.程序集变量 按钮1的左边, 整数型

.程序集变量 按钮1的顶边, 整数型

.子程序 __启动窗口_鼠标左键被按下, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

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

_启动窗口.标题 ＝ 到文本 (横向位置) ＋ “   ” ＋ 到文本 (纵向位置)

.如果 (谁在移动 ＝ 0)

     按钮0的左边 ＝ 横向位置

     按钮0的顶边 ＝ 纵向位置

.否则

.如果结束

.如果 (谁在移动 ＝ 1)

     按钮1的左边 ＝ 横向位置

     按钮1的顶边 ＝ 纵向位置

.否则

.如果结束

返回 ()

.如果 (谁在移动 ＝ 0)

     .判断循环首 (按钮0.左边 ＋ 25 ≠ 横向位置 或 按钮0.顶边 ＋ 25 ≠ 纵向位置)

         .如果 (按钮0.左边 ＋ 按钮0.宽度 ÷ 2 ＞ 横向位置)

             按钮0.左边 ＝ 按钮0.左边 － 1

         .否则

             .如果 (按钮0.左边 ＋ 按钮0.宽度 ÷ 2 ＜ 横向位置)

                 按钮0.左边 ＝ 按钮0.左边 ＋ 1

             .否则

             .如果结束

         .如果结束

         .如果 (按钮0.顶边 ＋ 按钮0.高度 ÷ 2 ＞ 纵向位置)

             按钮0.顶边 ＝ 按钮0.顶边 － 1

         .否则

             .如果 (按钮0.顶边 ＋ 按钮0.高度 ÷ 2 ＜ 纵向位置)

                 按钮0.顶边 ＝ 按钮0.顶边 ＋ 1

             .否则

             .如果结束

         .如果结束

         延时 (5)

     .判断循环尾 ()

.否则

     .判断循环首 (按钮1.左边 ＋ 25 ≠ 横向位置 或 按钮1.顶边 ＋ 25 ≠ 纵向位置)

         .如果 (按钮1.左边 ＋ 25 ＞ 横向位置)

             按钮1.左边 ＝ 按钮1.左边 － 1

         .否则

             .如果 (按钮1.左边 ＋ 25 ＜ 横向位置)

                 按钮1.左边 ＝ 按钮1.左边 ＋ 1

             .否则

             .如果结束

         .如果结束

         .如果 (按钮1.顶边 ＋ 25 ≥ 纵向位置)

             按钮1.顶边 ＝ 按钮1.顶边 － 1

         .否则

             .如果 (按钮1.顶边 ＋ 25 ≤ 纵向位置)

                 按钮1.顶边 ＝ 按钮1.顶边 ＋ 1

             .否则

             .如果结束

         .如果结束

         延时 (5)

     .判断循环尾 ()

.如果结束

.子程序 _按钮0_被单击

谁在移动 ＝ 0

.子程序 _按钮1_被单击

谁在移动 ＝ 1

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

按钮0的左边 ＝ 按钮0.左边

按钮0的顶边 ＝ 按钮0.顶边

按钮1的左边 ＝ 按钮1.左边

按钮1的顶边 ＝ 按钮1.顶边

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

.判断开始 (按钮0.左边 ＋ 25 ≠ 按钮0的左边 或 按钮0.顶边 ＋ 25 ≠ 按钮0的顶边)

     .如果 (按钮0.左边 ＋ 按钮0.宽度 ÷ 2 ＜ 按钮0的左边)

         按钮0.左边 ＝ 按钮0.左边 ＋ 1

     .否则

         .如果 (按钮0.左边 ＋ 按钮0.宽度 ÷ 2 ＞ 按钮0的左边)

             按钮0.左边 ＝ 按钮0.左边 － 1

         .否则

         .如果结束

     .如果结束

     .如果 (按钮0.顶边 ＋ 按钮0.高度 ÷ 2 ＜ 按钮0的顶边)

         按钮0.顶边 ＝ 按钮0.顶边 ＋ 1

     .否则

         .如果 (按钮0.顶边 ＋ 按钮0.高度 ÷ 2 ＞ 按钮0的顶边)

             按钮0.顶边 ＝ 按钮0.顶边 － 1

         .否则

         .如果结束

     .如果结束

.默认

.判断结束

.判断开始 (按钮1.左边 ＋ 25 ≠ 按钮1的左边 或 按钮1.顶边 ＋ 25 ≠ 按钮1的顶边)

     .如果 (按钮1.左边 ＋ 按钮1.宽度 ÷ 2 ＜ 按钮1的左边)

         按钮1.左边 ＝ 按钮1.左边 ＋ 1

     .否则

         .如果 (按钮1.左边 ＞ 按钮1的左边)

             按钮1.左边 ＝ 按钮1.左边 － 1

         .否则

         .如果结束

         .如果 (按钮1.顶边 ＋ 按钮1.高度 ÷ 2 ＜ 按钮1的顶边)

             按钮1.顶边 ＝ 按钮1.顶边 ＋ 1

         .否则

             .如果 (按钮1.顶边 ＋ 按钮1.高度 ÷ 2 ＞ 按钮1的顶边)

                 按钮1.顶边 ＝ 按钮1.顶边 － 1

             .否则

             .如果结束

         .如果结束

     .如果结束

.默认

.判断结束

' 按钮0.左边 ＝ 按钮0.左边 ＋ 1

' 按钮0.左边 ＝ 按钮0.左边 － 1

' 按钮0.顶边 ＝ 按钮0.顶边 ＋ 1

' 按钮0.顶边 ＝ 按钮0.顶边 － 1

  怎么样让按钮在启动时不动，又能准确等在鼠标的位置。。。。。。。。。。。。。

炫舞芭比

解决了  看源码
组件移动 问题版 2.0.rar (2.33 KB, 下载次数: 3)

2012-9-11 14:25 上传

点击文件名下载附件

紅顏じ亦沉淪ジ

。。。。本来挺简单的，你弄个居中。。。现在看不懂了

紅顏じ亦妖娆ジ

LZ，把源码打包上来，这样看代码累人的

斷續

俄变乖了 发表于 2012-9-11 13:01
LZ，把源码打包上来，这样看代码累人的

在附件里面

汐沅

楼上英明！！！！！！！！太英明了！！！！

紅顏じ亦妖娆ジ

斷續 发表于 2012-9-11 13:08
在附件里面

如果我记得没错，这应该是世宝的视频教程里的课程

大乌

俄变乖了 发表于 2012-9-11 13:21
如果我记得没错，这应该是世宝的视频教程里的课程

恩，课程是2009-3-31那课的，教程的后半段就是说这个的

紅顏じ亦妖娆ジ

大乌 发表于 2012-9-11 13:23
恩，课程是2009-3-31那课的，教程的后半段就是说这个的

哇塞，你记忆力真好，我就隐隐约约记得是他的，你连日期都记得，佩服

斷續

谁来给我解决呀