【教程】VB高级控件VisualBasic大学计算机二级VB考试学习复习资料PPT课件

1 第七章VB高级控件 2 ActiveX控件 采用ActiveX技术创建的一个或多个对象组成 是一段可重复使用的程序代码和数据 以文件形式存在 扩展名为 ocx 3 ActiveX控件添加 工程 部件 工具箱 右击 快捷菜单 部件 4 7 1公用对话框 Commondialog 打开 对话框 另存为 对话框 颜色 对话框 字体 对话框 打印 对话框 帮助 对话框 部件 对话框中选择 MicrosoftCommonDialogControl6 0 5 1 属性 1 Action属性 运行阶段有效 一 共有属性与方法 6 2 CancelError属性 按 取消 按钮时是否产生出错信息 若设为True 会产生一个错误号为32755的错误信息 3 DialogTitle属性 对话框标题 2 方法 7 二 打开 与 另存为 对话框 Filename属性 设置或返回对话框中选定的包括目录的文件名 FileTitle属性 设置或返回对话框中选定的不包括目录的文件名 Filter属性 设置或返回对话框中显示文件的过滤器 格式为 类型描述 类型通配符例 文本文件 txt txt Word文档 doc doc当用Filter属性给对话框设定了多组过滤器时 应使用FilterIndex属性指定第几组为默认过滤器 8 例 编写一个图片浏览程序 当用户按下 打开图片 按钮时 弹出 打开 对话框 从中选定一个位图文件 bmp 后关闭该对话框 此时文本框中显示该文件名 同时在图像框中显示该图片 9 三 颜色 对话框 Color属性 返回用户选定的颜色 Flags属性 10 例 11 四 字体 对话框 Color属性 返回用户选定的字体的颜色 Flags属性 常用如下表 12 Fontname属性 返回用户选定的字体名称 Fontsize属性 返回用户选定的字体大小 FontBold FontItalic FontStrikethru FontUnderline属性 返回用户选定的字体样式 例 13 五 打印 对话框 Copies属性 指定要打印的份数 FromPage ToPage属性 设置或返回要打印的起始页号和终止页号 六 帮助 对话框 HelpFile属性 指定要显示的帮助文件 HelpCommand属性 常用值如下CdlHelpContextPopup H9 确保显示正确的帮助文件 14 例 PrivateSubCommand1 Click CommonDialog1 HelpCommand H9CommonDialog1 HelpFile d ls help hlp CommonDialog1 ShowHelpEndSub 15 工具栏 状态栏 16 9 2Windows公用控件 部件 对话框中选择 MicrosoftWindowsCommonControls6 0 17 ToolBar StatusBar ListView ImageList 18 一 图像列表 ImageList 控件 19 Align属性 显示的位置1 4 顶 底 左 右 二 工具栏 ToolBar 控件 20 ImageList属性 相关联图像的ImageList控件名称 21 ImageList1 ToolBar1 22 Buttons属性 工具栏控件的Button对象集合 23 常用事件 ButtonClick 返回一个参数Button 表示用户单击哪个按钮 24 例1 PrivateSubToolbar1 ButtonClick ByValButtonAsMSComctlLib Button SelectCaseButton KeyCase left Label1 Alignment 0Case center Label1 Alignment 2Case right Label1 Alignment 1EndSelectEndSub 25 26 27 28 PrivateSubToolbar1 ButtonClick ByValButtonAsMSComctlLib Button SelectCaseButton KeyCase left Label1 Alignment 0Case center Label1 Alignment 2Case right Label1 Alignment 1Case bold IfButton Value tbrPressedThenLabel1 FontBold TrueElseLabel1 FontBold FalseEndIfEndSelectEndSub 29 30 PrivateSubCombo1 Click Label1 FontSize Combo1 TextEndSub 31 32 33 34 PrivateSubToolbar1 ButtonMenuClick ByValButtonMenuAsMSComctlLib ButtonMenu SelectCaseButtonMenu KeyCase st Label1 FontName 宋体 Case ht Label1 FontName 黑体 Case fs Label1 FontName 仿宋 gb2312 Case kt Label1 FontName 楷体 gb2312 EndSelectEndSub 35 二 状态栏 StatusBar 控件 状态栏控件由一组窗格构成 每一个窗格作为一Panel对象 所有Panel对象组成Panels集合 Panel对象的常用属性 Text 显示的文本Picture 显示的图片文件名 36 37 PrivateSubToolbar1 ButtonClick ByValButtonAsMSComctlLib Button SelectCaseButton KeyCase left Label1 Alignment 0StatusBar1 Panels Item 2 Text 左对齐 Case center Label1 Alignment 2StatusBar1 Panels Item 2 Text 居中 Case right Label1 Alignment 1StatusBar1 Panels Item 2 Text 右对齐 EndSelectEndSub 38 三 滑块 Slider 控件 常用属性 Max Min 设置或返回标尺刻度的最大 小值Orientation 放置方向0 水平1 垂直TickFrequency 标尺上每个刻度表示的数值SmallChange 按光标左右键时滑动刻度LargeChange 按光标PgUp PgDn键时滑动刻度Value 滑块当前值 常用事件 Click Change Scroll 39 例 PrivateSubSlider1 Change IndexAsInteger Picture1 BackColor RGB Slider1 0 Value Slider1 1 Value Slider1 2 Value EndSub 40 四 进程条 ProgressBar 控件 常用属性 Orientation 放置方向0 水平1 垂直Scrolling 0 分段式1 平滑式Max Min 进程条的终点值和起始值Value 当前进度数值 41 PrivateSubTimer1 Timer n n 5Ifn ProgressBar1 MaxThenProgressBar1 Value nProgressBar2 Value nElseMsgBox 文件下载已完成 Timer1 Enabled FalseEndIfEndSub DimnAsIntegerPrivateSubCommand1 Click Timer1 Enabled TrueEndSub 42 常用属性 Arrange属性 设置图标排列方式 View属性 设置ListView控件中ListItem对象的外观 SelectedItem属性 ListView中选中项目 常用事件 Click Dblclick 五 视图列表 ListView 控件 ListView控件能够用来制作像Windows中的 控制面板 那样的用户界面 ListView控件可使用四种不同视图显示项目 ListView控件以ListItem对象的形式显示数据 每个ListItem对象都可有一个可选的图标与其标签相关联 43 方法 ListView控件中ListItems集合中的ListItem对象可通过Add方法添加 格式 DimitmXasListItemSetitmX 对象 集合 Add Index key text Icon SmallIcon 例 PrivateSubForm Load DimitmxAsListItemSetitmx ListView1 ListItems Add brush 画笔 1 1 EndSub 44 六 选项卡控件 TabStrip 常用属性 Tabs属性 所有tab对象的集合 Style属性 设置外观 取值0 1 2 MultiRow属性 设为True 多个Tab对象能分多行显示 45 部件 对话框中选择 MicrosoftWindowsCommonControls 26 0 七 Animation控件 Animation控件以标准Windows音频 视频格式来显示AVI动画 46 属性AutoPlay属性 设置是否自动播放文件 设置为True时 一旦将 avi文件加载到Animation控件中 则 avi文件将连续循环的自动播放 设置为False时 虽加载了 avi文件 但不使用Play方法就不会播放 avi文件 Center属性 设置是否居中播放 设置为True时 根据图象的大小 在控件中心显示 avi文件 当设置为False时 avi文件定位在控件内的0 0处 47 事件Animation控件常用的事件是Click事件 方法Open方法 打开一个要播放的 avi文件 语法格式为 对象名 Open路径文件名Play方法 在Animation控件中播放 avi文件 语法格式为 对象名 Play 重复次数 开始帧 结束帧 Stop方法 停止播放 Close方法 关闭动画文件 48 PrivateSubTimer1 Timer i i 1ProgressBar1 Value iLabel1 Caption 已完成 i Ifi 100ThenMsgBox 复制完毕 Timer1 Enabled FalseAnimation1 StopEndIfEndSub DimiAsIntegerPrivateSubCommand1 Click Timer1 Enabled TrueAnimation1 Open C filecopy avi Animation1 PlayEndSub 49 八 用API函数开发多媒体应用程序 一 API函数简介 API是Windows提供的应用程序编程接口 ApplicationProgrammingInterface 对VisualBasic应用程序来说 API函数是外部过程 在使用之前 必须在模块程序中先声明 例如VisualBasic要调用Sleep函数就必须在标准模块中作如下声明 DeclareSubSleepLib kernel32 Alias Sleep ByValdwMillisecondsAsLong 在上面的代码中 程序访问的函数名为Sleep 库名为kernel32 别名也为Sleep 50 启动API浏览器 1 在Windows环境下启动 选择 开始 程序 MicrosoftVisualBasic6 0中文版 MicrosoftVisualBasic6 0中文版工具 API文本浏览器 即可打开API浏览器 2 在VisualBasic环境下启动 操作步骤如下 选择 外接程序 菜单中的 外接程序管理器 命令 打开 外接程序管理器 对话框 在 外接程序管理器 对话框的 可用外接程序 列表中选择 VB6APIViewer 然后在 加载行为 选项组中选中 在启动中加载 和 加载 卸载 两个复选框 单击 确定 按钮 即可把 API浏览器 命令添加到 外接程序 菜单中 执行 外接程序 菜单中的 API浏览器 命令 即可打开API浏览器 51 加载API文件1 加载文本文件在 API浏览器 窗口中选择 文件 菜单下的 加载文本文件 菜单项 弹出 选择一个文本API文件 对话框 选择 WIN32API TXT 文件 单击 打开 按钮 即可装入文本API文件 2 转换数据库文件可将文本文件转换为数据库文件 否则不能用 加载数据库文件 命令装入API文件 把文本文件转换为数据库文件的操作是通过 文件 菜单中的 转换文本为数据库 菜单项来实现 转换后的数据库文件与原来的文本文件内容完全相同 但能以较快的速度装入 52 二 利用API函数制作屏幕保护程序 由上向下展开 由左向右展开 53 下面介绍两个与多媒体有关的高级接口函数 1 GetPixel函数函数功能 检索指定坐标点的像素的RGB颜色 声明原型 DeclareFunctionGetPixelLib gdi32 ByValhdcAsLong ByValxAsLong ByValyAsLong AsLong返回值 该像素点的RGB颜色值 2 SetPixel函数函数功能 指定坐标处的像素设为指定的颜色 声明原型 DeclareFunctionSetPixelLib gdi32 ByValhdcAsLong ByValxAsLong ByValyAsLong ByValcrColorAsLong AsLong返回值 如果函数执行成功 返回就是函数设置像素的RGB颜色值 54 窗体各控件属性 55 程序代码如下 在窗体通用部分声明API函数SetPixel和GetPixel PrivateDeclareFunctionSetPixelLib gdi32 ByValhdcAsLong ByValxAsLong ByValyAsLong ByValcrColorAsLong AsLongPrivateDeclareFunctionGetPixelLib gdi32 ByValhdcAsLong ByValxAsLong ByValyAsLong AsLongDimMoveModeAsIntegerDimPicModeAsInteger按任意键时 结束屏幕保护程序运行 PrivateSubForm KeyPress KeyAsciiAsInteger EndEndSub PrivateSubForm Load RandomizeMoveMode Int Rnd 6 随机选择展开方式RandomizePicMode Int Rnd 4 随机选择图片Fori 0To3Picture1 i Visible False 设置图片为不可见Picture1 i ScaleMode 3 刻度模式设为像