Visual Basic程序设计教案：第七章 VB高级控件Action控件02.doc

7.2 Windows公用控件 “工程”--“部件”对话框中选择“Microsoft Windows Common Controls6.0 1、Imagelist图像列表 ImageList 控件不能独立使用，只是作为一个向其它控件提供图象的资料中心。如工具栏控件（ToolBar）中的图像可从中获取的。 在窗体添加ImageList 控件-----快捷菜单打开属性页------设置图片、索引、关键字。 2、工具栏(ToolBar)控件 常用属性：Align属性：显示的位置1~4：顶、底、左、右 用“快捷菜单”打开“属性页” 通用选项卡：设置图像列表：imagelist1 按钮选项卡：插入按钮，设置索引、标题、关键字、图像。 Toolbar控件的事件 Toolbar控件的主要事件有Button Click 事件，工具栏上的按钮为控件数组，可引用索引（Index属性），也可用关键字（Key属性）来识别按钮。 下列ButtonClick 事件，引用Key 属性 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button. Index ‘按钮索引号 Case 1 CommonDialog1.ShowOpen Case 2 CommonDialog1.ShowSave Case 3 CommonDialog1.ShowColor End Select End Sub 下列ButtonClick 事件，引用Key 属性 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key ‘按钮关键字 Case open CommonDialog1.ShowOpen Case save CommonDialog1.ShowSave Case print CommonDialog1.ShowColor End Select End Sub 3、状态栏(StatusBar)控件 状态栏控件由一组窗格构成，一般位于窗口底部，每一个窗格称为一个Panel对象，组成Panels集合。 选中“状态栏”控件，用“快捷菜单”，打开“属性页”， 设置：显示的文本、日期、时间、图片等。 4、滑块 (Slider)控件 常用属性： Max、Min：设置标尺刻度的最大、小值 Orientation：方向： 0—水平 1—垂直 TickFrequency：标尺上每个刻度表示的单位数值 SmallChange：按左右键时，滑块滑动刻度 Tickstyle:标尺刻度类型 Value：滑块当前值 常用事件：Click、Change、Scroll（拖动） 如：利用滑块控制文本框颜色变化 Private Sub Slider1_Change() Text1.BackColor = QBColor(Slider1.Value) End Sub 例如：通过改变滑块改变数值刻度，用文本框显示 Private Sub Slider1_Change() Text1.Text = Slider1.Value End Sub 5、进程条(ProgressBar)控件 进程条用于显示动态过程。经常结合timer计时器使用。 常用属性： Orientation：放置方向 0—水平 1—垂直 Scrolling：0—分段式 1—平滑式 Max、Min： 进程条的终点值和起始值 Value：当前进度数值 如:设置计时器interval为50毫秒,进程条max=100,min=0,用文本框显示进程条数据变化. Private Sub Timer1_Timer() ProgressBar1.Value = ProgressBar1.Value + 1 Text1.Text = ProgressBar1.Value End Sub 如：设计下载程序，* 计时器初始值Enabled为false，* Interval 属性:时间间隔100。 Dim n As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() n = n + 5 If n = Progres