利用vb滚动条控制timer控件的速度

利用vb滚动条控制timer控件的速度
我觉得大概的思路是获取滚动条的位置，然后改变time控件的Interval 属性的值，这样就能调整快慢了。

VB滚动条(ScrollBar)怎么控制动画的速度
当滚动条在最左端时速度应该最小 即间隔时间最大）一个按钮，一个滚动条，一个时间控件 Private Sub Command1_Click()Timer1.Enabled = False'停止图片移动 End Sub Private Sub Form_Load()HScroll1.Min = 0'（HScroll1.Min 、HScroll1.Max 这两个属性决定了HScroll1.Value的范围）HScroll1....

VB 编一上下滚动的字幕程序,利用滚动条控制标签动的速度
Timer1.Enabled = True End Sub Private Sub HScroll1_Change()Timer1.Interval = HScroll1.Value End Sub Private Sub Timer1_Timer()Picture1.Cls y = y - 100 '判断是否到顶头，若到头则返回底端 If y < 0 Then y = Picture1.Height '定义输出位置 Picture1.PSet (x, y)Picture1....

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 hscroll1.value case 1 n =...

急求vb高手解答,设计一个能控制速度的滚动字幕程序
Timer1.Enabled = False End Sub Private Sub Option1_Click(Index As Integer)Select Case Index Case 0 Timer1.Interval = 500 Case 1 Timer1.Interval = 250 Case 2 Timer1.Interval = 50 End Select End Sub Private Sub Timer1_Timer()Text1.Text = Space(2) + Text1.Text If (Len(...

...一个程序实现字体的自动放大,并用垂直滚动条控制放大的速度...
程序如下：Private Sub Command1_Click()Timer1.Enabled = True End Sub Private Sub Form_Load()With VScroll1 .Max = 4000 .Min = 500 ' 快慢程度自己设定 End With Label1.FontSize = 8 '初始字体大小 Timer1.Enabled = False End Sub Private Sub Timer1_Timer()If Label1.FontSize >...

VB滚动条用法:表示时间有0到45分钟自动滚动的,
以下代码涉及的控件：一个横向滚动条HScroll1，一个定时器Timer1 Private Sub Form_Load()HScroll1.Min = 0 HScroll1.Max = 45 Timer1.Interval = 60000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()Static t As Integer t = t + 1 HScroll1.Value = t If t = 45 ...

急求!vb制作滚动字幕代码
加入一个时间控件：timer1.加入一个横向的滚动条：hscroll1.把：min属性设为2，max属性设为100，smallchange设为1。下面代码：Private Sub Command1_Click()Timer1.Enabled = True Timer1.Interval = 10 End Sub Private Sub Form_Load()Command1.Caption = "开始"Text1.BackColor = &H8000000F...

vb中如何使滚动条随一段时间滚动一段范围请举例
添加一个VScroll1垂直滚动条,一个timer空间 interval=5000(5秒)Private Sub Form_Load()VScroll1.Max = 4000 VScroll1.LargeChange = 300 End Sub Private Sub Timer1_Timer()VScroll1.Value = VScroll1.Value + 500 End Sub

VB 进度条控件控制
添加控件textbox一个,progressbar一个,按钮2个 ,timer一个,复制以下代码即可:Option Explicit Dim n As Integer Private Sub Command1_Click()Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Command2_Click()If Val(Text1) <= 0 Then Exit Sub Text1 = Val(Text1) - ...