vb菜单和对话框.ppt

1、菜单、对话框和多窗体设计,第三阶段之一,1、5.4小节2、菜单的使用下拉菜单和弹出式菜单3、对话框的分类和使用4、多窗体程序设计,本节任务：,5.4.1 菜单和对话框程序设计 例5-15 设计一个包含菜单的窗体，其中主菜单为文件和编辑菜单，文件菜单包含新建、打开、保存、退出四个下拉菜单，编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体菜单又包含黑体、宋体、楷书三个下拉菜单。效果如下图所示：,VB菜单包含下拉菜单和弹出式菜单，用菜单编辑器可以非常方便的建立菜单。 操作步骤： （1）从“工具”菜单上，选取“菜单编辑器”，进入对话框；,（2）菜单属性设置 表5-10 菜单属性设置,（3）属性与代

2、码设计 菜单属性设置好后，要给每个需要完成某些功能的菜单项编写对应的代码。 先给窗体内添加一个文本框Text1，Text1的属性如下表所示。,单击“编辑”菜单下的“字体”子菜单，选择“黑体”，弹出对应的“单击”事件代码编辑窗口，黑体菜单的名称为在设计时输入的名称“Font1”。 “黑体”子菜单“单击”事件代码： Private Sub Font1_Click() Text1.FontName= 黑体 End Sub 按照上述步骤依次选择“宋体”、“楷体”子菜单，完成相应的代码编写。,例5-16在例515的基础上增加一个弹出式菜单，包含“剪切”、“复制”和“粘贴”功能，右击文本框时弹出该快捷菜单

3、。,操作步骤： （1）在菜单编辑器里新增一个菜单，保证该菜单为顶层菜单项，即无缩进符号。标题设定为“Edit”(该标题和名称可任意设定，因为它在快捷菜单弹出时不显示)。 （2）将“Edit”菜单的可见属性设置为False。 （3）单击“下一个”命令按钮，标题文本框中输入“剪切”，编辑对应的名称，单击按钮，将“剪切”菜单设置为“Edit”菜单的下一级菜单。 （4）参照步骤3完成“复制”和“粘贴”菜单的设置。 （5）使用PopupMenu方法来显示弹出式菜单。 语法格式：对象.PopupMenu 菜单名,（6）需要在文本框的Mousedown事件里编写对应的代码。具体代码如下：,Private S

4、ub Text1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Text1.Enabled = False Text1.Enabled = True PopupMenu edit End If End Sub,剪切的Click事件代码： Clipboard.Clear 清空剪贴板的内容 将文本框中所选的内容复制给剪贴板 Clipboard.SetText Text1.SelText Text1.SelText = “ ” 删除所选 mnueditpaste

5、.enable=true 粘贴恢复为可用 复制的Click事件代码： Clipboard.Clear Clipboard.SetText Text1.SelText mnueditpaste.enable=true 粘贴的Click事件代码： Text1.SelText = Clipboard.GetText(),例5-17 将“文件”菜单里“打开”和“保存”菜单功能补充完整。 问题分析： 本例涉及到两种通用对话框的使用，当单击“打开”就弹出打开对话框，当用户选择一文本文件，便可将该文件内容读入到文本框；当单击“保存”就打开另存为对话框。用户输入文件名后，便可以新的文件名保存文本框的内容。,通

6、用对话框不是标准控件，使用时必须先将该控件添加到工具箱里。步骤如下,工程/部件,选定部件标签,选定Microsoft CommDialog Control 6.0,确定,通用对话框可以提供6种形式的对话框，通过设置Action属性值或调用Show方法来建立不同类型的对话框。如下表：,比如：使用打开文件对话框，在运行时打开一幅图像,Private Sub Command1_Click() CommonDialog1.ShowOpen 将通用对话框显示为打开文件对话框 Image1.Picture =LoadPicture(CommonDialog1.FileName) End Sub,“装入图像

