Visual Basic.NET程序设计教程 教学课件 作者 兰顺碧 第六章.pptVIP

* * * * * * * * * * Scrollbar 通常附在窗体上协助观察数据或确定位置，也可用作数据输入工具，用来提供某一范围内的数值供用户选择 滚动条 ProgressBar 用来指示任务处理的进度 不是VB的标准控件 进度条 6.3 滚动条、进度条 6.3 滚动条、进度条 默认值：100 6.3 滚动条、进度条 本章目录 表6.20 进度条的常用属性 属性 功能说明 Maximum 进度条可变化的最大值 Minimum 进度条可变化的最小值 Step 调用 PerformStep 方法时候增长的步长 Value 进度条当前的位置值 表6.21 ProgressBar的常用方法 方法 功能说明 PerformStep 按照 Step 属性的数量递增进度栏的当前位置 Increment 按指定的数量增加进度栏的当前位置 教材书错误：滚动条的常用事件如表6.21所示： 6.3 滚动条和进度条 例,编写一个持程序,通过调节红、绿、蓝三个水平滚动条的值来合成一种颜色，同时显示三种颜色的变化值。程序运行界面如下图所示： 任务分析： 1、三个水平滚动条(HScrollBar) 控件主要用于在红、绿、兰颜色值（0～255）之间滚动选择，所以这三个水平滚动条的Minimum和Maximum属性分别设置为0和255。 2、编写一子过程txtbackcolor()，将三个滚动条的颜色值分别传递给三个标签并显示。 3、在窗体类中设置3个全局变量R、G、B；在Load事件中分别将三个滚动条的当前值存储在这3个变量中并通过子过程txtbackcolor()传递。 6.3 滚动条和进度条 程序代码如下： Public Class Form1 Dim r As Integer, g As Integer, b As Integer Sub txtbackcolor() Label4.Text = Str(r): Label5.Text = Str(g): Label6.Text = Str(b) TextBox1.BackColor = Color.FromArgb(r, g, b) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load r = HScrollBar1.Value : g = HScrollBar2.Value : b =HScrollBar3.Value txtbackcolor() End Sub 6.3 滚动条和进度条 Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll r = HScrollBar1.Value : txtbackcolor() End Sub Private Sub HScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar2.Scroll g = HScrollBar2.Value : txtbackcolor() End Sub Private Sub HScrollBar3_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar3.Scroll b = HScrollBar3.Value : txtbackcolor() End Sub End Class 6.3 滚动条和进度条 1．ScrollBar控有什么作用？当Value属性值发生改变时，将会发生什么事件？ 2．请分别说明滚动条控件的Minimum属性、Maximum属性、Value属性、SmallChange属性和LargeChange属性的作用。 6.3 滚动条和进度条 思考： 本章目录 vb.net中用作处理图形图像的控