《VB60教程课件 第11章 对话框设计》由会员分享，可在线阅读，更多相关《VB60教程课件 第11章 对话框设计（17页珍藏版）》请在金锄头文库上搜索。
1、“对话框” （Dialog Box） 可以被看作一种特殊的窗体，它通过显示和获取信息与用户进行交流。它的大小一般不可改变，也没有“最小化”和“最大化”按钮，它只有一个“关闭”按钮（有时还包含一个“帮助”按钮）。,第十一章 对话框,VB提供了三种解决方案： 系统预定义的对话框（InputBox和MsgBox） 用户自定义对话框 通用对话框控件,11.1 自定义对话框,11.1.1 由普通窗体创建自定义对话框,对话框窗体与一般窗体在外观上是有区别的，需要通过设置以下属性值来自定义窗体外观。,窗体的BorderStyle属性值设置为3（VbFixedDoubleialog）,1BorderStyle
2、属性,2ControlBox属性 属性值为True时窗体显示控制菜单框，为False时不显示。,11.1.2 使用对话框模板窗体创建对话框,Visual Basic6.0系统提供了多种不同类的“对话框”模板窗体，通过“工程”菜单中的“添加窗体”命令，即可打开“添加窗体”对话框。用户可以选择的对话框有“关于”对话框、对话框、登录对话框、日积月累、ODBC登录、选项对话框6类等，,11.1 自定义对话框,1显示自定义对话框,（1）模式对话框 模式对话框在焦点可以切换到其它窗体或对话框之前要求用户必须作出响应以关闭对话框，如单击“确定”按钮、“取消”按钮或者直接单击“关闭”按钮。 其显示方法为： 窗
3、体名. Show vbModal （其中vbModal是系统常数，值为1） （2）无模式对话框 无模式对话框的焦点可以自由切换到其它窗体或对话框，而无需用户关闭当前对话框，其显示方法为： 窗体名. Show。,11.1 自定义对话框,2关闭自定义对话框,可使用Hide方法或UnLoad语句来关闭自定义对话框，其格式为： Me.Hide 或 .Hide UnLoad 。,例10.1 设计一个如图10-1所示的更改密码对话框，要求只有通过单击“确定”、“取消”或“关闭”按钮才能切换到其它窗体或对话框。,11.1 自定义对话框,11.2 通用对话框,工程/部件,选定部件标签,选定Microsoft
4、CommDialog Control 6.0,通用对话框添加到工具箱,确定,一、通用对话框的基本属性和方法 通用对话框可以提供6种形式的对话框，通过设置Action属性值或调用Show方法来建立不同类型的对话框。如下表：,1属性 Action属性：数值型，决定打开何种类型的对话框（见上表） DialogTiltle属性：对通用话框标题。 CancelError属性：逻辑型值，表示用户在与对话框进行信息交换时，按下“取消”按钮时是否产生出错信息。 True：选择“取消”按钮，出现错误警告； Err置为32755 (cdlCancel) 。 False(缺省)：选择“取消”按钮，没有错误警告。 2
5、 通用对话框的方法 除了Acton属性，VB还提供了一组方法用来打开不同类型对话框 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp,11.2 通用对话框,属性 1 FileName(文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径） 2 FileTitle（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径）,11.2.1 “打开”/“另存为”对话框,DialogTiltle,FileName,InitDir,Filter,右键单击通用对话框按钮打开属性页,DefaultEx
6、t,FilterIndex,3 Filter（过滤器）属性：确定文件列表框中所显示文件的类型，该属性的值显示在“文件类型”列表框中。 【例如】设置3个过滤器，其值为： Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|(*.*) 则在“文件类型”列表框显示下列三种文件类型以供用户选择 Documents(*.DOC) 扩展名为DOC的Word文件 Text Files(*.TXT) 扩展名为TXT的文本文件 All Files|(*.*) 所有文件,11.2 通用对话框,4 FilterIndex（过滤器索引）属性：为整型值，表示
7、用户在文件类型列表框选定了第几组文件类型。 5 InitDir（初始化路径）属性：该属性用来指定打开对话框中的初始目录，若不设置，系统则默认为“C:My Documents”。,6DefaultExt属性：字符型，用于确定保存文件的缺省扩展名。 7CancelError属性：逻辑型值，表示用户在与对话框进行信息交换时，按下“取消”按钮时是否产生出错信息。,11.2 通用对话框,设计一个窗体，包含1个文本框（Text1）和6个分别为 “打开”（cmdOpen）、“另存为”（cmdSave）、“颜色”（cmdColor）、“字体”（cmdFont）、“打印”（cmdPrinter）和“帮助”（cm
8、dHelp）命令按钮。本例中仅涉及前两种对话框的使用，当用户要求单击“打开”就弹出打开对话框，当用户选择一文本文件，便可将该文件内容读入到文本框；当单击“另存为”就打开另存为对话框。用户输入文件名后，便可以新的文件名保存文本框的内容。,例11.2,11.2.2 “颜色”对话框 颜色对话框是当Action值为3时的通用对话框，如右图。 重要属性 Color：用来返回或设置选定的颜色。 例10.3 例10.2 中“颜色.”按钮的事件过程,Private Sub cmdColor_Click() CommonDialog1.Action = 3 打开颜对话框 Text1.ForeColor = Co
9、mmonDialog1.Color End Sub,11.2 通用对话框,11.2.3 “字体”对话框 字体对话框是Action为4时的通用对话框，如下图所示，提供用户选择字体、字号及字体样式等。 字体对话框重要的属性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline, Max等.,FontName,FontBold、FontItalic,FontSize,FontStrikethru,FontUnderline,Color,Min、Max,11.2 通用对话框,Flags属性：设置所
10、显示的字体类型，数据类型为Long。 注意 在显示“字体”对话框前，必须先将 Flags 属性设置为 cdlCFScreenFonts，cdlCFPrinterFonts，或cdlCFBoth。否则，会发生字体不存在的错误。 Flages属性应取下列值： cdlCFScreenFonts&H1屏幕字体 cdlCFPrinterFonts&H2打印机字体 cdlCFBoth&H3打印机字体和屏幕字体。 cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框,11.2 通用对话框,例11.4 例11.2中“字体.”按钮的事件过程 Private Sub cmdFont_Cli
11、ck( ) CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4 . End Sub,11.2 通用对话框,11.2.4 “打印”对话框 打印对话框是当Action为5时的通用对话框，是一个标准打印对话窗口界面，如右图。 属性 FromPage：整型，起始页号 Topage：整型，终止页号 Copies：整型，打印份数 如果打印驱动程序不支持多份 打印，该属性有可能始终返回 1。,FromPage,Topage,Copies,注意：打印对话框本身不能处理打印工作，仅仅是一个供用户选择打印参数的界面，所选
12、参数存于各属性中，再通过编程来处理打印操作。,11.2.5 “帮助”对话框 帮助对话框是当Action为6时的对话框，是一个标准的对话窗口用于制作应用程序的在线帮助。 帮助文件需要用其它的工具制作， 如Microsoft Windows Help Compiler。 属性 1 HelpCommand（帮助命令）属性：用于返回或设置需要的在线Help帮助类型。 2 HelpFile（帮助文件）属性：用于指定已制作好的帮助文件的路径及文件名 3HelpKey（帮助关键字）属性：用于指定帮助信息的内容， 帮助窗口中显示由该帮助关键字指定的帮助信息。 4 HelpContext（帮助上下文）属性：1,11.2 通用对话框,
