用随机数 rand()

我用了，只不过不能到达边距！

** test.prg
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 AS form
    ADD OBJECT shape1 AS shape WITH Top=10,Left=10,Height=70,Width=70,Curvature=99
    ADD OBJECT timer1 AS timer WITH Interval=500
    mTop = 0
    mLeft = 0
   
    PROCEDURE init
        this.mTop = this.Height - this.shape1.Height
        this.mLeft = this.Width - this.shape1.Width
    ENDPROC
   
    PROCEDURE timer1.Timer
        thisform.shape1.top = INT(thisform.mTop * RAND())
        thisform.shape1.left = INT(thisform.mLeft * RAND())
    ENDPROC
ENDDEFINE

随机，有到边的可能性，那是随机的，要慢慢等待的哈。

谢谢了

谢谢了

示例代码全部放到一个prg文件在VFP运行。
如果用表单设计器写，可以这样：
1、自定义新建表单属性：mTop，mLeft
2、在表单放一个shape控件，设置属性：Height=70,Width=70,Curvature=99
3、在表单放一个timer控件，设置属性Interval=500
4、表单init事件代码：
    this.mTop = this.Height - this.shape1.Height
    this.mLeft = this.Width - this.shape1.Width
5、表单Timer控件的Timer事件代码：
    thisform.shape1.top = INT(thisform.mTop * RAND())
    thisform.shape1.left = INT(thisform.mLeft * RAND())

知道了，谢谢