《《Visual Basic语言程序设计教程（第二版）》-程胜利-电子教案 第12章 菜单与对话框》由会员分享，可在线阅读，更多相关《《Visual Basic语言程序设计教程（第二版）》-程胜利-电子教案 第12章 菜单与对话框（40页珍藏版）》请在金锄头文库上搜索。
1、第12章 菜单与对话框,本章的学习要点 用菜单编辑器建立菜单 菜单项的控制 (1)有效性控制 (2)菜单项标记 (3)键盘选择 菜单项的增减 文件对话框 其它对话框（“颜色”、“字体”、“打印”对话框）,12.1.1下拉式菜单,下拉式菜单的主菜单显示在菜单条里，VB中包含了13个主菜单，如图12-1 所示。 当程序执行时用鼠标或键盘选择某个菜单项会弹出下拉子菜单。例如VB中单击“文件”主菜单或利用“Alt”“F”键的组合可以弹出文件的下拉子菜单。 在某些菜单项中还包含有分隔条，利用分隔条可将不同功能菜单项进行分隔。菜单项还可包含快捷键和热键，利用快捷键和热键的正确使用可以直接利用键盘调用对应的
2、功能，提高操作速度。,下拉式菜单,菜单显示在窗体中，因此菜单的设置也和其他控件一样在窗体内进行。VB为用户提供了菜单编辑器。打开菜单编辑器的方法有如下几种： 1在VB中单击“工具”菜单中的“菜单编辑器”子菜单； 2利用“Ctrl”“E”键的组合； 3在需要建立菜单的窗体上右击，在弹出的菜单中选择“菜单编辑器”命令； 4单击工具栏中的“菜单编辑器” 快捷按钮。 用上述任一方法打开的“菜单编辑器”的对话框，如图12-2所示。,下拉式菜单,下拉式菜单,利用菜单编辑器，可以对窗体中所需的菜单各项属性进行设置。菜单编辑器具体可分为3个部分，上部为属性设置区，用来对菜单项进行标题、名称等的属性设置；中部为
3、编辑区，包含7个按钮，用来对输入的菜单项进行简单的编辑；下部为菜单项显示区，前面所编辑的菜单项在此处显示。,下拉式菜单,1属性设置区： (1)“标题” (2)“名称” (3)“索引” (4)“快捷键” (5)“复选” (6)“有效” (7)“可见” (8)“帮助上下文” (9)“协调位置”,下拉式菜单,2编辑区 (1) 用于调整菜单项的级别，单击一次 按钮，则产生一个内缩符号“”，表示为上一级的子菜单；单击一次 ，删除一个内缩符号，则该菜单项被提高一个级别。菜单项的级别最多可以设置6级。 (2) 通过单击 或 按钮可将当前被选择的菜单项在同级里向上或向下移动一个位置。,下拉式菜单,2编辑区 (
4、3)“下一个” 介绍当前菜单项的编辑进入下一菜单项的编辑。 (4)“插入” 在当前菜单项的前面插入一个空白菜单项。 (5)“删除” 删除当前菜单项。,下拉式菜单,3菜单项显示区 该区域用于显示输入的菜单项，编辑好的菜单项可通过内缩符号表明其层次，如图12-3所示：编辑为主菜单，其下有4个子菜单，而字体子菜单下还有3个二级菜单。,下拉式菜单,例12.1设计一个包含菜单的窗体，其中主菜单为文件和编辑菜单，文件菜单包含新建、打开、保存、退出四个下拉菜单，编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体菜单又包含黑体、宋体、楷书三个下拉菜单。具体设计完毕后效果如图12-4所示。,下拉式菜单,1建立
5、菜单,下拉式菜单,2编写代码 菜单设置好后，需要给每个需要完成某些功能的菜单项编写对应的代码。给例12-1的窗体内添加一个文本框Text1，Text1的属性如表12- 2所示。,下拉式菜单,单击“编辑”菜单下的“字体”子菜单，选择“黑体”，弹出对应的“单击”事件代码编辑窗口，下面为“黑体”子菜单编写代码如下： Private Sub Font1_Click() Text1.Font = “黑体“ End Sub 此处黑体菜单的名称即为在设计时输入的名称“Font1”。 按照上述步骤依次选择“宋体”、“楷体”子菜单，完成相应的代码编写。具体代码如下： Private Sub Font2_Clic
6、k() Text1.Font = “宋体“ End Sub Private Sub Font3_Click() Text1.Font = “楷体_Gb2312“ End Sub,下拉式菜单,运行时可通过字体菜单修改文本中输入文字的字体。运行的各种结果如图12-5所示。,下拉式菜单,例12.2设计一个具有加、减、乘、除、清除和退出功能的程序。 思路：在第4章中曾利用单选按钮完成过该例部分功能，此处利用菜单来完成全部功能。该例的设计界面如图12-6 所示：,下拉式菜单,属性设置,下拉式菜单,下拉式菜单,在用户界面设计状态单击某一菜单项，编辑窗口出现该菜单Click事件过程的代码，可在其中输入要执行
7、的代码。各菜单项对应的代码如下： Private Sub add_Click() 加法 x = Val(Text1.Text) + Val(Text2.Text) Text3.Text = Str(x) End Sub Private Sub clear_Click() 清除 Text1 = “: Text2 = “: Text3 = “ Text1.SetFocus End Sub,下拉式菜单,Private Sub div_Click() 除法 If Val(Text2.Text) 0 Then 除数是否为0的判断 x = Val(Text1.Text) / Val(Text2.Text)
8、 Text3.Text = Str(x) Else MsgBox “除数不能为0！请重新输入！“ Text2.Text = “ Text2.SetFocus End If End Sub,下拉式菜单,Private Sub exit_Click() 退出 End End Sub Private Sub mul_Click() 乘法 x = Val(Text1.Text) * Val(Text2.Text) Text3.Text = Str(x) End Sub Private Sub sub_Click() 减法 x = Val(Text1.Text) - Val(Text2.Text) Te
9、xt3.Text = Str(x),弹出式菜单设计,右击窗体时弹出的菜单为弹出式菜单，一般集合了很多常用的操作。弹出式菜单没有主菜单名，只有在使用时才会在窗体上浮动显示。例如在VB的设计窗体中单击右键，弹出的菜单如图12-8所示。 弹出式菜单设计依然要使用菜单编辑器，只需在设计时将菜单的可见属性设置为False即可。,弹出式菜单设计,例12.3在例12-1的基础上增加一个快捷编辑菜单，包含“剪切”、“复制”和“粘贴”功能，右击窗体时弹出该快捷菜单。 操作步骤： 1在菜单编辑器里新增一个菜单，保证该菜单为顶层菜单项，即无缩进符号。标题设定为“Edit”，该标题和名称可任意设定，因为它在快捷菜单弹
10、出时不显示。 2将“Edit”菜单的可见属性设置为False。 3单击“下一个”命令按钮，标题文本框中输入“剪切”，编辑对应的名称，单击按钮，将“剪切”菜单设置为“Edit”菜单的下一级菜单。,弹出式菜单设计,4参照步骤3完成“复制”和“粘贴”菜单的设置。 5在VB中，需要使用PopupMenu方法来显示弹出式菜单。其语法格式如下： 对象.PopupMenu 菜单名,标志,X,Y 其中对象为可选项，默认为Form对象；菜单名是必须的，被指定的菜单必须至少包含一个子菜单；标志参数及X、Y的值的作用是详细定义弹出式菜单的弹出位置，当标志等于0时，为系统的默认状态，X放映的是弹出菜单的左边界，当标志
11、等于4时，X放映的是弹出菜单的中心位置，当标志等于8时，X放映的是弹出菜单的右边界。,弹出式菜单设计,因此需要在窗体的MouseUp事件里编写对应的代码。注意只有在窗体上单击鼠标右键时才会弹出快捷菜单。具体代码如下： Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 若单击鼠标右键 PopupMenu Edit 弹出edit快捷菜单 End If End Sub,通用对话框,VB6.0为用户提供了一组基于Windows标准的对话框，
12、称为通用对话框，即CommonDialog。包括“打开”对话框、“另存为”对话框、“颜色”对话框、“字体”对话框、“打印”对话框以及“帮助”对话框。 通用对话框不是标准控件，使用时必须先将该控件添加到工具箱里。将CommonDialog添加到工具箱里的步骤如下： 1选择“工程”下拉菜单中的“部件”子菜单，弹出“部件”对话框。 2在“部件”对话框列表中选择“Microsoft Common Dialog Control6.0”项目，确保其前方的复选框内出现“”。 3单击确定按钮。添加完成后工具箱里出现CommonDialog的图标。具体操作如图12-10 所示。,通用对话框,通用对话框常用的属性
13、有名称属性和Action属性等。系统默认的通用对话框名称为CommonDialog1、CommonDialog2。Action属性决定程序打开什么类型的对话框。具体Action属性、含义及对应的方法。,通用对话框,把CommonDialog控件添加到窗体后，就意味着上述各种标准对话框可以被使用了。当某一时刻需要用到某个对话框时，必须通过设置Action属性或VB6.0的方法才能使之显示在屏幕上。 例如要显示“打开”对话框，在程序中利用设置Action属性则对应语句如下： CommonDialog1.Action=1 也可在程序中用控件的方法完成对话框的显示。 CommonDialog1.Sho
14、wSave,通用对话框,1文件对话框 文件对话框包括“打开”和“另存为”对话框。使用“打开”、“另存为”对话框可以设置文件对话框的属性。文件对话框属性页中的属性和含义如表12-5所示。,例如： CommonDialog1.Fileter=”All Files(*.*)|*.*|位图(*.bmp)| *.bmp|” 设置对话框的过滤器 CommonDialog2.DialogTitle=”选择文件” 设置对话框的标题,通用对话框,例12.4 将例12-1 里“新建”和“打开”菜单功能补充完整。 注意：先将通用对话框添加到工具箱里，再将CommonDialog控件添加到窗体上。在窗体上单击各菜单项
15、，完成下述代码 ： Private Sub mnuFileNew_Click() 新建菜单 CommonDialog1.ShowSave Text1.Text = “ Form1.Caption = “新建文件“ End Sub,通用对话框,Private Sub mnuFileOpen_Click() 打开菜单 Dim Filename As String, m As String Filename = “ CommonDialog1.ShowOpen CommonDialog1.Filter = “Text(* .txt)|*.txt“ Filename = CommonDialog1.F
16、ilename If Filename = “ Then MsgBox “no file open“, vbExclamation + vbOKOnly, “System“ Else MsgBox “you open“ + Filename + “!“, vbInformation, “System“ End If Open CommonDialog1.Filename For Input As #1 将文件打开 Input #1, m 将文件内容读入到文本框里 Text1.Text = m Close #1 End Sub,通用对话框,Private Sub mnuFileSave_Click() 保存菜单 CommonDialog1.Action = 2 Open CommonDialog1.Filename For Output As #1 Print #1, Text1.Text
