Vb滚动字幕程序代码 急

1、在窗体上画上计时器控件timer1

和

label控件label1.

2、设置timer1的enable属性为false，interval属性为500，即500毫秒执行一次

3、设置label1的autosize属性为true，表示label1根据caption属性的内容自动调整大小。

4、在代码窗口里，写出以下代码:

Dim

ChuShiWeiZhi

As

Integer'表示空闷label1的初始位置

Private

Sub

Command1_Click()

Timer1.Enabled

=

True'使计时控件工作

End

Sub

Private

Sub

Form_Load()'窗体加载时，记录label1的位置，并初始化label1的内容，注意vbCrLf表示换行

ChuShiWeiZhi

=

Label1.Top

Label1.Caption

=

"请"

&

vbCrLf

&

"采"

&

vbCrLf

&

"纳"

&

vbCrLf

&

"我"

&

vbCrLf

&

"的"樱亏激

&

vbCrLf

&

"答

"

&

vbCrLf

&

"案"

&

vbCrLf

&

"已"

&

vbCrLf

&

"通"

&

vbCrLf

&

"过"

&

vbCrLf

&

"测"

&

vbCrLf

&

"试"

End

Sub

Private

Sub

Timer1_Timer()

Label1.Top

=

Label1.Top

-

200'没执行一次使label1的top减少200缇，200可以修改为任意你要的值

If

Label1.Top

+

Label1.Height

<

0

Then'当label1完全脊袜移出窗体时，令它top再次变为初始的值，实现循环

Label1.Top

=

ChuShiWeiZhi

End

If

End

Sub

通过测试，请采纳答案，我是vb编程团队成员，很高兴为您服务!

方法如下：

添加一个Label标签，并设置背景为透明，放置于窗体最右边，埋厅升用于显示字幕；

添加一个Timer控件，间隔属性自行设置，用于制作弯老滚动效果；

在Timer事件中，添加代码，使Label标签的left属性，每次减少100，当小于伏型0时，回到初始值。

这样，就制作出了字幕滚动效果。

'在窗体Form1上面放上一个Picture1，picture1上面放上一李败族个Label1，在窗体上再放上一个计时器Timer1

Option Explicit

Private Sub Form_Load()

Label1.Caption = "Windows2000"

Timer1.Enabled = True

Timer1.Interval = 10 '调整这个值可控制哪弊标签label1的移动速度

Picture1.ScaleMode = 3

Me.ScaleMode = 3

'枯扮Picture1.Picture = LoadPicture("D:\bliss.jpg")

End Sub

Private Sub Timer1_Timer()

If Label1.Top <= 0 - Label1.Top Then Label1.Top = Picture1.ScaleHeight

Label1.Top = Label1.Top - 1

End Sub

---