vb入门——设置值的控件：TrackBar的使用
             
TrackBar 控件表示一个标准的 Windows 跟踪条，在Windows 应用程序中一般用于可视化调整数字设置，最常见的就是Windows自带的音量调整，如下图一所示：
TrackBar 控件在vb工具箱中如图所示
它包括两个部分：滑块部分和刻度尺部分(可以参看图一)。滑块是可调整的部分，让用户拖
动调整设置的，其位置与Value属性相对应；刻度尺是按设置的规则间隔(使用TickFrequency来调整)的视图指示符。
一、TrackBar 控件的主要属性和方法
1、Value 属性：指示滑块的位置，默认是0
2、Minimum 和 Maximum 属性：指示TrackBar(跟踪条)使用的范围的下限和上限，默认Minimum=0，Maximum=10。注意：如果 minValue 参数大于 maxValue 参数，则 maxValue 会设置为等于 minValue。
3、SetRange 方法：设置 TrackBar 的最小值和最大值。示例如下：TrackBar1.SetRange(0, 50)，设置Minimum=0，Maximum=10。
4、TickFrequency 属性：获取或设置一个值，该值指定控件上绘制的刻度之间的增量，默认值为 1。对于 Minimum 和 Maximum 之间有大量值的 TrackBar 而言，绘制出控件上所有值的刻度可能不切实际，例如，我们设置控件的范围是 100，向其中传入值 1 则会使控件绘制 100 个刻度，如下图二所示，就会导致刻度尺密密麻麻。
所以我们需要在代码中合理控制TickFrequency 属性。
5、SmallChange 属性：获取或设置当滑块短距离移动时对 Value 属性进行增减的值，即滑块响应按下键盘上的左箭头或者右箭头所移动的位置数。
6、LargeChange 属性：滑块响应按下Page、Up或者PageDown 键，或鼠标在跟踪条上的滑块任意一边单击所移动的位置数。
7、Orientation 属性：获取或设置一个值，该值指示跟踪条在水平方向还在垂直方向。当 Orientation 属性设置为 Orientation.Horizontal 时，控件为水平放置，滑块随 Value 的增大从左向右移动；当将 Orientation 属性设置为 Orientation.Vertical 时，控件为垂直放置，滑块随 Value 的增大从下向上移动。
8、TickStyle 属性：获取或设置一个值，该值指示如何显示跟踪条上的刻度线。控件的使用其枚举值
如下：
Both 刻度线位于控件的两边。
BottomRight(默认值) 刻度线位于水平控件的底部或垂直控件的右侧。
None 控件中没有刻度线。
TopLeft
9、AutoSize 属性：默认为True。需要注意的是，在vb中，TrackBar控件默认是无法调整它的高度的，如果要想调整它的高度，必须把AutoSize属性设置为False。
二、TrackBar控件的Scroll事件
TrackBar 控件中最重要的就是它的 Scroll 事件，它在通过鼠标或键盘移动滑块时发生。我们通常是使用它来实现对值的控制。
三、TrackBar控件的使用示例
在窗体上设置三个 TrackBar 、三个 Label控件、一个Panel控件。三个TrackBar 的背景分别设置为红、绿、蓝，Maximum都设置为255，TickFrequency设置为20，三个Label控件包含在Panel控件当中，设计的窗体如下图三所示：
现在在代码编辑器中添加如下代码：
1、建立一个获取并设置Panel背景值的过程showColorValueLabels
Private Sub showColorValueLabels()
label1.Text = "Red value is : " & trackBar1.Value.ToString()
label2.Text = "Green Value is : " & trackBar2.Value.ToString()
label3.Text = "Blue Value is : " & trackBar3.Value.ToString()
Panel1.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
End Sub
2、把该过程添加到窗体的New过程中，以便在启动窗体后即可初始化控件。如下图四所示：
3、响应TrackBar控件滑块的拖动事件
我们这里建立一个trackBar_Scroll过程，然后在它的Handles字句后面加上三个TrackBar控件的Scroll事件，代码如下所示：
Private Sub trackBar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll, TrackBar2.Scroll, TrackBar3.Scroll
showColorValueLabels()
End Sub
4、运行
运行时，初始化的窗体如下图五所示：
现在我们可以通过拖动对应背景的滑块来设置Panel控件的背景，如下图六所示：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。