Public Class Form1

? ? Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
? ? ? ? Label1.Font = New Font("楷體", 28)
? ? ? ? Label1.Text = "左移，左移"
? ? ? ? Timer1.Interval = 100
? ? ? ? Timer1.Enabled = True
? ? End Sub

? ? Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
? ? ? ? Dim myPoint As Point
? ? ? ? myPoint = Label1.Location ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? '獲取標簽當前位置
? ? ? ? Label1.Location = New Point(myPoint.X - 20, myPoint.Y) ? ? ?'左移

? ? ? ? If Label1.Location.X + Label1.Width > 0 Then ? ? ? ? ? ? ? ?'當標簽的右邊線還在窗體上
? ? ? ? ? ? Label1.Location = New Point(myPoint.X - 20, myPoint.Y) ?'左移
? ? ? ? Else ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?'否則
? ? ? ? ? ? myPoint = New Point(Me.Width, myPoint.Y) ? ? ? ? ? ? ? ?'右側(cè)重新移入
? ? ? ? ? ? Label1.Location = myPoint
? ? ? ? End If
? ? End Sub
End Class
?

總結(jié)

以上是生活随笔為你收集整理的VB2010实例(2) _滚动字幕的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。