第八章 扩展控件.pptVIP

1-* 北京源智天下科技有限公司 联系方式： 联系方式： 北京源智天下科技有限公司 第八讲 扩展控件 胡小江 e-mail:jtclass@163.com 课程内容安排 通用对话框控件 列表视图控件 树视图控件 综合练习 思考和习题 通用对话框控件 通用对话框控件也称之为对话框控件。该控件提供了一组标准的Windows界面的对话框。例如，“打开”对话框、“保存”对话框、“颜色”对话框、“字体”对话框、“帮助”对话框及“打印”对话框。用户可以在应用程序中用通用对话框控件方便地对相关对象进行打开、保存、设置颜色和字体等操作。 通用对话框控件为ActiveX控件，在使用之前需要先加载到工具箱中。使用时选择“工程”→“部件”命令，在弹出的“部件”对话框中选择“Microsoft Common Dialog Control 6.0（SP3）”项目，将通用对话框控件加载到工具箱中，如图8.1所示。 通用对话框控件的方法和对应的对话框 通用对话框控件提供了Windows中常用的6种对话框。每种对话框都具有对应的方法，通过控件方法的调用即可在应用程序中显示对话框。表8.1中列出了这6种对话框及显示对话框的方法名称 方 法 显示的对话框 ShowOpen 显示“打开”对话框 ShowSave 显示“另存为”对话框 ShowColor 显示“颜色”对话框 ShowFont 显示“字体”对话框 ShowPrinter 显示“打印”对话框 ShowHelp 显示“帮助”对话框 “打开”对话框 “打开”对话框是Windows应用程序中用到的最普遍的对话框。常用该对话来选择要打开的文件。例如，Visual Basic 6.0中的“打开工程”对话框。可以通过该对话框来打开需要的工程文件 文本框控件应用示例 用通用对话框控件设计一个简单的图像浏览器，可以打开“*.bmp;*.gif;*.jpeg”格式的图像文件，程序界面如图8.4所示。 示例代码 01 Private Sub cmdExit_Click() 02 End 退出程序 03 End Sub 04 Private Sub cmdOpen_Click() 打开文件对话框 05 cdlgExam.Filter = (*.bmp;*.gif;*.jpeg)|*.bmp;*.gif;*.jpeg 设置文件过滤器 06 cdlgExam.FileName = 设置初始文件名为空 07 cdlgExam.ShowOpen 打开文件对话框 08 picShow.Picture = LoadPicture(cdlgExam.FileName) 加载图像 09 End Sub “颜色”对话框 “颜色”对话框可以很方便地用于在调色板中选择需要的颜色。例如，Windows系统下的“画图”工具。单击“颜色”菜单项，选择“编辑颜色”命令即可弹出“编辑颜色”对话框 应用示例 用“颜色”对话框设置PictureBox控件的背景颜色。程序界面如图8.8所示。 示例代码 01 Private Sub cmdExit_Click() 02 End 退出程序 03 End Sub 04 Private Sub cmdSetColor_Click() 设置PictureBox背景颜色 05 cdlgColor.ShowColor 打开“颜色”对话框并选择颜色 06 picDisplay.BackColor = cdlgColor.Color 将PictureBox控件的背景颜色设 置为选择的颜色 07 End Sub “打印”对话框 “打印”对话框用于提供给用户标准的打印窗口界面。该对话框能够设置打印参数但不能完成具体的打印任务。如果需要完成具体的打印任务，可以使用Visual Basic 6.0提供的Printer对象来完成。“打印”对话框主要的属性有Flags属性、Copies属性、FromPage、ToPage属性及Max、Min属性。 应用示例 利用“打印”对话框打印PictureBox控件中显示的图像。程序界面如图8.14所示。 示例代码 01 Private Sub cmdExit_Click() 02 End 退出程序 03 End Sub 04 Private Sub Form_Load() 05 picShow.Picture = LoadPicture(App.Path \example.jpg)