以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何能让标签文本动起来  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61803)
--  作者：liujywwy
--  发布时间：2014/12/19 14:20:00
--  [求助]如何能让标签文本动起来

看帮助做的，现在希望（今天是" & Date.Today() & ",博达BUG综合管理系统欢迎您!"）能从左边进来右边出去然后再从左边进来。怎么弄呢？

afterload代码：

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Welcome")
lbl.Text = "今天是" & Date.Today() & ",博达BUG综合管理系统欢迎您!"


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20141219141934.png
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2014/12/19 14:24:00
--  
Dim str As String = lbl.Text 
lbl.Text =str.SubString(1,str.length-1)+str(0)
--  作者：有点甜
--  发布时间：2014/12/19 14:24:00
--  

http://www.foxtable.com/help/topics/1301.htm

 

 

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label1")
If lbl.left + lbl.Width < 0 Then
    lbl.left = e.Form.Width
Else
    lbl.left -= 10
End If
--  作者：jialihaha
--  发布时间：2014/12/19 14:56:00
--  
不断滚动：
Dim lbl As WinForm.Label
 
lbl = e.Form.Controls("Label1")
If lbl.left > e.Form.Width Then
    lbl.Left = -lbl.Width
Else
    lbl.left += 10
End If