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