vb滚动条如何设置(程序代码)

窗体上建立一个水平滚动条和窗体控件、timer控件,水平滚动条的值:Min为0,Max为1000,smallchang为100,largechange为200,窗体加载后,标签控件会在窗体内按照水平滚动条滑块的值作为时间间隔(单位毫秒)自左向右移动,每次移动300个单位,标签控件移动到窗体最右端后,程序能够将其设置为从窗体最左端重新开始移动
请各位大哥大姐帮帮忙,把这个程序代码给俺写一下吧,不胜感激!谢谢啦!另外,急需急需!!!!

如下图

1)设置滚动条的Max属性和Min属性。在上图分别设置为Max = 100, Min=0

2)设置滚动条的Value属性。这个值确定滑块的位置

据此,滚动条的设置代码为

Option Explicit

Private Sub Form_Load()
    With HScroll1
        .Min = 0
        .Max = 100
        .Value = 50
    End With
End Sub

温馨提示:内容为网友见解,仅供参考
第1个回答  2010-06-27
Private Sub Form_Load()
HScroll1.Value = 200 '定义初始值
Timer1.Interval = HScroll1.Value
End Sub

Private Sub Timer1_Timer()

If Label1.Left + Label1.Width < Form1.Width Then
Label1.Left = Label1.Left = 300
Else
Label1.Left = 0
End If
Timer1.Interval = HScroll1.Value
End Sub

你调试一下吧,我没VB给你调试,有问题留言
第2个回答  2010-06-27
Private Sub HScroll1_Change()
HScroll1.min = 0
HScroll1.max = 1000
HScroll1.SmallChange = 100
HScroll1.LargeChange = 200
Timer1.Interval = HScroll1.Value
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 300
If Label1.Left >= Me.Width Then Label1.Left = 0
End Sub本回答被提问者采纳

vb滚动条怎么设置呀
1、首先打开VB,然后在VB窗体上添加一个文本框,如图。2、然后点击这个添加的文本框,接着在右侧的一个窗口中,设置他的相关名称和数值,然后将文本内容清空。如图。3、紧接着在窗体上面,再添加一个水平滚动条,如图。4、然后单击这个水平滚动条,设置名称和数值,将Min设置为0,Max设置为100。largech...

vb 滚动条 怎么用
1、新建一个工程,调整好软件的界面大小。2、给界面里面添加一个图片。3、然后点击滚动条。画到界面里面,就像这样。这样界面就构建好了。4、接下来给图片空间添加图片,拉动右边的滚动条,找到picture。5、在picture右边的按钮给他添加图片。6、拉动滚动条,找到autoredraw,和autosize进行设置。7、在右...

VB怎么让文本框滚动条滚动
方法一:1、VB中让文本框滚动条滚动,设置文本框的属性值Mutiline属性为true;2、设置文本框的Scrollbars的属性为垂直滚动条或者水平滚动条;3、将文本框赋值后,当文本框的内容大于当前文本框显示内容时,文本框滚动条便会显示可用状态,这时点击滚动条两侧箭头可以使滚动条滑动,或者鼠标左键按住中间的滚...

vb 滚动字幕代码
加入一个命今按钮:command1.加入一个文本框:text1.加入一个时间控件:timer1.加入一个横向的滚动条:hscroll1.把:min属性设为2,max属性设为100,smallchange设为1。下面代码:Private Sub Command1_Click()Timer1.Enabled = True Timer1.Interval = 10 End Sub Private Sub Form_Load()Command...

VB怎么让文本框滚动条滚动
1、在VB中实现文本框滚动条的滚动,首先需要将文本框的Mutiline属性设置为true,允许文本框显示多行文本。2、接下来,设置文本框的Scrollbars属性,可以选择垂直滚动条或水平滚动条,以适应不同的滚动需求。3、当向文本框输入内容并超出当前显示范围时,滚动条会自动显示。用户可以通过点击滚动条两侧的箭头...

VB如何设置水平滚动条?
1、首先打开VB,然后在VB表单上添加一个文本框,如图所示。2、然后点击添加文本框,在右边的窗口中设置它的名称和值,然后清空文本。如图所示。3、在表单的正上方添加一个水平滚动条,如下所示。4、然后单击水平滚动条设置名称和值,并将Min设置为0,Max设置为100。设置“Largechange”为2,“Small...

VB如何设置水平滚动条?
1、首先打开VB,然后在VB表单上添加一个文本框,如图所示。2、然后点击添加文本框,在右边的窗口中设置它的名称和值,然后清空文本。如图所示。3、在表单的正上方添加一个水平滚动条,如下所示。4、然后单击水平滚动条设置名称和值,并将Min设置为0,Max设置为100。设置“Largechange”为2,“Small...

急!求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滚动条的代码
新建窗体,画个文本框和一个水平滚动条、两个标签,然后编写:Private Sub HScroll1_Change()Text1.Text = HScroll1.Value End Sub 这样,程序运行时,单击水平滚动条,文本框内就会显示相应的数字。程序如图

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 =...

相似回答