用vb制作走马灯 窗体代码全过程

1、使用label(标签）来模拟灯，只要修改label背景就可以实现跑马灯效果。

创新互联是一家专业提供漳县企业网站建设,专注与网站制作、成都做网站、HTML5、小程序制作等业务。10年已为漳县众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。

2、工具vb6

3、示例：

Private WithEvents NewTimer As Timer

Private Sub Form_Load()

Dim i As Integer

For i = 1 To 10

Set NewLabel = Controls.Add("vb.label", "label"  i, Me)

NewLabel.Move i * 200, 100, 100, 100

NewLabel.BackColor = vbWhite

NewLabel.Visible = True

Next

Set NewTimer = Controls.Add("vb.timer", "Timer1", Me)

NewTimer.Interval = 200

NewTimer.Enabled = True

End Sub

Private Sub NewTimer_Timer()

Static i As Integer

i = i + 1

Me("label"  i).BackColor = vbRed

If i = 1 Then

If i = 1 Then i = 11

Me("label"  i - 1).BackColor = vbWhite

If i = 11 Then i = 1

End If

If i = 10 Then i = 0

End Sub

4、注意：复制以上代码到代码窗体，不要加任何控件，直接运行即可。

谁能完善一下这个VB走马灯代码？

其他没问题，Mid函数是以字符数为度量单位的，而你的bt返回的是字节数，所以当n大于你的字串字符数又小于字节数是就出错了。

Private Sub Timer1_Timer()

Dim a As Long

Label1.Left = Label1.Left - 速度

If Label1.Left = -TW * IIf(Asc(Mid(Strs, BT(n, 1, RL))) 0, 2, 1) Then

n = n + 1

If n = 1 Then Label1.Left = 60 Else Label1.Left = 0

If n Len(Strs) Then n = 1 '关键在这里

a = BT(m, 1, RL - n + 1)

Label1.Caption = Midv(Strs, n, a)

Do While m - a RL

Label1.Caption = Label1.Caption Strs

a = a + RL

Loop

Label1.Caption = Label1.Caption Midv(Strs, 1, m - a)

End If

Label1.ForeColor = Label1.ForeColor - 2 Mod HFFFFFF

End Sub

如何使用VB制作文字跑马灯

左右旋转是怎么样的？

如果你想要字从左边出来，跑到右边，到右边出去，再从左边出来的话，可以这样简单地做做，

用个定时器，间隔时间可设为10ms，初始为 可用 状态。

一个标签。

在定时器中写代码，

Private Sub Timer1_Timer()

Label1.Left = Label1.Left + 10

If Label1.Left Form1.Width Then Label1.Left = -Label1.Width

End Sub

如果你想让文字用别的方式跑，自己可以设置文字的显示位置和方向。

文字到达右边框的时候叫 label1.left 减数，则回头往左边跑，像左右在窗口中振荡一样。

修改定时器间隔时间和标签移动的步长，可以改变文字转跑的效果，自己调的试试。

网页名称：vb.net设计跑马灯 vb走马灯
网页链接：http://scyingshan.cn/article/dogogsi.html