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走马灯
文章源于:http://scyanting.com/article/dogogsi.html