怎样能让窗体碰撞到边界能自由来回反弹.txt

VB技巧问答10000例 VB技巧问答10000例

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 
<END>