以文本方式查看主题

-  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=32366)

--  作者:dycjj
--  发布时间:2013/4/30 19:44:00
--  [讨论]能不能实现滚动的文字呢

比如我在主窗口设计一个"某某公司欢迎你!"的标签,要求字体从右到左滚动,

这样的校果看起来会来会更好一些,狐表能实现这们的功能吗.


--  作者:y2287958
--  发布时间:2013/4/30 19:44:00
--  
可以
--  作者:y2287958
--  发布时间:2013/4/30 19:48:00
--  
在窗体计时器中放以下代码试试
e.Form.TimerEnabled = True
Dim lab1 As WinForm.Label = e.Form.Controls("Label1")
If lab1.Width + lab1.Left = 0 Then
    lab1.left = e.Form.Width
Else
    lab1.left = lab1.left -1
End If

[此贴子已经被作者于2013-4-30 19:48:36编辑过]

--  作者:dycjj
--  发布时间:2013/4/30 19:48:00
--  
怎么做啊,教教我,大哥
--  作者:dycjj
--  发布时间:2013/4/30 20:17:00
--  

大哥,这段代码放在哪里啊

窗口计时器中只有启用和间隔这两个东东


--  作者:dycjj
--  发布时间:2013/4/30 22:40:00
--  

谢谢啊,大哥,终于清楚代码放哪了,可是有个问题,它是从右一直往左走,最后走得没影了,总得把它控制一个范围内啊,还是教教我吧,怎么把它控制在一个范围内.