7、”按钮代码设计如下：,颜色对话框和字体对话框的使用,CommonDialog1,Text1,“颜色”对话框 颜色对话框是当Action=3时的通用对话框，如右图。 重要属性：Color，用来返回或设置选定的颜色。,Private Sub cmdColor_Click() CommonDialog1.Action = 3 将通用对话框显示为颜色对话框 Text1.ForeColor = CommonDialog1.Color End Sub,“字体”对话框 字体对话框是Action=4时的通用对话框，如下图所示，提供用户选择字体、字号及字体样式等。 字体对话框重要的属性有：Color, Font

8、Name, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline, Max, mint等，见下图。,FontName,FontBold、FontItalic,FontSize,FontStrikethru,FontUnderline,Color,Flags属性：设置所显示的字体类型，数据类型为Long。 注意：在显示“字体”对话框前，必须先将 Flags 属性设置为 cdlCFScreenFonts，cdlCFPrinterFonts，或cdlCFBoth。否则，会发生字体不存在的错误。 Flages属性应取下列值： cdl

9、CFScreenFonts&H1屏幕字体 cdlCFPrinterFonts&H2打印机字体 cdlCFBoth&H3打印机字体和屏幕字体。 cdlCFEffects&H100显示删除线和下划线检查框以及颜色组合框,Private Sub Command2_Click() CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.ShowFont 将通用对话框显示为字体对话框 Text1.Font = CommonDialog1.FontName Text1.FontBold = CommonDialog1.FontBold T

10、ext1.FontItalic = CommonDialog1.FontItalic Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.Color Text1.FontSize = CommonDialog1.FontSize End Sub,“字体”按钮的Click事件过程如下：,5.4.2 建立多重窗体应用程序 例5-18创建一个工程，由三个窗体组成，Form1用于输入用户名

11、和口令，当输入正确时单击“确定”按钮显示Form2，当输入错误时则显示Form3，单击退出按钮结束程序；Form2中用文本框显示系统信息，单击“返回”按钮回到Form1；Form3为退出窗体，单击窗体则结束程序。 问题分析 VB中允许应用程序有多个窗体，每个窗体有自己的代码和不同的操作，从而实现复杂的功能。 多重窗体程序设计中，需要打开、关闭、隐藏或显示指定的窗体，这可以通过相应的语句和方法来实现。 （1）Load语句把一个窗体装入内存。 （2）Unload语句清除内存中指定的窗体。 （3）Show方法是用来显示一个窗体。 （4）Hide方法用来将窗体暂时隐藏起来。,操作步骤： （1）创建三个

12、窗体及控件 选择“工程”菜单的“添加窗体”命令，添加两个窗体，窗体的名称按添加顺序分别为Form2和Form3，这样工程就由三个窗体组成。 窗体1：该窗体为主窗体，名称为Form1，是用来供用户确认和调用其他相应的窗体。该窗体上有三个标签，两个文本框、两个按钮，文本框Text1用于输入用户名称，文本框Text2用于输入口令。 窗体2：该窗体名称为Form2，该窗体上有一个标签一个文本框、一个按钮、文本框采用多行显示，具有垂直滚动条，锁定文本框不能编辑。 窗体3：该窗体名称为Form3，为退出窗体，窗体上有一个图片框、一个标签。,（2）编写事件代码,（3）保存 在工程管理器窗口中列出的每个窗体或

13、标准模块，都必须分别存入磁盘。本例共保存了三个窗体文件(.frm)，最后把整个工程以.Vbp为扩展名存入磁盘。 一个完整的Visual Basic应用程序由多个工程文件（扩展名为.Vbp）组成，在工程中含有标准模块（扩展名为.Bas）、窗体模块（扩展名为.Frm）和类模块（扩展名为.Cls）。如图5-21所示。,程序清单（略）,（4）运行 对于多重窗体程序来说，运行前应该首先设置某个窗体为启动。本例设Form1为启动窗体，步骤如下： 选择“工程”菜单的“工程1属性”命令； 在弹出的对话框中选择“通用”选项卡； 单击“启动对象”列表框的下拉箭头，从中选择“Form1”； 单击“确定”按钮，完成启动窗体设置。,小结 Visual Basic应用程序的下拉菜单和快捷菜单都可以由菜单控件（Menu）方便地设计。为