1、在表单中添加一个标签(label)控件进来,将label控件的caption值改成你的欢迎语句,并将Autosize值改为.T.
2、再添加一个时钟(timer)控件到表单中,设置它的Interval值为200(刷新时间,单位毫秒,1000就是1秒),最后双击时钟控件,添加代码为:
if thisform.label1.left+thisform.label1.width>0
thisform.label1.left=thisform.label1.left-2
else
thisform.label1.left=thisform.width
endif
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)