新VB语言程序设计教程 教学课件 杨忠宝 康顺哲 第07章 Visual Basic高级控件.pptVIP

第7章Visual Basic高级控件 7.1 高级控件简介 7.2 通用对话框(CommonDialog)控件 7.3 图像列表(Imagelist)控件 7.4 工具栏控件 7.5状态栏( StatusBar)控件 7.6进度条(ProgressBar)控件 7.7 树视图(TreeView)控件 7.8 列表视图(ListView)控件 7.9 选项卡(TabStrip)控件 7.10 图像组合(ImageCombo)控件 7.11 滑块(Slider)控件 7.12 绘图 7.1 高级控件简介 7.2 通用对话框(CommonDialog)控件 Visual Basic通用对话框控件向用户提供 “文件打开”、“文件保存”、“文件打印”、“颜色设置”、“字体设置”、“帮助”6项功能，每项功能均用单独的一个对话框实现。 表7-1 CommonDialog方法 7.2.1 ShowOpen方法 ShowOpen方法用于显示“打开”对话框 调用该方法的格式为：CommonDialog. ShowOpen 【例7.1】 用ShowOpen方法显示“打开”对话框，将文件名显示于窗体上。 7.2.2 ShowSave方法 ShowSave方法用于显示保存文件对话框 调用格式：CommonDialog. ShowSave。ShowSave方法用于显示“另存为”对话框如图， 7.2.3 ShowColor方法 ShowColor方法用于显示“颜色”对话框 格式：CommonDilog.ShowColor 使用步骤： (1) 将CommonDialog控件的Flags属性设置成Visual Basic常数cdlCCRGBInit。 (2) 用 ShowColor 方法显示对话框。可用 Color 属性获取选定颜色的 RGB 值。 【例7.2】单击“Command1”命令按钮时，显示“颜色”对话框，将窗体的背景颜色设置成选定的颜色。 代码如下： Private Sub Command1_Click () 设置 Flags 属性。 CommonDialog1.Flags = cdlCCRGBInit 显示“颜色”对话框。 CommonDialog1.ShowColor 将窗体的背景颜色设置成选定的颜色。 Form1.BackColor = CommonDialog1.Color End Sub 7.2.4 ShowFont方法 使用“字体”对话框，“字体”对话框根据大小、颜色、样式选择字体。 格式：CommonDilog.ShowFont。 显示“字体”对话框步骤： (1) 将 Flags 属性设置为下述Visual Basic常数之一： CdlCFEffects(全部对话框，包括自定义颜色) cdlCFScreenFonts(屏幕字体) cdlCFPrinterFonts(打印机字体) cdlCFBoth(既可以是屏幕字体又可以是打印机字体) (2) 用 ShowFont 方法显示对话框。 【例7.3】根据用户在“字体”对话框中的选择来设置文本框的字体属性。 7.2.5 ShowPrint方法 ShowPrint方法用于显示“打印”对话框 调用格式：CommonDialog. ShowPrinter 表7-3 打印对话框属性 要显示“打印”对话框步骤： (1) 通过设置相应的“打印”对话框属性，为对话框设置所需缺省设置值。例如，为在显示对话框时在“份数”框中显示 2，应将 Copies 属性设置为 2,CommonDialog1.Copies = 2 (2) 用ShowPrinter方法显示“打印”对话框。 【例7.4】用户单击“Command1”命令按钮时，显示“打印”对话框。 代码如下： Private Sub mnuFileOpen_Click() Dim BeginPage, EndPage, NumCopies, Orientation, i CommonDialog1.ShowPrinter显示打印对话框。 从对话框中获取用户选定数值。 BeginPage = CommonDialog1.FromPage EndPage = CommonDialog1.ToPage NumCopies = CommonDialog1.Copies Orientation = CommonDialog1.Orientation End Sub 7.2.6 ShowHelp方法 用CommonDialog控件的ShowHelp方法显示帮助文件。 格式：CommonDialog.ShowHelp 【例7.5】设计单击“Command1”命令按钮，显示指定的帮助文件。 P