VFP中,如何制作左右来回滚动的字幕

2025-02-25 13:10:36
推荐回答(2个)
回答1:

回答2:

timer代码如下:(向左走)
IF thisform.label2.Left<0-thisform.label2.Width
thisform.label2.Left=thisform.label2.Width+2
thisform.label2.Left=thisform.label2.Left+600
ELSE
thisform.label2.Left=thisform.label2.Left-1
ENDIF

timer
向右的应用如下修改

if thisform.label2.Left>500
thisform.label2.Left=thisform.label2.Left-600
else
thisform.label2.Left=thisform.label2.Left+1
endif