VB初学习者关于字幕滚动

ILOVE_NET 2005-09-13 11:49:13

由于公司最近有个东西需要vb来做,作为初学者;这里想问各位前辈一个关于

关于字幕滚动的问题；

我知道可以用timer去定时移动Lable的位置实现字幕滚动,不过好象效果一般,
想问是否有这方面比较理想或好用的控件使用;可以实现垂直方向和水平方向的滚动的
谢谢拉;大家拉

...全文

236 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

fredlin 2005-09-14

打赏
举报

留个email. 给你控件

northwolves 2005-09-14

打赏
举报

'首先建立一个窗体，在其上放置两个TIMER,一个按钮、一个文本框。将文本框的MultiLine属性设为True，ScrollBars属性设为3-Both。
'然后输入以下代码:
Const EM_LINESCROLL = &HB6
Private Declare Function SendMessage Lib "User32" Alias _
"SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Integer, _
ByVal wParam As Integer, _
ByVal lParam As Long) As Long

Private Sub Form_Load()
Dim intLineIndex As Integer, intWordIndex As Integer

'Initialize Text1.
Text1.Font = "Courier New"
Text1.Text = ""
For intLineIndex = 1 To 50 'Add 25 lines of text.
Text1.Text = Text1.Text & "Line" & Str$(intLineIndex)
For intWordIndex = 1 To 30 'Make each line 12 words
'long.
Text1.Text = Text1.Text & " Word" & Str$(intWordIndex)
Next intWordIndex
Text1.Text = Text1.Text & vbCrLf
Next intLineIndex
Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 1000
Timer2.Interval = 1000
End Sub

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
Timer2.Enabled = Not Timer2.Enabled
End Sub

Private Sub Timer1_Timer()
SendMessage Text1.hWnd, EM_LINESCROLL, 0, 3
End Sub

Private Sub Timer2_Timer()
SendMessage Text1.hWnd, EM_LINESCROLL, 3, 0&
End Sub

用RICHTEXTBOX 效果会更好一些.

SmartFox365 2005-09-14