如何使用滚动条控件

首先我们来看下效果吧

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

主要用到的控件有

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的颜色

就是这样的

转载于:https://www.cnblogs.com/zbqy/archive/2007/02/04/639283.html