vb.net设计跑马灯 vb走马灯

用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走马灯
URL分享:http://pwwzsj.com/article/dogogsi.html