VB.Net跑马灯的实例
效果图：
代码如下：
乐博网lob.cn提示：调试环境为 vs2005 + windows2003 / windows2008 / xp / vista + .NET Framework 2.0
Public Class Form1
Dim x, y, k As Integer '跑马灯坐标
Dim flag As Boolean = True '跑马灯方向朝左
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 150 : y = 150
lblMsg.Location = New Point(x, y) ' 设定lblMsg控件的起始位置
lblMsg.BackColor = Color.FloralWhite '设定lblMsg控件的背景色
lblMsg.AutoSize = True ' 设定此控件能依数据调整大小
lblMsg.Font = New System.Drawing.Font("标楷体", 20, FontStyle.Bold)
' 设定跑马灯控件内的文字为标楷体、大小为20、粗体字
lblMsg.Text = "乐博网lob.cn" '设定跑马灯所显示的文字
Timer1.Interval = 10 '设定定时器周期为10/1000=0.01秒
Timer1.Enabled = True ' 起动定时器
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lblLocation.Text = "跑马灯'位置：" & lblMsg.Left
If flag = True Then ' 左移
x -= 1
lblMsg.Location = New Point(x, y)
lblDirection.Text = "目前方向 : 往左移"
If (Integer.Parse(lblMsg.Left) <= 0) Then
flag = False
End If
Else
x += 1
lblMsg.Location = New Point(x, y)
lblDirection.Text = "目前方向 : 往右移 "
If (Integer.Parse(lblMsg.Left) + Integer.Parse(lblMsg.Width) >= Integer.Parse(Me.Width)) Then
flag = True '左移
End If
End If
End Sub
End Class
| 
相关文章：（只显示最新16条）