《Visual Basic程序设计教程（第二版）》课件9.ppt

《《Visual Basic程序设计教程（第二版）》课件9.ppt》由会员分享，可在线阅读，更多相关《《Visual Basic程序设计教程（第二版）》课件9.ppt（61页珍藏版）》请在汇文网上搜索。

1、【本章导读本章导读】本章介绍了通用对话框的的使用，菜单的设计，多重窗体本章介绍了通用对话框的的使用，菜单的设计，多重窗体和多文档界面以及键盘与鼠标事件过程。在通用对话框使用和多文档界面以及键盘与鼠标事件过程。在通用对话框使用中着重讲述中着重讲述“文件文件”对话框，对话框，“打印打印”对话框和对话框和“字体字体”对对话框；通过例子具体讲解菜单编辑器的使用，以及怎么处理话框；通过例子具体讲解菜单编辑器的使用，以及怎么处理动态菜单和弹出式菜单；认识多文档界面，了解多文档界面动态菜单和弹出式菜单；认识多文档界面，了解多文档界面和多重窗体的区别，并给出了具体例子；最后还介绍了键盘和多重窗体的区别，并给出

2、了具体例子；最后还介绍了键盘和鼠标事件过程，通过实际例子的讲解认识和鼠标事件过程，通过实际例子的讲解认识KeyPress事件，事件，KeyDown事件，事件，KeyUp事件和鼠标事件等。事件和鼠标事件等。第第9 9章章 界面设计界面设计第第9章章 界面设计界面设计【本章要点本章要点】通用对话框的的使用通用对话框的的使用菜单的设计菜单的设计多重窗体多重窗体键盘与鼠标事件过程键盘与鼠标事件过程9.1 通用对话框通用对话框 通用对话框控件是一个通用对话框控件是一个AcitveX部件，由于通用对话部件，由于通用对话框控件不是框控件不是Visual basic的标准控件，并不会直接显示在程的标准控件，并

3、不会直接显示在程序主界面中，所以要使用该控件编辑程序必须将它先添加序主界面中，所以要使用该控件编辑程序必须将它先添加到工具箱中，使用时和使用一般标准控件一样，将它添加到工具箱中，使用时和使用一般标准控件一样，将它添加到窗体中使用。具体方法如下所述。到窗体中使用。具体方法如下所述。（1）单击菜单栏上的单击菜单栏上的“工程工程“|“部件部件”命令，或者在命令，或者在工具箱上单击鼠标右键，弹出如图工具箱上单击鼠标右键，弹出如图9-1所示的所示的“部件部件”对话对话框。框。（2）单击单击“部件部件”对话框的对话框的“控件控件”选项卡，从列出来选项卡，从列出来的控件列表中找到的控件列表中找到“Micro

4、soft Common Dialog Control 6.0”选项，在其前面的方框内打上对勾选中。选项，在其前面的方框内打上对勾选中。9.1.1“文件文件”对话框对话框 在通用对话框中，用于获取文件的操作有两种：打开文在通用对话框中，用于获取文件的操作有两种：打开文件和保存文件。分别使用件和保存文件。分别使用ShowOpen方法或方法或ShowSave方法显方法显示的示的“打开打开”文件对话框和文件对话框和“另存为另存为”文件对话框。尽管作用文件对话框。尽管作用不一样，但其外观及其属性基本一致，与熟悉的不一样，但其外观及其属性基本一致，与熟悉的Word界面的界面的“打开打开”文件对话框或文件对

5、话框或“另存为另存为”文件对话框的外观和作用类文件对话框的外观和作用类似。似。通用对话框仅用于应用程序与用户之间的信息交互，是输通用对话框仅用于应用程序与用户之间的信息交互，是输入输出界面，不能实现打开文件、存储文件以及其他具体的入输出界面，不能实现打开文件、存储文件以及其他具体的操作，如果需要实现相关的操作功能还需要编辑程序代码来操作，如果需要实现相关的操作功能还需要编辑程序代码来实现。实现。9.1.1“文件文件”对话框对话框属性属性“属性窗口属性窗口”属性属性功能功能对话对话框框标题标题DialogTitle用来用来给给出出对话对话框的框的标题标题内容，默内容，默认值为认值为“打开打开”。

