本人vfp菜鸟，有个问题想请教诸位vfp高手：

 

if thisform.label1.caption!=time()
    thisform.label1.caption=time()
endif
if thisform.label1.left>thisform.width
    thisform.label1.left=0
else
    thisform.label1.left=thisform.label1.left+10
endif

以上的代码只能让标签始终从左往右移动，怎样改动才能让标签在表单中来回移动？

我是用了 2个 时间控件  分别控制 标签 向左 还是向右走动
当 标签向右走到 头是 关闭第一个 时间控件 打开第二个 时间控件 让标签向回走

&& 先判断往哪边移动，再判断是否到边
public ww
ww=.T.
&& 上面代码加在表单的init里，下面的加在timer中
lab_left = 'thisform.label1.left'
&lab_left = 0 - thisform.label1.width

if  ww =.T. and &lab_left < thisform.width               && 从左向右
    &lab_left = &lab_left + 10
else
    ww=.F.
    &lab_left = &lab_left - 10
    if &lab_left = 0 - thisform.label1.width  
       ww=.T.   
    endif
endif

三楼太牛了。
我想问下二楼，怎样做才能关掉第一个时间控件，开启第二个时间控件？

this.interval=0或 thisform.timer1.interval=0

这边有点问题。
&& 先判断往哪边移动，再判断是否到边
public ww，lab_left
ww=.T.
lab_left = 'thisform.label1.left'
&lab_left = 0 - thisform.label1.width

&& 上面代码加在标签的init里，下面的加在timer中
。。。。

thisform.label1.caption=time()
thisform.label1.left=thisform.label1.left+10*n
If thisform.label1.Left+thisform.label1.width>=thisform.width
  n=-1
else
  if thisform.label1.left<=0
    n=1
  endif
endif

n在表单中定义为全局变量，其初始值为1

代码非常清晰，学习

[quote][bo][un]Tiger5392[/un] 在 2008-10-14 10:59 的发言：[/bo]

受益匪浅

SET CURSOR off
x1=this.Left
x2=thisform.Width
DO while .t.
t=IIF(this.Left > x1,"x2-x1 to x1 step -1","x1 to x2-x1 step 1")
FOR i=&t
    this.left=i
    wait"" timeout 0.1
NEXT
ENDDO