主题对话框和菜单 - 第十四讲

1、对话框：人机对话的场所预定义对话框：消息框和输入框用户对话框公共对话框菜单设计：增强应用程序的功能，使应用程序更加专业化，用户操作更加方便。下拉式菜单弹出式菜单用作函数返回值为字符f = InputBox(输入图片文件名)Image1.Picture = LoadPicture(f)r = Val(InputBox(输入半径)Print 面积-=; 3.14 * r 2可以用作命令方式或函数方式命令方式：没有括号函数方式：出现在赋值语句等号的右边函数方式的返回值为1-7的整数或用VB常数表示，可以进行程序流程控制Do r = Val(InputBox(输入半径) a = MsgBox(输入正确

2、吗？, vbYesNo) If a = vbYes Then Exit DoLoopPrint 面积-=; 3.14 * r 2VB常量返回值描述vbOk1 OkvbCancel2CancelvbAbort3AbortvbRetry4RetryvbIgnore5IgnorevbYes6YesvbNo7No从本质上讲，对话框是一种特殊类型的窗体， 根据需要，引入必要的控件，构成用户与计算机的对话界面。为使窗体具有对话框的特征，通常将窗体设计为大小固定、无最大化、最小化按钮。BorderStyle：1或3ControlBox：False（标题栏不含图标和控制按纽）创建好对话框后，通过Show的方法

3、装入并显示对话框。显示对话框分为模态1和非模态0两种。模态（模式对话框）：必须关闭对话框才能转移焦点非模态（非模式对话框）：焦点可自由转移（默认）格式：窗体名.Show 1|0例子：登录对话框的设计Tips：可以直接添加VB定制的窗体思考：预定义对话框能自己设计出来吗？如何设计为MyInput和MyMsg两个自定义的对话框函数？CommonDialogWindows应用程序中的一些常用的对话框可以从系统直接调用打开对话框 open另存为对话框 save as颜色对话框 color字体对话框 font打印对话框 printwindows帮助对话框 help通过公共对话框控件进行调用添加公共对话框

4、控件到工具箱菜单命令工程|部件 Microsoft Common Dialog Control 6.0将公共对话框引入窗体，表现为一个图标，大小不可调默认名称为CommonDialog1、CommonDialog2，建议名称前缀为cdl 运行时不可见，在程序中设定它的Action属性或运用相应的方法，使公共对话框显示为相应的系统对话框直接在属性窗口中设置右击公共对话框控件，单击“属性”属性窗口，双击“自定义”在属性页窗口对系统对话框属性进行设置Action 属性属性 方法方法 对话框类型对话框类型 1 ShowOpen 打开 2 ShowSave 另存为 3 ShowColor 颜色 4 Sh

5、owFont 字体 5 ShowPrinter 打印 6 ShowHelp 显示帮助文件 Action属性设计时不可用。属性设计时不可用。 DialogTitle属性：公共对话框都有各自的默认标题，通过DialogTitle属性可以重设公共对话框的标题。（注意：当显示“颜色”、“字体”或“打印”对话框时，CommonDialog 控件忽略 DialogTitle 属性的设置。）CancelError属性：设置当用户单击公共对话框中的“取消”按纽时是否让系统发出错误信息。默认为False，不发出错误信息。FileName属性：设置“打开”对话框中的“文件名”的默认值；程序运行后返回用户是选择的文

6、件名InitDir属性：设置“打开”对话框的初始文件目录Filter属性：文件过滤器，设置“打开”对话框中显示的文件类型。Filter的设置由一组或多组类型表达式组成，每组代表一种文件类型，构成规则是“类型说明文字|类型通配表达式”，各组之间用“|”分隔。例如：设置显示两类文件，位图文件和jpg文件，Filter属性应该设置为：位图文件|*.bmp|jpg文件|*.jpgFilterIndex属性：设置默认的文件过滤器。例如将FilterIndex属性设置为2，则Filter属性中的第二组为默认的文件过滤器Flags属性：设置“打开”对话框的选项。例如，当Flags设置为&H1时，默认

7、以“只读”方式打开文件添加公共对话框控件设置有关属性DialogtTitle：打开图片InitDir：D: PictureFilter：位图文件|*.bmp|jpg文件|*.jpg FilterIndex：2代码：CommonDialog1.Action = 1Image1.Picture = LoadPicture(CommonDialog1.FileName)“另存为”对话框的常用属性与“打开”对话框的属性基本相似 “打开”或“另存为”对话框的操作结果仅仅是改变了FileName属性，并不能真正打开或保存一个文件。文件的打开或存储必须编写程序来实现！代码：CommonDialog1.Act

8、ion = 2SavePicture Picture1.Image, CommonDialog1.FileName注意：设置Picture1的AutoRedraw为True也可以保存Picture1.Picture“打开”对话框和“另存为”对话框实际上是一样的，都是指定一个文件，操作还是要通过其他语句实现。Color属性：设置初始颜色并在运行时获取选择的颜色Flags属性：设置“颜色”对话框的选项。例如，当Flags设置为&H4时，禁止使用自定义颜色例子：打开“颜色”对话框，并将选择的颜色作为窗体的背景色。 CommonDialog1.ShowColor BackColor = Com

9、monDialog1.Color例7-2 ：主题作业选题之一：小画板程序的进一步改进 （打开、保存、颜色）还有下面介绍的菜单Flags属性：设置“字体”对话框的选项。显示“字体”对话框之前必须设置该属性。通常将Flags设置为&H1，使“字体”对话框列出可用的屏幕字体。如果将Flags设置为&H100 Or &H1（即257），那么“字体”对话框在列出可用的屏幕字体的同时将显示“删除线”、“下划线”和“颜色”等用于增强效果的选项Color属性：返回颜色。仅当Flags设置了&H100时有效FontName属性：返回字体名FontSize属性：返回字体大小Font

10、Bold属性：返回是否选择“粗体”FontItalic属性：返回是否选择“斜体”FontUnderLine属性：返回是否选择“下划线”FontStrike属性：返回是否选择“删除线”课堂实践：设计一个“字体”对话框，用来设置文本框中字体格式。 “打印”对话框：用于设置打印选项和输出方式。如设置打印范围、打印份数等。显示帮助文件：将运行Windows的Winhlp32.exe程序来显示指定的帮助文件。界面设计：菜单编辑器菜单是改善用户界面的主要手段，而且已成为许多应用程序的标准功能。菜单栏出现在窗体标题栏的下面，包含一个或多个菜单标题。功能设计：编写菜单项的Click事件菜单示范对象窗口，菜单对

11、象窗口，菜单工具工具菜单编辑器菜单编辑器标题中输入菜单项名称，出现在菜单栏上。 对需要使用访问键的菜单项，可以在菜单项名称中热键字母前加上符号&。如果要用分割条分割菜单项，在标题中输入减号-输入相应菜单项的标识名称，建议用mnu打头，用来进行程序代码设计，mnu?_Click事件，每个菜单项看作一个控件。用来建立菜单项控件数组的下标，它们有相同的标识名称定义运行菜单命令的快捷键。与访问键的区别：快捷键可以在运行阶段随时使用，访问键必须打开菜单后才可使用Private Sub mnuhei_Click() Label1.FontName = 黑体黑体End SubPrivate Sub

12、mnuxie_Click() mnuxie.Checked = Not mnuxie.Checked Label1.FontItalic = mnuxie.CheckedEnd SubPrivate Sub mnucolor_Click() CommonDialog1.ShowColor Label1.ForeColor = CommonDialog1.ColorEnd Sub弹出式菜单是独立于菜单栏显示在窗体上或指定控件上的浮动菜单，菜单的显示位置与鼠标的当前位置有关。 语法：对象. PopUpMenu 菜单项名该菜单项下应有子菜单一般将该菜单项设置为不可见一般将该菜单项设置为不可见弹出时只

13、显示该菜单项下的子菜单弹出时只显示该菜单项下的子菜单一般应用程序总是右键弹出菜单，所以程序格式一般为：If Button=2 Then 对象对象. PopUpMenu 菜单项名菜单项名 End If P.187 例6-6可以对文本进行编辑和格式化提高：引入RichTextBox控件，RichTextBox控件可以用来输入和编辑文本，但它提供了比文本框更高级的格式特征。例如，可以将RichTextBox控件中的任何文本设为粗体、斜体或带下划线，改变文本颜色，创建上标或下标，调整段落的左右缩进量，产生悬挂效果等。RichTextBox控件是ActiveX控件，使用之前先要添加到工具箱中。单击菜单命

14、令工程|部件，选中“Microsoft Rich TextBox Control 6.0”复选框；再将RichTextBox控件添加到窗体上。 RichTextBox控件支持RTF格式，可以通过LoadFile和SaveFile方法直接读写RTF格式或文本格式的文档语法格式：RichTextBox控件名.LoadFile strFileName ，方式功能：打开strFileName指定的文档文件；方式为0时，打开RTF文件；方式为1时，打开文本格式文件；缺省打开方式默认为0。语法格式：RichTextBox控件名.SaveFile strFileName ，方式功能：将RichTextBox控件中的文本保存为strFileName指定的文档文件；方式为0时，保存为RTF文件；方式为1时，保存为文本格式文件；缺省保存方式默认为0。RichTextBox控件的常用属性有SelFontName、SelFontSize、SelColor、SelBold、SelItalic、SelStrikethru