如何使用滚动条控件

首先我们来看下效果吧

滚动 水平或垂直的 滚动条  字体的大小和颜色会随之改变

主要用到的控件有

HScrollBar 和 VScrollBar

 

我们再来看下HScrollBar的一些属性设置

在这个例子中他是控制字体大小的

我们将 Value 设置为50

TabIndex 设置为2

SmallChange 设置为1

Maxmum 设置为 100

Minmum 为2

LargeChange 设置为 10

关于这些属性的含义

大家 拽个 HScrollBar控件  看下就 知道啦

我们继续 来看下HScrollBar 的事件代码

 

 ------说明

Public NotInheritable Class Font
          Inherits System.MarshalByRefObject
     成员属于: System.Drawing

摘要:
 定义特定的文本格式，包括字体、字号和字形属性。无法继承此类。  

    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        Label1.Font = New Font(Label1.Font.FontFamily, HScrollBar1.Value)
    End Sub

再来看下构造函数的说明

Public Sub New(ByVal familyName As String, ByVal emSize As Single)
     成员属于: System.Drawing.Font

摘要:
 使用指定的大小初始化新的 System.Drawing.Font 对象。将单位设置为 GraphicsUnit.Point，并将样式设置为 FontStyle.Regular。  

参数:
familyName: 新 System.Drawing.Font 对象的 System.Drawing.FontFamily 对象的字符串表示形式。 
emSize: 新字体的全身大小（以磅值为单位）。 

OK

我们再来看下VScrollBar

在这里我们用他来设置 文字的颜色

我们将 Value 设置为0

TabIndex 设置为3

SmallChange 设置为1

Maxmum 设置为 3

Minmum 为0

LargeChange 设置为 1

再来看下 事件代码

    Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
        Select Case VScrollBar1.Value
            Case 1
                Label1.ForeColor = Color.Red
            Case 2
                Label1.ForeColor = Color.Yellow
            Case 3
                Label1.ForeColor = Color.Green
        End Select
    End Sub

方法

Public Property Value() As Integer
     成员属于: System.Windows.Forms.ScrollBar

摘要:
 获取或设置表示滚动框在滚动条控件中的当前位置的数值。  

方法

Public Overridable Property ForeColor() As System.Drawing.Color
     成员属于: System.Windows.Forms.Control

摘要:
 获取或设置控件的前景色。  

使用它 获取Value值 再用 Select Case 语句 来更改Label的颜色

就是这样的