VB 编一上下滚动的字幕程序，利用滚动条控制标签动的速度 就是，给点分也好有动力呀这是一个简单示例Option ExplicitDim x，y As IntegerPrivate Sub Command1_Click()HScroll1.Max=1000HScroll1.Min=100HScroll1.SmallChange=50HScroll1.LargeChange=100HScroll1.Value=100y=Picture1.Heightx=100Timer1.Enabled=TrueEnd SubPrivate Sub HScroll1_Change()Timer1.Interval=HScroll1.ValueEnd SubPrivate Sub Timer1_Timer()Picture1.Clsy=y-100'判断是否到顶头，若到头则返回底端If y'定义输出位置Picture1.PSet(x，y)Picture1.Print\"滚动字幕1Picture1.PSet(x+100，y+200)Picture1.Print\"滚动字幕2Picture1.PSet(x+200，y+400)Picture1.Print\"滚动字幕3End Sub
vb编程 字幕移动 可以通过滚动条调节滚动速度 复选框控制滚动方向 做起来要写很多代码如果有100分就写
在vb中，利用时钟和滚动条设计一个字幕滚动程序，并且滚动条可以控制字幕的位置。 Private Sub Form_Load()With Label1.AutoSize=True.Caption=\"字幕滚动\".FontSize=16.ForeColor=vbRedEnd WithWith Timer1.Enabled=True。
