[例题]一个圆在窗体内规则运动[类似浮动广告条]

 =========cike例题===========

name = 弹动的小圆

窗体=1个圆  1个时间

设置：把Shape设置成圆 时间间隔=20

代码：

==================================

 

Dim  下右  As   Boolean
Dim  下左  As   Boolean
Dim  上右  As   Boolean
Dim  上左  As   Boolean   ' 定义方向

Private   Sub  Form_Load()
Randomize     '  这里让圆随机方向移动
a  =   Int ( Rnd   *   4 )

If  a  =   0   Then  上左  =   False : 上右  =   False : 下左  =   False : 下右  =   True
If  a  =   1   Then  上左  =   False : 上右  =   False : 下左  =   True : 下右  =   False
If  a  =   2   Then  上左  =   False : 上右  =   True : 下左  =   False : 下右  =   False
If  a  =   3   Then  上左  =   True : 上右  =   False : 下左  =   False : 下右  =   False


End Sub

Private   Sub  Timer1_Timer()   ' 移动过程
x  =  Shape1.Left              ' 提取当前x
y  =  Shape1.Top               ' 提取当前y
If  下右  =   True   And  x  +  Shape1.Width  >  Me.Width  -   140   Then  下左  =   True : 下右  =   False   ' 若方向是 下右 并且碰到 右边 则向 下左
If  下右  =   True   And  y  +  Shape1.Width  >  Me.Height  -   500   Then  上右  =   True : 下右  =   False   ' 若方向是 下右 并且碰到 下边 则向 上右
If  上右  =   True   And  x  +  Shape1.Width  >  Me.Width  -   140   Then  上右  =   False : 上左  =   True   '  类推....
If  上右  =   True   And  y  <   0   Then  上右  =   False : 下右  =   True
If  上左  =   True   And  x  <   0   Then  上左  =   False : 上右  =   True
If  上左  =   True   And  y  <   0   Then  上左  =   False : 下左  =   True
If  下左  =   True   And  y  +  Shape1.Width  >  Me.Height  -   500   Then  下左  =   False : 上左  =   True
If  下左  =   True   And  x  <   0   Then  下左  =   False : 下右  =   True
If  上左  =   True   Then  x  =  x  -   30 : y  =  y  -   30    ' 判断是什么方向 就怎么移动
If  上右  =   True   Then  x  =  x  +   30 : y  =  y  -   30
If  下左  =   True   Then  x  =  x  -   30 : y  =  y  +   30
If  下右  =   True   Then  x  =  x  +   30 : y  =  y  +   30
Shape1.Move x, y    ' 使用move 函数 移动
End Sub