怎样能让窗体碰撞到边界能自由来回反弹
编号：QA003668
建立日期: 2000年12月17日 最后修改日期：2000年12月17日
所属类别：
qbt:
操作系统: Windows
编程工具: Visual Basic6.0
问题: 请问怎样能让FORM(窗体)在Windows的桌面上自由移动碰撞到边界能自由来回反弹？
水平: 中级
回答:
x = 10 '横坐标
y = 10 '纵坐标
a = 1 'x的位移量
b = 1 'y的位移量
do while true
x = x + a
y = y + b
if x < 10 then a = -a '到左边界
if x > 70 then a = -a '到右边界
if y < 10 then b = -b '到顶部
if y > 20 then b = -b '到底部
me.move x,y ...... '将窗体移动新位置
.... '延时
....
loop
此问题由少男回答。
| |
|
|
| |
|
|
