控件移动如何加以限制？

zwf9507

按下鼠标，用“发送消息”移动某个组件，要求只在窗口内移动，不许超过窗口的范围。怎么弄？

341455770

{:1_110:}高级货，谁会的发来来看看

程序开发推广

我的不知道为什么出去回不来了。。

huomu

楼上的能把源码发来研究一下么

小生怕怕啊

用 对象.移动（）   判断对象的位置 是否已超出窗口范围

柳叶飞

[e]

.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕

.子程序 _按钮1_被单击
.局部变量 软件_高度, 整数型
.局部变量 软件_宽度, 整数型
.局部变量 物体_目的地_左边, 整数型
.局部变量 物体_目的地_顶边, 整数型
.局部变量 物体_当前地_左边, 整数型
.局部变量 物体_当前地_顶边, 整数型
软件_高度 ＝ 取用户区高度 ()
软件_宽度 ＝ 取用户区宽度 ()
物体_目的地_左边 ＝ 到整数 (编辑框_左边.内容)
物体_目的地_顶边 ＝ 到整数 (编辑框_上边.内容)
物体_当前地_左边 ＝ 按钮_物体.左边
物体_当前地_顶边 ＝ 按钮_物体.顶边
输出调试文本 (到文本 (软件_宽度) ＋ “   ” ＋ 到文本 (软件_高度))
.如果 (物体_目的地_左边 ＞ 物体_当前地_左边)  ' 判断物体横向移动方向
    .如果 (物体_目的地_左边 ＋ 按钮_物体.宽度 ＞ 软件_宽度)  ' 如果比界面宽度大则限制他位置
        按钮_物体.左边 ＝ 软件_宽度 － 按钮_物体.宽度
    .否则
        按钮_物体.左边 ＝ 物体_目的地_左边
    .如果结束
.否则
    .如果 (物体_目的地_左边 ＜ 0)
        按钮_物体.左边 ＝ 0
    .否则
        按钮_物体.左边 ＝ 物体_目的地_左边
    .如果结束
.如果结束
.如果 (物体_目的地_顶边 ＜ 物体_当前地_顶边)  ' 判断物体纵向移动方向
    .如果 (物体_目的地_顶边 ＞ 0)
        按钮_物体.顶边 ＝ 物体_目的地_顶边
    .否则
        按钮_物体.顶边 ＝ 0
    .如果结束
.否则
    .如果 (物体_目的地_顶边 ＋ 按钮_物体.高度 ＞ 软件_高度)
        按钮_物体.顶边 ＝ 软件_高度 － 按钮_物体.高度
    .否则
        按钮_物体.顶边 ＝ 物体_目的地_顶边
    .如果结束
.如果结束

[/e]

柳叶飞

补充一下：

上面的代码由于是自动生成的，我对比了下我电脑里的，

上面的代码缺少了一句，  按钮被单击，这个你自己添加一下就可以了，主要就是上面这些

六度空间

用 对象.移动（）   判断对象的位置 是否已超出窗口范围

天堂ω狮子心

我的天！！都快2年的问题没有人给解决吗？？这么简单的问题？？？请问。。发问题的楼主还在吗？？在的话我在给你回复这个问题！    欢迎大家来到QQ群：82526733《《互相学习！

远航接单

可以用这个做个小游戏玩玩。。。。