以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  滚动标签问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70377)
--  作者：utcxray
--  发布时间：2015/6/19 18:54:00
--  滚动标签问题
Dim Lb1 As WinForm.Label = e.Form.Controls("Label1")
If lb1.Top<0-lb1.height
    lb1.Top=lb1.height
End If
lb1.Top=lb1.Top-1

船体设时间间隔30毫秒，标签能滚起来，但效果到顶后不能循环，请指点下。
图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
--  作者：sloyy
--  发布时间：2015/6/20 1:23:00
--  
上例子,你是想到顶后从头再循环吗?
--  作者：大红袍
--  发布时间：2015/6/23 9:28:00
--  
Dim Lb1 As WinForm.Label = e.Form.Controls("Label1")
If lb1.Top<0-lb1.height
    lb1.Top=e.Form.height
End If
lb1.Top=lb1.Top-1
--  作者：utcxray
--  发布时间：2015/6/23 23:05:00
--  
谢谢！