Question

vfp动态表单 标签从左向右移动 求代码

Answer 1

给你一个从左向右的跑马灯：
表单的init事件：
public labelleft
labelleft=-thisform.label1.width
thisform.label1.left=labelleft &&表单启动标签处于最左边

在表单中添加一个Timer控件，对标签label1从左向右移动：
在Timer控件的timer代码中输入以下代码：
thisform.label1.left=labelleft
labelleft=labelleft+1
if labelleft>thisform.width
labelleft=-thisform.label1.width &&移出表单重新返回最左边
endif

Timer控件的interval属控制移动速度，值越小移动越快。

Answer 2

在表单中添加一个Timer1控件，假如标签对象是label1

1\在表单init事件中输入下列代码：
publ n
n=1
w=thisform.width &&宽度

2\在Timer1控件的interval属性值设定为200（0.2秒）
3\timer事件中代码：
thisform.label1.left=n
n=n+1
if n>w
n=0
endif
这样就行了

Answer 3

首先添加一个时钟控件（timer）到表单中，然后将timer控件的interval属性改为200（单位毫秒，1000就表示1秒刷新一次），最后双击timer控件，在timer事件中输入如下代码：
if thisform.label1.left+thisform.label1.width>=0
thisform.label1.left=thisform.label1.left-5
else
thisform.label1.left=thisform.width
endif

追问

你这个是从又到左移动啊 我需要从左到右移动的

追答

if thisform.label1.left<=thisform.width
thisform.label1.left=thisform.label1.left+5
else
thisform.label1.left=0-thisform.label.width
endif