Vb设计一个滚动字幕程序

要求：用一个时钟控制字幕滚动速度，用一个标签放置滚动字幕。字幕是Windows2000 急求编写代码。谢谢大家

推荐答案推荐于2017-12-16

'在窗体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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/WX7zXtWztWBeeWjv7vt.html

其他回答

第1个回答 2011-12-13

不会啊

相似回答

vb 滚动字幕答：Option1.Value = True Option1.Caption = "方式一"Option2.Caption = "方式二"Timer1.Enabled = True Timer1.Interval = 100 Text1.Text = "利用时钟和滚动条设计一个字幕滚动程序，并且可以控制滚动的快慢。"Label1.Caption = Text1.Text & Space(Label1.Width \ 96)End Sub Private Sub H...

用VB编写简单的程序,实现字体的上下滚动答：在窗体上键timer控件一个，label一个复制以下代码：label用来写上你需要的字幕 Option Explicit Private Sub Form_Load()Timer1.Interval = 100 Label1.Top = Me.ScaleHeight End Sub Private Sub Timer1_Timer()Label1.Move Label1.Left, Label1.Top - 50 If Label1.Top + Label1.Height < 0...

在vb中,利用时钟和滚动条设计一个字幕滚动程序,并且滚动条可以控制字幕...答：Private Sub Form_Load() With Label1 .AutoSize = True .Caption = "字幕滚动" .FontSize = 16 .ForeColor = vbRed End With With Timer1 .Enabled = True .Interval = 100 End With With HScroll1 .Min = 0 .Max = Me.ScaleWidth End Wit...

急!求vb制作滚动字幕代码答：楼上的方法是对的啊。如果想加入一个滚动条来调节速度。就要把楼上的50设成变量。然后和滚动条结合起来！代码如下：Dim n As Integer Private Sub Form_Load()n = 50 Timer1.Interval = 100 HScroll1.Max = 10 HScroll1.Min = 1 End Sub Private Sub HScroll1_Change()Select Case HScroll...

急求vb高手解答,设计一个能控制速度的滚动字幕程序答：不给分就太不对了，这里是简单的演示，给你一个思路。按照图片上的布局摆放控件，命名在左下角。然后把上面的代码复制粘贴就OK了源码：Option Explicit Dim str As String Private Sub cmdClose_Click()End End Sub Private Sub cmdStart_Click()str = Text1.Text Timer1.Enabled = True Text1....

用VB设计一个字幕推出程序,标签的字号在定时器的控件下每个时间间隔放大...答：Private Sub Form_Load()Label1.Left = Form1.Width / 2 - Label1.Width / 2 HScroll1.Min = 100 HScroll1.Max = 500 Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub HScroll1_Change()Timer1.Interval = HScroll1.Value End Sub Private Sub Timer1_Timer()Label...

1. 设计如下图所示的界面实现字幕从上到下进行滚动,“欢迎使用VB”是...答：设计：（图片你自己搞）代码：Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 MoveLabel End Sub Sub MoveLabel()'以下 2 个 -400 是实验得出的数据 '目的是为了 Label 飞出到飞入时看上去衔接一些 If Label1....

求利用VB制作从上往下的滚动字幕答：先在窗体里放一个Label，一个Timer Option Explicit Private Sub Form_Load()Timer1.Interval = 70 End Sub Private Sub Timer1_Timer()If Label1.Top > Me.Height Then Label1.Top = 0 End If Label1.Top = Label1.Top + 100 End Sub ...

VB 滚动字幕程序答：这个只要使用定时器修改文本框的坐标即可。

大家正在搜

pr怎么设置滚动字幕设计的一般程序是什么滚动字幕 pr滚动字幕从下往上 pr滚动字幕怎么停在中间 pr滚动字幕太快电影滚动字幕怎么做多道程序设计多道程序设计是指