希望大神告知让狐狸头像环绕中间图片移动的代码

说一下算法，代码没精力写。
取得中间图片的left /width /top /heigh 四个值。那么圆心的位置：
横坐标： left+width/2
纵坐标： top +Heigh/2 ，
再来算圆的半径= 2√((width/2 )^2 + (Heigh/2 )^2  ) ，
这样画圆的要素就有了，剩下的，把事情交给Timer吧。
每隔多少时间，计算一次狐狸在下一个位置的坐标，再把他移动过去就OK。

看到有定时器，可以在其Timer事件中改变狐狸头的Top和Left的值。

就是不知道啊！

搞那么复杂干啥，弄点实用简洁的

再来算圆的半径= 2√((width/2 )^2 + (Heigh/2 )^2  ) ，
是这样算出来？√前面的2哪里来？就是根号吧

[此贴子已经被作者于2016-6-20 11:32编辑过]

*thisform.image2.init
this.Top =thisform.image1.Top-this.Height-5
this.Left =thisform.image1.Left -this.Width -5

*thisform.timer1.init
this.Enabled =.t.
this.Interval =10
this.Tag ="向右"

*thisform.timer1.timer
DO CASE
CASE this.Tag="向右"
     thisform.image2.Left = thisform.image2.Left + 1
     IF thisform.image2.Left >= thisform.image1.Left + thisform.image1.Width  + 5
        thisform.image2.Left = thisform.image1.Left + thisform.image1.Width  + 5
        this.Tag="向下"
     ENDIF
CASE this.Tag="向下"
     thisform.image2.Top = thisform.image2.Top + 1
     IF thisform.image2.Top >= thisform.image1.Top + thisform.image1.Height + 5
        thisform.image2.Top = thisform.image1.Top + thisform.image1.Height + 5
        this.Tag="向左"
     ENDIF
CASE this.Tag="向左"
     thisform.image2.Left = thisform.image2.Left - 1
     IF thisform.image2.Left <= thisform.image1.Left - thisform.image2.Width - 5
        thisform.image2.Left = thisform.image1.Left - thisform.image2.Width - 5
        this.Tag="向上"
     ENDIF
CASE this.Tag="向上"
     thisform.image2.Top = thisform.image2.Top - 1
     IF thisform.image2.Top <= thisform.image1.Top - thisform.image2.Height - 5
        thisform.image2.Top = thisform.image1.Top - thisform.image2.Height - 5
        this.Tag="向右"
     ENDIF
ENDCASE

[此贴子已经被作者于2016-6-21 12:07编辑过]

谢谢

*搞点花样,点狐狸停止,再点,运行
*thisform.image2.init
this.Top =thisform.image1.Top-this.Height-5
this.Left =thisform.image1.Left -this.Width -5
this.Tag ="1"

*thisform.image2.click
IF this.Tag ="1"
   thisform.timer1.Enabled = .F.
   this.Tag ="0"
ELSE
   thisform.timer1.Enabled = .t.
   this.Tag ="1"
ENDIF