VB课件VB第12章幻灯片.pptVIP

（3）编写事件代码。 编写工具栏Toolbar1的ButtonClick事件代码： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Text1.FontBold = True Case 2 Text1.FontItalic = True Case 3 Text1.FontUnderline = True End Select End Sub 运行程序，结果如图12-19所示。 12.3 公共对话框 12.3.1 添加公共对话框控件 右键单击控件工具箱，在弹出菜单中选择“部件”命令，打开“部件”对话框，如图12-22（a）所示。在“部件”对话框中，选定所需的文件，按“确定”按钮即可将公共对话框控件添加到控件工具箱中，如图12-22（b）所示。 12.3.2 使用公共对话框控件 在程序运行时，公共对话框可以显示一个对话框或执行帮助的引擎，所显示的对话框由控件的“方法”决定，共有6种方法来指定相应的对话框，参见表12-5。 每种对话框都有自己特殊的属性，这些属性既可以在属性窗口中设置，也可以在代码中设置，还可以在“属性页”对话框中设置。“属性页”对话框如图12-23所示。 1．使用“打开”对话框 打开文件是Windows应用程序（如Office）中常用的操作。“打开”对话框可以用来选择文件所在的驱动器、文件夹，以及文件名、文件扩展名，如图12-24所示。 使用“打开”对话框的步骤如下。 （1）首先在窗体中增加公共对话框控件。 （2）然后在“属性页”对话框中设置属性，其中各属性描述参见表12-6。 （3）最后使用公共对话框控件的ShowOpen方法来显示“打开”对话框： 控件名.ShowOpen 2．使用“另存为”对话框 “另存为”对话框可以用来指定文件所要保存的驱动器、文件夹，以及文件名、文件扩展名，如图12-25所示。 使用“另存为”对话框的步骤同“打开”对话框。 最后使用公共对话框控件的ShowSave方法来显示“另存为”对话框： 控件名.ShowSave 3．使用“颜色”对话框 “颜色”对话框用来在调色盘中选择颜色或创建自定义颜色，如图12-26所示。 运行时，选定颜色并关闭对话框后，可用Color属性得到所选的颜色。使用“颜色”对话框的步骤如下。 （1）首先在窗体中增加公共对话框控件。 （2）然后在“属性页”对话框中设置属性，其中各属性说明参见表12-7。 （3）最后使用公共对话框控件的ShowColor方法来显示“颜色”对话框： 控件名.ShowColor 4．使用“字体”对话框 “字体”对话框用来设置并返回所用字体的名字、样式、大小、效果及颜色，如图12-27所示。 运行时选定设置并关闭对话框后，所做的设置将包含在表12-8中。 使用“字体”对话框的步骤如下。 （1）首先在窗体中增加公共对话框控件。 （2）然后在“属性页”对话框中设置属性，其中各属性说明见表12-9。 （3）最后使用公共对话框控件的ShowFont方法来显示“字体”对话框： 控件名.ShowFont 5．使用“打印”对话框 “打印”对话框可以用来设置打印输出的方法，如打印范围、打印份数、打印质量等。此外，该对话框中还显示了当前安装的打印机的信息，并允许用户重新设置默认打印机。如图12-28所示。 使用“打印”对话框的步骤如下。 （1）首先在窗体中增加公共对话框控件。 （2）然后在“属性页”对话框中设置属性，如图12-29所示。 其中“属性页”对应的属性说明见表12-10。 （3）最后使用公共对话框控件的ShowPrinter方法来显示“打印”对话框： 控件名．ShowPrinter 12.3.3 公共对话框控件的应用举例 【例12-8】 这是一个使用公共对话框控件的例子，如图12-30所示。 （1）建立应用程序用户界面并设置对象属性。 （2）编写代码。 命令按钮数组Command()的Click事件代码如下： Private Sub Command1_Click(Index As Integer) n = Index Select Case n Case 0 CommonDialog1.Filter = 所有文件(*.*)|*.*|文本文件(*.TXT)|*.txt CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName Fram