vb学习教程第8章常用控件与系统对象.ppt

第八章常用控件与系统对象 本章内容及要求 1 掌握常用控件单选钮 OptionButton 检查框 CheckBox 框架 Frame 滚动条 ScrollBar 列表框 ListBox 组合框 ComboBox 时钟 Timer 等的常用 属性 重要事件和方法的使用 2 了解一些常用的ActiveX控件 高级控件 的使用 3 了解一些常用系统对象的使用 本章重点 常用控件单选钮 检查框 框架 滚动条 列表框 ListBox 组合框 ComboBox 时钟 Timer 等的常用属性 重要事件和方法的使用 本章难点 ActiveX控件 高级控件 的使用 一些常用系统对象的使用 8 1单选钮 检查框及框架 8 1 1单选钮1用途单选钮 OptionButton 也称作选择按钮 一组单选钮控件可以提供一组彼此相互排斥的选项 任何时刻用户只能从中选择一个选项 实现一种 单项选择 的功能 被选中项目左侧圆圈中会出现一黑点 单选按钮 2 重要属性 1 Caption 文本标题 设置单选钮的文本注释内容 2 Alignment属性 0 LeftJustify 缺省设置 控件钮在左边 标题显示在右边 1 RightJustify控件钮在右边 标题显示在左边 3 Value属性 True 单选钮被选定False 单选钮未被选定 缺省设置 4 Style属性0 Standard 标准方式1 Graphical 图形方式 说明 在Style属性设置为1时 可使用Picture属性 未选定时的图标或位图 DoWnPicture属性 选定时的图标或位图 DisabledPicture属性 禁止选择时的图标或位图 3方法SetFocus方法是单选钮控件最常用的方法 可以在代码中通过该方法将Value属性设置为True 与命令按钮相同 使用该方法之前 必须要保证单选钮处于可见和可用状态 即Visible与Enabled属性值均为True 4事件Click事件是单选钮控件最基本的事件 一般情况用户无需为单选钮编写Click事件过程 因为当用户单击单选钮时 它会自动改变状态 例8 1单选钮示例 Pg 185 8 1 2检查框 1用途检查框 CheckBox 也称作复选框 选择框 一组检查框控件可以提供多个选项 它们彼此独立工作 所以用户可以同时选择任意多个选项 实现一种 不定项选择 的功能 选择某一选项后 该控件将显示 而清除此选项后 消失 2 重要属性Caption Alignment Style与单选钮相同 检查框的Value属性与单选按钮不同 其值为数值型数据 可取0 1 2 检查框与单选按钮Value属性的比较 3方法检查框也可使用SetFocus方法来改变其Value属性值 其用法与要求同单选钮 每调用一次SetFocus方法就会触发一次Click事件 4事件Click事件是检查框控件最基本的事件 用户一般无需为检查框编写Click事件过程 但其对Value属性值的改变遵循以下规则 单击未选中的检查框时 Value属性值变为0 单击已选中的检查框时 Value属性值变为1 单击变灰的检查框时 Value属性值变为0 8 1 3框架 Frame Frame控件为控件提供可标识的分组 当需要在同一窗体内建立几组互独立的单选钮时 就需要用框架将每一组单选钮框框起来 把OptionButton控件分成几组 如下形式 框架内控件的创建方法 为了将控件分组 首先需要绘制Frame控件 然后绘制Frame里面的控件 这样就可以把框架和里面的控件同时移动 如果在Frame外部绘制了一个控件并试图把它移到框架内部 那么控件将在Frame的上部 这时需分别移动Frame和控件方法1 单击工具箱上的工具 然后用出现的 指针 在框架中适当位置拖拉出适当大小的控件 不能使用双击工具箱上工具的自动方式 方法2 将控件 剪切 Ctrl X 到剪贴板 然后选中框架 使用 Ctrl V 命令粘贴到框架内 重要属性1 Caption属性 框架标题2Enabled属性 缺省为TrueFalse 标题呈灰色 不允许对框架内的所有对象进行操作 3 Visible属性 True 框架及其控件可见 False 框架及其控件被隐含起来 事件 框架可以响应的事件Click DblClick一般不需要有关框架的事件过程 例8 2单选钮 检查框及框架用法示例 Pg 187 8 2滚动条 ScrollBar 1用途滚动条控件 ScrollBar 分为水平滚动条 HScrollbar 和垂直滚动条 VscrollBar 二种 通常附在窗体上协助观察数据或确定位置 也可用作数据输入工具 用来提供某一范围内的数值供用户选择 2 属性 1 Value滑块所处位置所代表的值 2 Max 最大值 32 768 32 767 3 Min 最小值 32 768 32 767 4 SmallChange最小变动值 单击箭头时移动的增量值 5 LargeChange最大变动值 单击空白处时移动的增量值 4事件 1 Change事件滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生 单击滚动条两端的箭头或空白处将引发Change事件 2 Scroll事件当滚动框被重新定位 或按水平方向或垂直方向滚动时 Scroll事件发生 拖动滑块时会触发Scroll事件Scroll事件与Change事件的区别在于 当滚动条控件滚动时Scroll事件一直发生 而Change事件只是在滚动结束之后才发生一次 例8 3滚动条示例 设计一个程序进行坐标设置教材Pg 190 例8 4滚动条示例 设计一个用于设置字体颜色的程序 8 3列表框与组合框 一 用途列表框控件 ListBox 用于显示项目列表 用户可从中选择一个或多个项目 如果项目总数超过了可显示的项目数 VB会自动加上滚动条 列表框有两种风格 标准和复选列表框 通过它的Style属性来设置 如下图 组合框控件 ComboBox 将文本框和列表框的功能结合在一起 用户可以在列表中选择某项 只能选取一项 或在编辑区域中直接输入文本内容来选定项目 组合框共三种风格 下拉式组合框 简单组合框和下拉式列表框 见下图 二 主要属性1 List ListCount和ListIndex属性 这3个属性只能在程序代码中设置 List 字符型数组 存放列表框的项目数据 下标是从0开始的 例如 List 0 表示第一项 Listindex 0 的内容ListIndex 为整型值 选中的项目的序号 没有项目选中时为 1 ListCount 为整型值 表示项目的数量 ListCount 1是最后一项的下标 2 Style属性该值用来指示控件的显示类型和行为 在运行时是只读的 对于列表框控件或组合框控件都有Style属性 但它们的含义是不同的 见表8 5和表8 6 例如 在窗体上放置2个列表框 将其Style属性分别设置为0和1 放置3个组合框 将它们Style属性分别设置为0 1和2 3 MultiSelect属性用于指示是否能够在列表框控件中进行复选以及如何进行复选 在运行时是只读的 注意 组合框控件无此属性 表8 7MultiSelect属性设置值及含义 4 Selected属性该属性返回或设置列表框控件中的一个项目的选择状态 该属性是一个逻辑类型的数组 数组元素个数与列表框中的项目数相同 其下标的变化范围与List属性相同 例如 List1 Selected 0 True表示列表框List1的第一个项目被选中 此时ListIndex的值设置为0 Selected属性在设计时是不可用的 即无法在属性窗口中设置属性值 5 NewIndex属性返回最近加入列表框控件或组合框控件的项目的索引 如果在列表中已没有项目或删除了一个项目 该属性将返回 1 6 TopIndex属性返回或设置一个值 该值指定哪个项被显示在列表框控件或组合框控件顶部的位置 该属性取值范围从0到ListCount 1 在设计时不可用 7 Sorted属性返回一个逻辑值 当Sorted属性为True时列表框控件或组合框控件的项目自动按字母表顺序 升序 排序 为False时项目按加入的先后顺序排列显示 该属性只能在设计时设置 不能在程序代码中设置 8 Text属性对于下拉式组合框与简单组合框 Text属性返回编辑区域中的文本 对于列表框控件或下拉列表框 Text属性的返回值总与List ListIndex 的值相同 方法1 AddItem方法用于将项目添加到列表框控件或组合框控件 语法格式 对象名 AddItemitem index 其中 item 为字符串表达式 表示要加入的项目 Index 决定新增项目的位置 缺省 则添加在最后 2 RemoveItem方法用于从列表框控件或组合框控件中删除一项 语法格式 对象名 RemoveItemindex对index参数的规定同AddItem方法 3 Clear方法用于清除列表框控件或组合框控件中的所有项目 语法格式 对象名 Clear例如 要删除列表框 List1 中所有项目 可使用 List1 Clear 例如 要删除列表框 List1 中所有选中的项目 可使用下面的程序段 i 0DoWhilei List1 ListCount 1IfList1 Selected i TrueThenList1 RemoveItemiEndIfi i 1 4 事件 1 Click事件当单击某一列表项目时 将触发列表框与组合框控件的Click事件 该事件发生时系统会自动改变列表框与组合框控件的ListIndex Selected Text等属性 无需另行编写代码 2 DblClick事件当双击某一列表项目时 将触发列表框与简单组合框控件的DblClick事件 3 Change事件当用户通过键盘输入改变下拉式组合框或简单组合框控件的文本框部分的正文 或者通过代码改变了Text属性的设置时 将触发其Change事件 例8 5列表框示例 设计一个畅销书排行榜程序 用户界面如右图 例8 6组合框示例 设计一个用于设置字体属性的程序 界面如右图所示 1用途时钟控件 Timer 又称计时器 定时器控件 用于有规律地定时执行指定的工作 适合编写不需要与用户进行交互就可直接执行的代码 如计时 倒计时 动画等 在程序运行阶段 时钟控件不可见 8 4时钟 2属性 1 Interval属性取值范围在0到64767之间 包括这两个数值 单位为毫秒 0 001秒 表示计时间隔 若将Interval属性设置为0或负数 则计时器停止工作 2 Enabled属性无论何时 只要时钟控件的Enabled属性被设置为True而且Interval属性值大于0 则计时器开始工作 以Interval属性值为间隔 触发Timer事件 通过把Enabled属性设置为False可使时钟控件无效 即计时器停止工作 3方法VB没有为时钟控件提供有关的方法 4事件时钟控件只能响应Timer事件 当Enabled属性值为True且Interval属性值大于0时 该事件以Interval属性指定的时间间隔发生 需要定时执行的操作即放在该事件过程中完成 例8 7时钟示例 设计一个计时报警程序 开始时窗体上显示当前时间 单击 开始 按钮10秒钟后程序结束 例8 8设计一个霓虹灯程序 利用时钟控件模拟霓虹灯的效果 8 5ActiveX控件 概念 在VB中除了使用工具箱上的标准控件外 还可以使用微软以及一些第三方厂商开发了许多扩展的高级控件 这些控件被称为ActiveX控件 使用ActiveX控件 首先应把需要使用的ActiveX控件添加到工具箱中 ActiveX控件文件的类型名为 ocx 一般情况下ActiveX控件被安装和注册在 Windows System或System32目录下 执行 工程 菜单中的 部件 命令 打开 部件 对话框 该对话框中列出当前系统中所有注册过的ActiveX控件 可插入对象和ActiveX设计器 8 5 1UpDown控件 UpDown控件位于MicrosoftWindowsCommonControls 26 0部件中 其添加到工具箱后的图标为 UpDown控件一般与其它控件配套使用 与之配套的控件称为伙伴控件 属性 BuddyControl属性BuddyProperty属性Value属性Increment属性Min和Max属性Wrap属性 例8 9UpDown控件示例 8 5 2Slider控件 Slider控件位于MicrosoftWindowsCommonControls6 0部件中 其添加到工具箱后的图标为 Slider控件包含滑块和可选择性刻度标记 与滚动条控件类似 Slider控件具有与滚动条控件相类似的基本属性 如Min Max SmallChange LargeChange和Value属性Slider控件的其它属性 1 TextPosition属性 2 TickFrequency属性 3 TickStyle属性 Slider控件的常用事件为Scroll和Change 其触发条件与滚动条控件相同 例8 10Slider控件示例 8 5 3ProcessBar控件 ProcessBar控件位于MicrosoftWindowsCommonControls6 0部件中 其添加到工具箱后的图标为 ProcessBar控件常用于监视一个较长操作完成的进度 它通过从左到右用一些方块填充矩形的形式来表示操作处理的进程 ProcessBar控件的属性设置 例8 11ProgressBar控件示例 8 5 4ImageList控件与ImageCombo控件 ImageList控件与ImageCombo控件均位于MicrosoftWindowsCommonControls6 0部件中 其添加到工具箱后的图标分别为和 ImageList控件不能独立使用 它只是一个向其它控件提供图象的资料中心 运行时不可见 ImageCombo控件是支持图片的组合框 控件列表中的每一项都可以有一幅图片指定给它 例8 12ImageList控件与ImageCombo控件示例 8 5 5SSTab控件 Style 选项卡样式Tabs 选项卡总数TabsPerRow 每一行选项卡的数目Rows 选项卡总行数TabOrientation 选项卡的位置 ShowFocusRect 决定选项卡上的焦点矩形是否可视 Tab 当前选项卡的序号 序号从0开始 如果Tab为1 则第二个选项卡为当前活动的选项卡 SSTab控件位于MicrosoftWindowsTabbedDialogControl6 0部件中 其添加到工具箱后的图标为 属性 8 6常用系统对象 在VisualBasic系统中 提供许多的系统内部对象 用户在应用程序中 直接可以调用这些对象 系统对象没有用户界面 8 6 1App对象 用途 在应用程序中使用App对象可获得 应用程序的标题 版本信息 可执行文件和帮助文件的路径及名称等信息 以及检查应用程序是否已经运行等 最常用的属性 例8 13要限定某用应用程序 EXE 必须放在D盘根目录与应用程序同名的文件夹中才能运行 可在窗体的Load事件中写入如下代码PrivateSubForm Load IfApp EXEName Mid App Path 4 And Ucase Mid App Path 1 2 D ThenExitsubElseEndEndIfEndSub 8 6 2Clipboard对象 Clipboard对象用于操作剪贴板上的文本和图形 它使用户能够复制 剪切和粘贴应用程序中的文本和图形 所有Windows应用程序共享Clipboard对象 当切换到其它应用程序时 剪贴板内容会改变 因此Clipboard 剪贴板 对象提供了应用程序之间信息的传递 Clipboard对象它没有属性和事件 仅提供6个常用的方法 Clipboard对象的常用方法 1 Clear方法在复制信息到剪贴板之前 应使用Clear方法清除Clipboard对象中的内容 使用格式如下 Clipboard Clear2 SetText方法使用SetText方法将字符串数据按指定格式存入剪贴板中 使用格式如下 Clipboard SetText 其参含义见教材Pg 211 3 GetText方法使用此方法从剪贴板中获得一字符串 其语法格式为 Clipboard GetText 例如 要将剪贴板上的文字粘贴到文本框插入点所在处或替换选中的内容 则可使用如下语句 Text1 SelText Clipboard GetText 4 SetData方法将图形数据保存到剪贴板上 要使用SetData方法 其使用语法格式为 Clipboard SetData data format 其中 data 参数是必需的 为要放到Clipboard对象中的图形数据 format 参数是可选的 一个常数或数值 用来指定图片的格式 其取值见表8 15 如果省略format 则由系统自动决定图形格式 5 GetData方法用此方法从剪贴板中得到图形 其使用语法格式是 Clipboard GetData format 例8 14 6 GetFormat方法使用GetFormat方法 检查剪贴板中指定格式的数据存在否 它返回一个逻辑值 其语法格式 Clipboard GetFormat 例8 15使用GetFormat方法确定剪贴板中是否有Bmp格式数据 如果有将其粘贴到图片框picture1中 PrivateSubForm Click IfClipboard GetFormat vbCFBitmap ThenPicture1 picture Clipboard GetData EndifEndSub 8 6 3Screen对象 Screen对象代表了整个Windows桌面 通过Screen对象 还可以在程序运行期间修改屏幕的鼠标指针 Screen对象的常用属性 例8 16打印输出计算机系统中显示器或活动打印机可用的所有字体名 其程序如下 PrivateSubCommand1 Click DimIAsIntegerForI 0ToScreen FontCount 1PrintScreen Fonts I NextIEndSub 8 6 4Printer对象和Printers集合对象 在VB中 要将处理结果的数据或图形通过打印机输出 就必须使用系统提供的Printer对象和Printers集合对象 1 Printer对象 2 Printers集合对象 8 6 5立即窗口 立即窗口是VisualBasic所提供的全域性 G1obal 系统对象之 称为Debug对象 作为调试之用 此对象除了Print方法外 不具备任何事件和属性 在设计状态可以在立即窗口中进行一些简单的命令操作 例如可用 或Print 两者等价 输出一些表达式的值 在程序中 可以使用Debug Print方法将要输出的信息输出到立即窗口中 而若要作为立即之用 只要进入 中断 模式便会出现此窗口 8 6 6其他系统对象 除了上述对象外 系统还提供了Control对象 Controls集合对象 Form对象 Forms集合对象 关于这些对象的使用 限于篇幅不再展开 读者可以通过系统MSDN帮助获得详细的帮助 先举例说明Control对象 Controls集合对象的使用 Controls集合对象包含窗体上的所有控件 如下程序段是在立即窗口中显示窗体上的所有控件名称 DimxAsControlForEachxInForm1 ControlsDebug Printx NameNextx