6、文件名称文件名称FileName设设置和返回置和返回选选中的文件名中的文件名初始化路径初始化路径InitDir用来用来设设置和返回置和返回选选中的目中的目录录名，默名，默认值认值是当前目是当前目录录过滤过滤器器Fileter用来用来设设置置显显示的文件示的文件类类型，如文本文件（型，如文本文件（*.txt）标标志志Flags用来用来设设置置对话对话框的一些框的一些选项选项缺省缺省扩扩展名展名DefaultExt用来用来显显示在示在对话对话框的默框的默认扩认扩展名，即指定默展名，即指定默认认的文的文件件类类型型文件最大文件最大长长度度MaxFileSize用来指定用来指定FileName的最大的

7、最大长长度，默度，默认值认值 为为256过滤过滤器索引器索引FilterIndex用来指定在用来指定在对话对话框的框的“文件文件类类型型”列表中列表中显显示的默示的默认认过滤过滤符符取消引取消引发错误发错误CanceError用来用来设设置置选择选择“取消取消”按按钮时钮时，是否，是否产产生生错误错误信息信息“打开打开另存为另存为”选项卡设置属性选项卡设置属性9.1.1“文件文件”对话框对话框1“打开打开”对话框对话框“打开打开”对话框主要是应用程序打开文件操作，即在使用应对话框主要是应用程序打开文件操作，即在使用应用程序的过程中，要调用或使用某个文件时需要调用的对话框。用程序的过程中，要调用

8、或使用某个文件时需要调用的对话框。9.1.1“文件文件”对话框对话框9.1.1“文件文件”对话框对话框【例例9.1】设计一个应用程序。在运行时单击设计一个应用程序。在运行时单击“打开打开”按钮按钮显示显示“打开打开”对话框，可选择相应的文件，将选中的文件内对话框，可选择相应的文件，将选中的文件内容显示在窗体中相对应的控件中。容显示在窗体中相对应的控件中。具体属性设置：参见书上表具体属性设置：参见书上表9-49.1.1“文件文件”对话框对话框Private Sub cmdOpen_Click()Dim filestr,filestr1 As StringcdlOpen.Action=1 设置通用

9、对话框为设置通用对话框为“打开打开”对话框对话框filestr=字符串变量字符串变量，用于读取文件，用于读取文件 Open cdlOpen.FileName For Input As#1 读取文件读取文件 Do While Not EOF(1)从文件中逐个读出，并存入到从文件中逐个读出，并存入到FileStr中中 Line Input#1,filestr1 filestr=filestr+filestr1 Loop txtWrite.Text=filestr 将文件内容显示在文本框中将文件内容显示在文本框中 Close#1End Sub9.1.1“文件文件”对话框对话框9.1.1“文件文件”对

10、话框对话框2.“另存为另存为”对话框对话框建立建立“另存为另存为”对话框的过程和建立对话框的过程和建立“打开打开”对话框的过程对话框的过程大致相同。用于提供应用程序保存文件操作时弹出所使用对话大致相同。用于提供应用程序保存文件操作时弹出所使用对话框。框。【例例9.2】在例在例9.1的基础上，增加一个的基础上，增加一个“保存保存”命令按钮，实现命令按钮，实现打开打开“保存保存”对话框的操作。对话框的操作。9.1.1“文件文件”对话框对话框Private Sub cmdSave_Click()cdlSave.ShowSave 设置通用对话框为设置通用对话框为“保存保存”对话框对话框cdlSave.

11、DialogTitle=保存文件保存文件 cdlSave.Filter=AllFiles|*.*|文本文件文本文件(*.txt)|*.txt|工程文件工程文件(*.vbp)|*.vbpcdlSave.FilterIndex=2cdlSave.InitDir=C:WindowOpen cdlSave.FileName For Output As#1Print#1,txtWrite.Text 将文本框中的内容另存将文本框中的内容另存 Close#1End Sub9.1.1“文件文件”对话框对话框9.1.2“打印打印”对话框对话框 当通用对话框的当通用对话框的Action属性值为属性值为5或者使用或

