回 帖 发 新 帖 刷新版面

主题:[跪求]如何让标签在表单中水平来回移动?

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

 一个计时器控件,一个标签

标签属性:Autosize:T

              Borderstyle:1

              Fontsize:28

计时器属性:Interval:100

                  enabled:T

下面是我写的代码:

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

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

回复列表 (共1个回复)

沙发

在表单中新建一个属性nCase,默认值设置为10

在TIMER的事件中代码应为:
if thisform.label1.caption!=time()
    thisform.label1.caption=time()
endif
if thisform.label1.left>=thisform.width
    thisform.nCase=-10
endif
if thisform.label1.left<=0
    thisform.nCase=10
endif
thisform.label1.left=thisform.label1.left+thisform.nCase

我来回复

您尚未登录,请登录后再回复。点此登录或注册