VB程序设计案例教程 第八章通用对话框和菜单

ImageList控件
就如同利用数组表示一组相同数据类型变量的集合，Visual Basic定义 了一个能够包含图像对象集合的控件，在使用的时候只需通过索引或者 关键字来调用，这就是ImageList。ImageList控件很少单独使用，只是作 为一个便于向其它控件提供图象的资料中心，一般与其他控件一同使用。 在ImageList控件中添加图片有两种方式：通过属性对话框和通过动态代 码添加图片。 （1）通过属性对话框添加图片。对ImageList控件点击右键，弹出属 性对话框中选择图像选项，利用插入图片和删除图片按钮进行对 ImageList中图像的增删。当点击添加按钮时，索引自动增加1，删除时 索引自动减1，但是索引不会小于1。 （2）通过动态代码添加图片。利用Add（Index,Key,Picture）方法， 其中Index表示索引，Key表示关键字，Picture表示图片（通常我们用 LoadPicture方法加载图片）。具体方法如下所示： Dim imageX As ImageList Set imageX = mageList1.ListImages.Add(1,”First”,LoadPicture(“E:\ FirstPicture.bmp”)) „将名为FirstPicture图片加载到ImageList中，索引为1，关键字为 “FirstPicture”。
TickStyle
Value
例 Slider实例 创建一个滑块和一个文本框，利用文本记录滑块的位置。
窗体设计 创建一个工程Form_Slider，在窗体上添加必要的 控件：1个Slider控件和2个Label控件，设置Slider控 件的最大值是10。具体方案如图所示。 （2）具体代码如下 Private Sub Form_Load() LabelText.FontSize = 10 '设置Label的字体的大 小 程序运行结果如图 LabelPos.FontSize = 10 End Sub Private Sub SliderTest_Change() SliderTest.ToolTipText = SliderTest.Value ' 设置滑块的提示信息为当前滑块的值 LabelPos.Caption = SliderTest.Value End Sub 程序运行结果如图
StatusBar控件
StatusBar控件又称状态栏。利用StatusBar控件可以方便的显示有关窗 体上查看的对象、对象组件的信息或关系到对象操作各种状态数据， 也可以利用StatusBar记录其他控件的属性。一个StatusBar是由多个窗 格组成，最多可以被分为16个窗格。 对StatusBar控件点击右键呼出的属性对话框，通过插入窗格和删除窗 格两个按钮对StatusBar控件的窗格数量的进行控制。如图所示。
改变页边距和（或）首行缩进的属性。
属性 BorderStyle LargeChange SelectRange SelLength SelStart 设置滑块的外观样式 0-ccNone 无边框模式 1-ccFixedSingle 有简单的边框模式
说明
设置当按下PageUp和PageDown键滑块增加和减少的值，系统默认是0
设置Slider控件是否具有选定区域 True 有 False 没有 设置选定区域的值（此属性只在SelectRange的值为真时有效） 设置选定区域的起始值（此属性只在SelectRange的值为真时有效）
设置当按下向左或者向右方向键（当Slider属性中外观的方向属性选择的是 SmallChange ccOrientationVertical属性，那么向上和向下的箭头也可以控制）控制Slider的值改 变的大小 设置滑块在滑块控件上的位置 0-sldBottomRight 设置滑块下方有刻度 1- sldTopLeft 设置滑块上方有刻度 2-sldBoth 设置滑块上下都有刻度 3-sldNoTicks 设置滑块没有刻度 设置滑块的值
ActiveX控件的建立
（3）单击“确定”关闭“部件”对话框，此时Visual Basic的工具栏中就新增了ActiveX的控件。
ActiveX控件的使用
ProgressBar控件 在安装文件的时候，经常出现一个进度指示器来表示进 度。在Visual Basic中 ，这个工作交由进度条控件 (ProgressBar)完成。进度条通常由一个从左到右用一些方块 填充矩形来表示一个较长操作的进度。 在ProgressBar控件中，Value属性指明了在操作的整个持 续时间范围内的当前位置，即进度条被填充了多少。在实 际应用中，进度条的运行就是进度条的Value属性被改变了。 例如，在安装文件时，首先获取文件含有多少字节并赋值 给ProgressBar控件的max属性，并且令ProgressBar控件的 min属性的值为0。安装过程中，应用程序可以获取已安装 的文件的字节数，来控制ProgressBar控件Value的值，此时 Value的值一定在min和max之间逐渐增加，进度条就一直前 进，即安装文件的进度显示。表12.1列出了ProgressBar的常 用属性。
(2) 具体代码如下 Private Sub ButtonStart_Click() ProgressBarTest.Value = 0 '设置进度条的值为0 Time_Progress.Enabled = True '设置Timer控件的属性为真 ButtonStart.Enabled = False '设置ButtonStart为不可使用 End Sub Private Sub ButtonStop_Click() ProgressBarTest.Value = 0 '设置进度条的值为0 Time_Progress.Enabled = False '设置Timer控件的属性为假 ButtonStart.Enabled = True '设置ButtonStart为可使用 End Sub Private Sub Form_Load() Time_Progress.Interval = 1000 '设置wk.baidu.comimer控件的时间为10S Time_Progress.Enabled = False '设置Timer控件属性为不可使用 End Sub Private Sub Time_Progress_Timer() If ProgressBarTest.Value = ProgressBarTest.Max Then '判断进度条的值是否为最大值 Time_Progress.Enabled = False '如果是最大值则使Timer控件属性为不可 使用 Else ProgressBarTest.Value = ProgressBarTest.Value + 1 '否则令进度条的值+1 End If End Sub
7.1 ActiveX控件概述 7.2 ActiveX控件 7.3 建立和使用ActiveX文档
7.4 本章小结
7.1 ActiveX控件概述
在Visual Basic中，控件是必不可少的部分。控件主要 包括3三种类型，分别是：标准控件，ActiveX控件和可插 入控件。由于ActiveX技术是微软大力支持的技术，在开 发web系统或者传统桌面程序中被大量使用。相对于Java Applet，ActiveX不仅支持跨平台编程，而且运行速度较 快，在某些特殊的场合ActiveX优于Java Applet。VB作为 ActiveX可在其中运行的容器，在简单易用的同时又具备 可支持ActiveX编程的强大功能，因此受到大多数初级程 序员的喜爱。
属性
说明 设置进度条的位置 0-vbAlignNone 默认位置 1-vbAlignTop 窗口的顶端 2-vbAlignButtom 窗口的底端 3-vbAlignLeft 窗口的左边 4-vbAlignRight 窗口的右边 设置进度条是否以3D效果显示 0-ccFlat 不以3D效果显示 1-cc3D 以3D效果显示 设置进度条的外观样式 0-ccNone 无边框模式 1-ccFixedSingle 有简单的边框模式 设置进度条的高度 设置进度条在进度条组中的编号 设置进度条距窗体左边框的距离 设置进度条范围的最大值 设置进度条范围的最小值 设置进度条是否可见 True 可见 False 不可见 设置进度条距窗体顶端的距离
Slider控件
Slider控件又称滑块控件，包含了一个滑块和一个可选择 的刻度标记。我们可以通过拖动滑块或用键盘（鼠标）来移 动滑块，也可以通过其他控件赋予Slider控件一个数值，令 滑块的位置发生改变，即Slider控件的Value属性的值决定当 前滑块所处位置。例如在Word中经常使用的标尺工具，就 是滑块应用的一个很好的实例。它利用滑块的位置的改变，
第7章 通用对话框和菜单
本章内容提要及学习目标
ActiveX控件是Visual Basic中必不可少的一部分知识，它主 要包括了TabStrip控件、StatusBar 控件、TreeView控件、 ImageList控件、ImageCombo控件、ProgressBar控件、ListView 控件、Slider控件、ToolBar控件以及ActiveX文档。本章将以 大量的实例对这些控件逐一进行具体的讲解。对于想更深一 步了解Visual Basic的程序员，必须认真学习本章的内容。
7.2 ActiveX控件的建立
(1)点击Visual Basic工具栏中空白处，单击右键选择部件。 如图12-1a所示。或者点击菜单中“工程”（或使用快捷键 Alt+P），选择“部件”（或使用快捷键Ctrl+T）如图所示，
ActiveX控件的建立
（ 2 ） 在 弹 出 的 部 件 对 话 框 中 选 择 控 件 的 Microsoft Windows Common Controls 6.0选项。如图所示。
Align
Appearance
BorderStyle
Height Index Left Max Min Visible
Top
ProgressBar控件实例
创建一个进度条，利用两个按钮控制进度条的进度，当单 击“开始”按钮时进度条运行，当单击“停止”按钮时进度 条停止运行并且回到初始化状态。 (1) 窗体设计 创建一个新的工程Form_Progress，添加必要的控件：两个按 钮ButtonStart和ButtonStop、一个Timer控件Time_Progress、 一个Progress控件ProgressBarTest，设置进度条的范围为0～ 10，具体布局如图所示。
在运行的时候，使用带Set的语句添加Panel对象。语 法格式如下： Object.Add(Index,Key,Text,Style,Picture) 其中Object是对象表达式，其值是Panels集合。Index 参数（可选的）表示Panel插入到Panels对象数组的位 置，如果没有指定其值则默认添加到Panels数组的结 尾。Key参数（可选的）是唯一识别Panel的字符串， 使用Key检索指定的Panel。Text参数是（可选的）是 Panel中所显示的字符串。Style参数（可选的）用以 设置新的Panel对象的Style属性。Picture参数是（可选 的）用以指定显示在活动的Panel中的位置。
例 StatusBar实例 创建工程，当在窗口上点击鼠标左键时，StutasBar中记录鼠标的
位置。 （1）窗体设计：创建一个名为StatusBar实例的窗体，在窗体上 设计一个StatusBar控件。
（2）具体代码如下： Private Sub Form_Load() StatusBar1.Panels(1).Text = "点击鼠标的位置" Dim PanelX As Panel Set PanelX = StatusBar1.Panels.Add(, "P1", "X = 0") Set PanelX = StatusBar1.Panels.Add(, "P2", "Y = 0") End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) StatusBar1.Panels(2).Text = "X=" & X StatusBar1.Panels(3).Text = "Y=" & Y End Sub 程序运行结果如图所示：