首先我们来看下效果吧
滚动 水平或垂直的 滚动条 字体的大小和颜色会随之改变
主要用到的控件有
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的颜色
就是这样的