Question

在vfp的表单中编写一个代码，使一段文字进行左右反复运动

Answer 1

'先定义全局变量

public fx

'载入时定义方向

fx=1

'然后用定时器

with thisform.label1

if fx=1
'左到右，反向就是所有的+变－
.left=.left+1
if .left<=thisform.Width '超过表单长度，方向变为从左向右
.left=thisform.Width
fx=0 
ENDIF 
else
'右到左，反向就是所有的-变+
.left=.left-1
if .left<=0 '小于0，恢复从左向右 
fx=1 
ENDIF 
End if

End With