Question

谁有vb做的滚动字幕的程序代码啊，急用呀，谢谢了

谁有vb做的滚动字幕的程序代码啊，急用呀，谢谢了

Answer 1

Public Sub ScrollCaption(ByVal Sender As Object, ByVal e As System.EventArgs)
Dim frmExamples As Form
Dim Length As Integer

If Sender.Tag Is Nothing Then
frmExamples = New Form()
Sender.Tag = frmExamples
frmExamples.Text = "Hello World" & Space(8)
frmExamples.ShowDialog()
Else
frmExamples = CType(Sender.Tag, Form)
End If

Length = frmExamples.Text.Length
frmExamples.Text = frmExamples.Text.Substring(1, Length - 1) & frmExamples.Text.Chars(0)

End Sub

引导用代码
Dim timer As New Timer
AddHandler timer.Tick, AddressOf ScrollCaption
timer.Interval = 100
timer.Enabled = True

测试于2008, VB.net