Question

vb label标签中的字滚动

请问VB中
我添加了个label1控件，Timer1控件
我要label1中的文字从右到左移动该如何写代码
我要label标签不会走动 只是里面的文字在走动

Answer 1

假如你要显示的文字保存在str1中
那么在timer的timer事件中
Private Sub Timer1_Timer()
str1 = Mid(str1, 2) & Left(str1, 1)
Label1.Caption = str1
End Sub

Answer 2

'用Label可能会闪,可以使用PictureBox或TextBox代替.
Private Sub Form_Load()
Timer1.Interval = 10
Label1.Left = Me.ScaleWidth
Label1.Top = Me.ScaleHeight / 2
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 10
If Label1.Left + Label1.Width <= 0 Then Label1.Left = Me.ScaleWidth
End Sub

Answer 3

收藏一楼的