Foxtable(狐表)用户栏目专家坐堂 → 控制文字滚动的范围


  共有4178人关注过本帖树形打印复制链接

主题:控制文字滚动的范围

帅哥哟,离线,有人找我吗?
dycjj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1292 威望:0 精华:0 注册:2011/8/17 21:12:00
控制文字滚动的范围  发帖心情 Post By: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

 

可现在的问题是,这个滚动的文字一直从左走,最后走得没影了,我的意思是把它控制在一定的范围内,从左边进去,再从右边出来,这样才是理啊,可怎么弄呢,再麻烦高手们一下,先谢谢啦


 回到顶部
帅哥哟,离线,有人找我吗?
dycjj
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1292 威望:0 精华:0 注册:2011/8/17 21:12:00
  发帖心情 Post By:2013/5/1 10:55:00 [显示全部帖子]

程总,谢谢你了,真想请你吃饭


 回到顶部