今天让做一个左右往复移动的标签文本的表单。

那个大哥会做帮下忙！！

我就会写一直往左的

if thisform.label1.left<thisform.width

thisform.label1.left=thisform.label1.left+4

else

thisform.label1.left=_thisform.label1.width

endif

那个能帮忙写个往复运动的啊？？？

那你就用RIGHT试一下往右

if thisform.leftmove=.f. &&&添加表单属性leftmove=.f.
if thisform.label1.left<thisform.width
thisform.label1.left=thisform.label1.left+10
else
thisform.label1.left=thisform.width
thisform.leftmove=.t.
endif
endif

if thisform.leftmove=.t.
if thisform.label1.left+thisform.label1.width<0
thisform.label1.left=0-thisform.label1.width
thisform.leftmove=.f.
else
thisform.label1.left=thisform.label1.left-10
endif
endif

楼上的朋友很感谢你，但好像还是不对。
我像要的只是计时器timer的事件。
没你写的那复杂吧！！！！
呵呵！！！不过还是很感谢你的热心帮忙的！！！！

就是在timer的事件中

哈,可能是新手,

左右往复运动不难，但要描述清楚。

你的问题应该是做一个表单，添加一个标签，要使标签先往左移动，遇到表单的左边框就向右边移动，再遇到表单的右边就折回往左边移动，如此往复。

(1)先在FORM1.INIT()对OK定义全局变量
PUBLIC OK

(2)然后在TIMER1.TIMER()里写上如下代码
IF THISFORM.LABEL1.LEFT<=0
OK=.F.
ENDIF
IF THISFORM.LABEL1.LEFT+THISFORM.LABEL1.WIDTH>=THISFORM.WIDTH
OK=.T.
ENDIF
THISFORM.LABEL1.LEFT=THISFORM.LABEL1.LEFT+IIF(OK,-4,4)

谢谢了啊！！！！我终于做出来了，楼上的大哥们，多谢你们了啊！！
我是第一次学VF，真的不懂啊！！！！多谢你们耐心教我啊！！！！！

Tiger5392,你的代码总是这么简练。
我是比照一本大专教材做的，还是挺著名的呢！
看你的帖子就是长学问。

呵！！楼上的朋友你也很厉害的啊！！就是我用的VF是8.0版的识别不了leftmove


还有啊！！我还想再问你们一个SQL语句的题目。

题目：将职称为“教授”的教师新工资一项设置为原工资的120％，其他教师的新工资与原工资相等。
（用到的表为“教师”，表中有4项“姓名”，“职称”，“原工资”，“新工资”新工资中没有输入数据。要用SQL语句来编写！）

真是麻烦你们了！！！