3.6 创建标准对话框
【教学目标】
1、掌握CommandDialog控件的用法； 【教学重点】
CommandDialog控件的用法 【教学难点】
CommandDialog控件的常用属性 【教具】
多媒体、计算机 【教学过程】 一、复习
1、InPut函数和MsgBox函数的应用？ 二、导入
上一章讨论了Visual Basic中InPut函数和MsgBox函数的使用方法。本节课我们来学习用CommandDialog控件的常用属性和使用方法。 三、自主学习
1. 通用对话框（CommonDialog）控件
通用对话框（CommonDialog）控件提供一组标准的操作对话框，进行诸如打开和保存文件， 设置打印选项，以及选择颜色和字体等操作。在VisualBasic6.0中，通用对话框控件不在标准控件工具箱中，需要添加“MicrisoftCommon Dialog Contro 6.0”部件。
使用通用对话框时，可在窗体的任何位置添加一个CommonDialog控件图标，在程序运行时不会显示。成语运行时想要显示通用对话框，应该调用CommonDialog控件的以下方法。
ShowOpen：显示“打开”对话框。 ShowSave：显示“另存为”对话框。 ShowColor：显示“颜色”对话框。 ShowFont：显示“字体”对话框。
ShowPrinter：显示“打印”对话框。 ShowHelp 方法：显示“帮助”对话框。 （1）
显示“打开”对话框。在程序运行时，通过使用对话框的ShowOpen
方法，可以显示“打开”对话框。需要指出的是，“打开”对话框并不能真正打开文件，而仅仅是让用户选择所要打开的文件，至于选择以后的处理，要通过编程来解决。
使用“打开”对话框时，需要设置通过对话框控件的以下属性： FileName：指定在“文件名”文本框中初始显示的文件名，返回选定的标识符。
FileTitle：关闭对话框后，返回所选择不包括路径的文件名。
Filter：文件类型过滤器，用于设置对话框中的“文件类型”下拉列表框中的项目及过滤显示的文件，Filter属性的格式如下。
描述1|过滤类型1[描述2| ]过滤类型2[?]
其中描述的是指“文件类型”下拉列表框中的内容，过滤类型是指对话示的文件类型。
InitDir：指定对话框打开时的默认路径。
（2） “颜色”对话框。程序运行时，通过调用通用对话框的ShowColor方法或将Action属性值设置为3。来显示“颜色”对话框，“颜色”对话框可以让用户从调色板中选择颜色，并通过Color属性返回用户选定的颜色值。
（3） “字体”对话框。在程序运行时，通过调用通用对话框的ShowFont方法，可以显示“字体”对话框。“字体”对话框可以让用户设置应用程序所需要的字体。
2、错误处理
在本任务中，进行错误处理时用到了On Error语句和Err对象。 1） On Error语句用于设置错误陷阱，该语句有多种格式，本任务使用以下格式：
On Error GoTo nofile
本格式用于设置当系统错误产生后，程序将跳转到哪一行继续执行。 2）Err对象是一个包括关于运行错误信息的对象。其主要属性是Number属
性，该属性列出错误的序号，0表示没有产生错误。如果在通用对话框中设置其CanelError属性为True时，单击“取消”按钮将产生32755号错误。
四、合作探究
编程设计：创建一个应用程序，当运行程序时，单击“改变图标”按钮，弹出“打开”对话框，选择图标文件，改变窗体标题栏上得图标并在窗体显示图标文件的路径；单击“设置颜色”annii，弹出“颜色”对话框，可改变窗体上文本的颜色；单击“设置字体”按钮，弹出“字体”对话框，可设置窗体上文本的字体、样式、大小及文本的颜色。
设计步骤：
1、在Visual Basic集成开发环境中新建一个EXE工程，并把窗体文件和工程文件分别命名并保存。
2、把窗体Form1调整到所需的大小，并将其Caption属性值设置为“通用对话框应用示例”。
3、在窗体上添加一个标签控件，保留其默认名称，调整其位置、大小，然后将其Caption属性清空。
4、通过以下操作在工具箱中添加通用对话框控件。 1）从“工程”菜单中选择“部件”命令。 2）在“部件“对话框中切换到”控件“选项卡。
3）选择“Microsoft Common Dialog Control 6.0”复选框。 4）单击“确定”按钮。
此时，将在工具箱中添加一个CommonDiglog控件。
5）在工具箱中双击CommonDialog控件，在窗体Form1上添加一个CommonDialog控件，其名称默认为CommonDialog1，控件大小自动调整。
6）在工具箱中单击CommandButton控件图标，在窗体Form1上拖动鼠标以添加3个命令按钮控件，名称分别是Command1、Command2、Command3，调整控件位置及大小；；在属性窗口中分别将它们的Caption属性值设置为“改变图标”、“设置颜色”、“设置字体”。
至此，应用程序用户界面的设计已完成。
7、在窗体Form1的代码窗口中编写以下代码。 Private Sub Form_Click() On Error GoTo nofile
commondia1ong1.initdir = \
commondia1ong1.Filter = \图标文件(*.ico)︳*.ico\commondia1ong1.cancelerror = True commondialongl.showopen
labell.Caption = forml.commondialog1.FileName Form1.lcon = LoadPicture(commondialong1.FileName) Exit Sub nofile:
If Err.Number = 327755 Then labell.Caption = \放弃操作\ Else
labell.Caption = \其他错误\ End If End Sub
Private Sub command2_click() On Error GoTo nofile
commondialong1.cance1error = True commondialong1.showcolor
BackColor = commondialong1.Color nofile: End Sub
Private Sub command3_click() On Error GoTo nofile
forml.commondialong1.cancelerror = ture commondialog1.flags = cd1cfeffects Or cdlceboth commondialog1.FontName = labell.FontName
commondialong1.FontSize = labell.FontSize commondialong1.FontBold = labell.FontBold
commondialong1.FontStrikethru = labell.fontstikethru commondialong1.FontUnderline = labell.FontUnderline commondialong1.fontitalic = labell.FontItalic commondialog1.showfont
label1.FontName = commondialog1.FontName label1.FontSize = commondialog1.FontSize label1.FontBold = commondialog1.FontBold label1.fontitalic = commondialog1.fontitalic labell.FontUnderline= commondialong1.FontUnderline labell.fontstikethru= commondialong1.FontStrikethru label1.forecolor=commondialog1.color nofile: End Sub
8、保存所有文件。 9、按F5运行程序。
10、通过单击“改变图标”按钮，弹出“打开”对话框，选择图标文件，改变窗体标题栏上得图标，在窗体上显示图标文件的路径。单击“设置颜色”按钮，弹出“颜色”对话框，改变窗体上文本的颜色。单击“设置字体”按钮，弹出“字体”对话框，用于设置窗体上文本的字体、样式、大小及文本的颜色。 五、课堂小结
本节课主要通过设计小程序，熟悉了CommandDialog控件的用法和属性。
相关推荐：
loading