正确的答案是
thisformlabel1left=thisformlabel1left-1
if thisformlabel1left+thisformlabel1width=0
thisformlabel1left=thisformwidth
endif
left 是属性,是标签左边到达窗体左边的距离,这个距离自减,就会让字体自动向左滚动。向有滚动就要+1,当字体滚动到窗体外的时候,从右边再次进来,形成循环。当然还要使用空间timer才可以实现的。在表单中加一个计时器控件Timer1,设置它的Interval属性为1000(即一秒),再在表单中加入一个text控件text1,可以设置它的属性enabled=f不可修改,然后在Timer1的Timer方法程序中写语句thisformtext1value=datetime()就可以了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)