Visual Basic程序设计 教学课件 作者 沈美莉 陈孟建 马银晓 第9章对话框和菜单.ppt

第 2 章 VB语言基础 学习目标 1.掌握对话框的定义 2.掌握常用对话框的应用； 3.掌握通用对话框的使用方法与技巧； 4.了解菜单的一般概念； 5.掌握菜单编辑器的使用方法与技巧。 9.1.1自定义对话框 对话框是实现人机对话的最常用的方式，除了可以设计用户对话框外，Visual Basic还提供了一组基于Windows的通用对话框控件（CommonDialogBox），用户可以利用通用对话框控件在窗体上创建6种对话框，分别为“打开”（Open）、“另存为”（Save As）、“颜色”（Color）、“字体”（Font）、打印”（Printer）和“帮助”（Help）对话框。 1.案例 编写一个可在文本框中设置字体、字型、字号、字颜色、背景颜色等功能的对话框。 【案例分析】 编写这样的程序，我们必须使用通用对话框控件，该控件需要用户添加到工具箱中去（详细步骤下面会介绍的）。然后，添加该控件，添加文本框，并设计菜单和布置窗体如图9-1所示。 【解题过程】 （1）窗体布局设计 ① 在当前窗体下设计一个菜单，设置3菜单项，第一项标题：文字，名称：word、第二项标题：文字颜色，名称color、第三项标题：背景颜色，名称brck。 ② 添加一个文本框，其Scrollbars的属性设置为vertical。 ③ 添加通用控件：单击“工程”模块下的部件，添加microsoft Common dialog 6.0(sp6)。 （2）文字段 Private Sub word_Click() CommonDialog1.Flags = 257 CommonDialog1.ShowFont Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontUnderline = CommonDialog1.FontUnderline End Sub （3）文字颜色段 Private Sub color_Click() CommonDialog1.ShowColor Text1.ForeColor = CommonDialog1.color End Sub （4）文字背景颜色段 Private Sub brck_Click() CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.color End Sub 【运行结果】 执行以上程序后，在文本框中输入文字内容，并选择文字菜单选项后，出现如图9-2所示。 如果选择了文字颜色或背景颜色，则出现如图9-3所示。 9.1.2对话框的定义 1．由普通窗体创建 通过创建包含控件的窗体来自己设计对话框。 2．由对话框模板创建 9.1.3 显示与关闭对话框 1．显示“自定义“对话框 显示“自定义”对话框可以使用窗体对象的Show方法显示“自定义”对话框 2．关闭“自定义“对话框 关闭“自定义”对话框可以使用Hide方法或UnLoad语句来关闭自定义对话框，其格式如下： Me.Hide 或 窗体名.Hide UnLoad 窗体名 9.2 通用对话框 9.2.1 设置通用对话框控件 除了可以设计用户“自定义”的对话框外，Visual Basic还提供了一组基于Windows的通用对话框控件（CommonDialogBox） ，用户可以利用通用对话框控件在窗体上创建6种对话框，分别为“打开”（Open）、“另存为”（Save As）、“颜色”（Color）、“字体”（Font）、“打印”（Printer）和“帮助”（Help）对话框。 （1）单击“工程”菜单模块下的“部件”选项，或者用鼠标右键单击工具箱，在弹出的菜单中选择“部件”，打开“部件”对话框，如图9-6所示。 （2）在“部件”对话框中，选中“Microsoft Common Dialog Control 6.0 ”。 （3）单击“确定”按钮后，即在工具箱内产生一个“通用”控件图标“”。 把通用对话框添加到工具箱以后，就可以像使用标准控件一样把它添加到窗体上。缺省情况下通用对话框的名称为CommonDialog1、CommonDialog2、……。 在程序的设计状态，窗体上显示通用对话框图标。在程序的运行状态，窗体上的通用对话框图标是看不到的，在程序中通过对Action属性的设置或调用Show方法来调出所需要的对话框。 9.2.4 通用对话框应用 【案例9.2】 利用通用控件对话框来编写一个输入学