以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  滚动间隔问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93589)
--  作者：douglas738888
--  发布时间：2016/12/1 23:05:00
--  滚动间隔问题

老师，下面代码在TIMETICK，滚动表列内容，如何让每段字符有间隔，现在是没有间隔的滚动

 

在AFTERLOAD里面没有固定字符代码，根据表的单列内容滚动（Label已绑定列）

 

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Word")
Dim n As Integer = len(lbl.text) - 1
lbl.Text = right(lbl.text,n) & left(lbl.text,1)

[此贴子已经被作者于2016/12/1 23:15:29编辑过]
--  作者：有点蓝
--  发布时间：2016/12/2 8:36:00
--  
给Label设置内容的时候，开头或者末尾加上适当的空格
--  作者：有点色
--  发布时间：2016/12/2 8:51:00
--  

改一下代码

 

Dim lbl As WinForm.Label
lbl = e.Form.Controls("label1")
Dim str As String = ""
For Each s As String In lbl.text
    If s <> " " Then
        str = str & s & " "
    End If
Next
Dim n As Integer = len(str) - 1
lbl.Text = right(str,n) & left(str,1)