Question

vb 如何让字幕从右到左循环出现求代码

Answer 1

添加一个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

Answer 2

要简单移动可以用Label，但是效果不好，一顿一顿的，
如果要平滑移动，那你得用api函数调用，使用内存拷贝的方式，但是要注意内存泄露的问题，很麻烦，上网上查！