做了个小程序，表单Init：
public b
b=80
表单Activate：
thisform.FillStyle= 0
THISFORM.FILLCOLOR = RGB(128,128,255)
thisform.Box(0,220,200,320)
增加一个Label1
left=90；top=260；BackColor=RGB(128,128,255)；Caption='我向右移动'
增加一个计时器
Interval=1000
Timer:
b=b+10（或者b=b+rand()*20）
thisform.Box(0,220,200,320)
thisform.label1.Left=b
标签在向右移动时，前面会多一块灰色，这个有什么办法消除？

[此贴子已经被作者于2018-9-3 15:02编辑过]

只有
thisform.FillStyle= 1
好像没有别的方法

thisform.FillStyle= 1就出不来需要的效果了，我想让那几个字在蓝色的方块上移动。

[此贴子已经被作者于2018-9-3 16:59编辑过]

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

DEFINE CLASS form1 as Form
    ADD OBJECT Shape1 as Shape WITH top=20,left=20,width=200,height=200,backcolor=RGB(128,128,255)
    ADD OBJECT label1 as label WITH top=100,left=10,backcolor=RGB(128,128,255),autosize=.T.,caption="我向右移动"
    ADD OBJECT timer1 as timer WITH  Interval=500
   
    PROCEDURE timer1.timer
        thisform.label1.left = thisform.label1.left + 10
        IF thisform.label1.left > thisform.Width
            thisform.label1.left = -thisform.label1.Width
        ENDIF
    ENDPROC
ENDDEFINE

真的可以，谢谢版主

[此贴子已经被作者于2018-9-4 14:34编辑过]