VB2005(滚动类控件)

 

滚动类控件主要包括HScrollBar(水平滚动条)、VScrollBar(垂直滚动条)、ProgressBar（进度条）和TraceBar（跟踪条）等。

1、HScrollBar和VScrollBar控件

滚动条的主要属性和事件

主要属性：

• Value属性：Value属性的值的大小决定了滚动条中滑块的位置，反过来滑块的位置也影响Value值的大小。在程序中使用该属性的语法如下：
  Object.Value[=number]
• Minimum（最小值）属性：将滑块移动条的最左端或最上端时，滚动条的Value属性值达到最小。Value属性的最小值由Minimum属性决定。
• Maximum（最大值）属性：将滑块移动条的最右端或最下端时，滚动条的Value属性值达到最大。Value属性的最大值由Maximum属性决定。
• SmallChange（小变化）属性：当用鼠标在滚动条端点的某一个箭头上单击时，Value属性值就相应的增加或减少。SmallChange属性的设置值是用户没单击一次鼠标，Value属性增加或减少的最小量。
• LargeChange（大变化）属性：当鼠标在滚动条端点与滑块之间的任意位置单击，Value属性值就相应大幅度增加或减少。LargeChange属性的设置值是用户每单击一次鼠标，Value属性值增加或减少的最大量。

主要事件：

滚动条的主要事件有ValueChanged和Scroll，通常都是通过捕捉这两个事件来对滚动条的动作进行相应的动作。

Public Class Form7
    Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged
        Dim mysize As Integer
        mysize = Me.HScrollBar1.Value
        Me.TextBox1.Font = New System.Drawing.Font("宋体", mysize)
    End Sub
End Class

用户可以根据实际情况编写相应的应用程序。例如：用组合列表框作为曲目选择框，用水平滚动条作为调节音量的开关。

2、ProgressBar控件

ProgressBar（进度条）控件使用举行方块从左到右显示某一进程的进度情况。

进度条常见的属性是Maximum、Minimum和Value。Maximum用于读取或设置进度条的最大计数值，Minimum用于读取或设置进度条的最小计数值，Value用于读取或设置进度条的当前计数值。

进度条的常见事件有Click,MouseDown和MouseMove。

Public Class Form8

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Me.ProgressBar1.Value = 0
        For i = 0 To 100
            Me.ProgressBar1.Value = i
            Me.Label1.Text = i.ToString + "/100"
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.ProgressBar1.Value = 0
    End Sub
End Class

3、TraceBar控件

TraceBar（跟踪条）控件可用于制作仿真滑竿。例如许多视频播放软件中表示进程的滑竿，就可用TraceBar控件产生。

TraceBar的常见属性

属性	功能
LargeChange	设置按下PageUp或PageDown键或单击滑竿位置的两侧时滑竿移动的点数
SmallChange	设置按下左（右）箭头键时滑竿移动的点数
Maximum	读取或设置最后点的位置值
Minimum	读取或设置第一点的位置值
Orientation	设置滑竿是水平显示还是垂直显示
TickStyle	设置本控件上点号的样式。可以在滑竿上方显示，也可以在下方显示，或者同时在上下方显示，也可以上下方都不显示
TickFrequency	设置本控件上显示的点号数
Value	读取或设置滑竿的当前值

Tracebar控件的常用事件有MouseDown,ValueChanged,Scroll。其中ValueChanged事件在滑竿移动时检测，Scroll事件可根据TraceBar控件中的变化连续操作其他控件。

Public Class Form9

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Me.ProgressBar1.Value = Me.TrackBar1.Value
        Me.Label1.Text = Me.ProgressBar1.Value.ToString + "/100"
    End Sub
End Class