[求助]如何能让标签文本动起来 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何能让标签文本动起来

共有3391人关注过本帖树形打印复制链接主题：[求助]如何能让标签文本动起来

liujywwy

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

[求助]如何能让标签文本动起来 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/12/19 14:24:00 [只看该作者]

Dim str As String = lbl.Text

lbl.Text =str.SubString(1,str.length-1)+str(0)

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/19 14:24:00 [只看该作者]

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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：998 积分：6656 威望：0 精华：0 注册：2014/10/20 11:06:00

Post By：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

主题：[求助]如何能让标签文本动起来