12、者使用ShowPrinter方法方法时，通用对话框作为时，通用对话框作为“打印打印”对话框使用。对话框使用。“打印打印”对话框为用户提供标准的打印对话窗口界面，并不对话框为用户提供标准的打印对话窗口界面，并不能处理打印工作，只是一个提供用户选择打印参数的界面。所能处理打印工作，只是一个提供用户选择打印参数的界面。所选参数存在与各属性中，由程序代码来处理打印操作。选参数存在与各属性中，由程序代码来处理打印操作。9.1.2“打印打印”对话框对话框【例例9.3】给例给例9.1中的应用程序添加打印设置功能。中的应用程序添加打印设置功能。在原窗体的基础上添加一个命令按钮控件在原窗体的基础上添加一个命令按

13、钮控件Command3，其名，其名称为称为“cmdPrint”，Caption属性为属性为“打印打印”；添加一个通用对；添加一个通用对话框控件，其名称为话框控件，其名称为“cdlPrint”。程序执行界面如图。程序执行界面如图9-7所示。所示。9.1.2“打印打印”对话框对话框9.1.2“打印打印”对话框对话框Private sub cmdprint_click()Dim I AS IntegercdlPrint.Flags=&H256 cdlPrint.ShowPrinter For i=1 To cdlPrint.Copies Printer.print txtWrite.text Nex

14、t iPrinter.EndDOC End Sub9.1.2“打印打印”对话框对话框9.1.3 “字体字体”对话框对话框 当通用当通用对话对话框的框的Action属性属性值为值为4调调用用ShowFont 方法方法时时，通用通用对话对话框作框作为为“字体字体”对话对话框，框，该对话该对话框列出了系框列出了系统统中可使用中可使用的字体列表及可定制的属性的字体列表及可定制的属性，例如大小，例如大小，样样式等供用式等供用户选择户选择。9.1.3 “字体字体”对话框对话框“字体字体”对话框的主要属性有：对话框的主要属性有：（1）Flags属性。属性。在显示在显示“字体字体”对话框之前必须设置对话框之前

15、必须设置Flags属性，否则将发生不存在字体的错误属性，否则将发生不存在字体的错误，Flags属性参见下属性参见下表表9-5所示：常数所示：常数cdlCFEffects不能单独使用，应与其他常数不能单独使用，应与其他常数一起进行一起进行“or”运算使用，因为它的作用仅仅是在对话框上附运算使用，因为它的作用仅仅是在对话框上附加删除线和下划线复选框以及颜色组合框。加删除线和下划线复选框以及颜色组合框。9.1.3 “字体字体”对话框对话框表表9-5 Flags主要控件属性设置主要控件属性设置常数常数值值描述描述CdlCFSreenFonts&H1只列出系只列出系统统支持的屏幕字体支持的屏幕字体Cdl

16、CFBoth&H3列出可用的打印机和屏幕字体。列出可用的打印机和屏幕字体。CdlCFHelpButton&H4显显示帮助按示帮助按钮钮CdlCFEffects&H100制定制定对话对话框允框允许删许删除除线线，下划，下划线线，以及，以及颜颜色效果色效果CdlCFApply&H200使用使用对话对话框的框的“应应用用”按按钮钮有效有效CdlCF&H2000只能在由只能在由Min和和Max属性属性规规定的范定的范围围内内选择选择字体大小字体大小CdlCFTTonly&H4000只允只允许选择许选择TrueType型字体型字体9.1.3 “字体字体”对话框对话框【例例9.4】建立一个应用程序，将通用对话框控件设定为建立一个应用程序，将通用对话框控件设定为“字体字体”对话框。并在执行后，单击窗体上的对话框。并在执行后，单击窗体上的“字体字体”按钮，设置文本框按钮，设置文本框的字体。的字体。主要控件属性设置主要控件属性设置对对 象象属属 性性属属 性性 值值功能功能TextBox（名称）（名称）Text1显显示内容示内容Text送送别别 山中相送山中相送罢罢，暮色掩柴，暮色掩柴扉。春草年年扉。春