可以借鉴的技巧。
活到老，学到老！ http://www. E-mail:hu-jj@
*thisform.init
PUBLIC x1,y1,r1,x2,y2,r2,x,y,r,a1
a1=0
*图片1的圆点坐标和半径
x1=thisform.image1.Width /2
y1=thisform.image1.Height /2
r1=SQRT(x1^2+y1^2)
*图片2的圆点坐标和半径
x2=thisform.image2.Width /2
y2=thisform.image2.Height /2
r2=SQRT(x2^2+y2^2)
*圆移动半径
r=r1+r2
*thisform.timer2.init
this.Enabled = .T.
this.Interval =10
*thisform.timer2.timer
*计算从角度1到360对应的坐标
x=SIN(a1*0.0174533)*r
y=COS(a1*0.0174533)*r
a1=IIF(a1+1>=360,0,a1+1)
thisform.image2.Left = x + thisform.image1.Left + x1 - x2
thisform.image2.Top = y + thisform.image1.Top + y1 - y2
[此贴子已经被作者于2016-6-22 12:05编辑过]
