vb 如何让字幕从右到左循环出现求代码
2个回答
展开全部
添加一个timer,一简纤个label
代码档团如下:
Private Sub Form_Load()
Label1.Left = Me.Width
Timer1.Enabled = True
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
If Label1.Left <行咐橘= 0 - Len(Label1.Caption) Then
Label1.Left = Me.Width
Else
Label1.Left = Label1.Left - 100
End If
End Sub
代码档团如下:
Private Sub Form_Load()
Label1.Left = Me.Width
Timer1.Enabled = True
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
If Label1.Left <行咐橘= 0 - Len(Label1.Caption) Then
Label1.Left = Me.Width
Else
Label1.Left = Label1.Left - 100
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询