以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  控制文字滚动的范围  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32372)
--  作者：dycjj
--  发布时间：2013/4/30 23:45:00
--  控制文字滚动的范围

我先弄了一个标签

 

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Welcome")
lbl.Text = "今天是" & Date.Today() & ",本公司欢迎您!"

 

然后有个哥们给我在窗口计时器提供了一段代码，用以滚动文字，

 

e.Form.TimerEnabled = True
Dim lab1 As WinForm.Label = e.Form.Controls("Welcome")
If lab1.Width + lab1.Left = 0 Then
    lab1.left = e.Form.Width
Else
    lab1.left = lab1.left -6
End If

 

可现在的问题是，这个滚动的文字一直从左走，最后走得没影了，我的意思是把它控制在一定的范围内，从左边进去，再从右边出来，这样才是理啊，可怎么弄呢，再麻烦高手们一下，先谢谢啦
--  作者：程兴刚
--  发布时间：2013/5/1 0:12:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目19.table
--  作者：dycjj
--  发布时间：2013/5/1 10:55:00
--  

程总，谢谢你了，真想请你吃饭
--  作者：llh0824
--  发布时间：2017/2/8 15:11:00
--  
请教一下，如何等整句全部从左边消失，再从右边出现，如此循环
--  作者：有点色
--  发布时间：2017/2/8 15:17:00
--  
以下是引用llh0824在2017/2/8 15:11:00的发言：
请教一下，如何等整句全部从左边消失，再从右边出现，如此循环

 

Timertick事件


Dim lab1 As WinForm.Label = e.Form.Controls("Welcome")
If lab1.Width + lab1.Left <= 0 Then
    lab1.left = e.Form.Width
Else
    lab1.left = lab1.left -6
End If