第12章+菜单与对话框.ppt

1,第12章菜单与对话框,本章的学习要点用菜单编辑器建立菜单菜单项的控制(1)有效性控制(2)菜单项标记(3)键盘选择菜单项的增减文件对话框其它对话框（“颜色”、“字体”、“打印”对话框）,2,12.1.1下拉式菜单,下拉式菜单的主菜单显示在菜单条里，VB中包含了13个主菜单，如图12-1所示。当程序执行时用鼠标或键盘选择某个菜单项会弹出下拉子菜单。例如VB中单击“文件”主菜单或利用“Alt”“F”键的组合可以弹出文件的下拉子菜单。在某些菜单项中还包含有分隔条，利用分隔条可将不同功能菜单项进行分隔。菜单项还可包含快捷键和热键，利用快捷键和热键的正确使用可以直接利用键盘调用对应的功能，提高操作速度。,3,下拉式菜单,菜单显示在窗体中，因此菜单的设置也和其他控件一样在窗体内进行。VB为用户提供了菜单编辑器。打开菜单编辑器的方法有如下几种：1在VB中单击“工具”菜单中的“菜单编辑器”子菜单；2利用“Ctrl”“E”键的组合；3在需要建立菜单的窗体上右击，在弹出的菜单中选择“菜单编辑器”命令；4单击工具栏中的“菜单编辑器”快捷按钮。用上述任一方法打开的“菜单编辑器”的对话框，如图12-2所示。,4,下拉式菜单,5,下拉式菜单,利用菜单编辑器，可以对窗体中所需的菜单各项属性进行设置。菜单编辑器具体可分为3个部分，上部为属性设置区，用来对菜单项进行标题、名称等的属性设置；中部为编辑区，包含7个按钮，用来对输入的菜单项进行简单的编辑；下部为菜单项显示区，前面所编辑的菜单项在此处显示。,6,下拉式菜单,1属性设置区：(1)“标题”(2)“名称”(3)“索引”(4)“快捷键”(5)“复选”(6)“有效”(7)“可见”(8)“帮助上下文”(9)“协调位置”,7,下拉式菜单,2编辑区(1)用于调整菜单项的级别，单击一次按钮，则产生一个内缩符号“”，表示为上一级的子菜单；单击一次，删除一个内缩符号，则该菜单项被提高一个级别。菜单项的级别最多可以设置6级。(2)通过单击或按钮可将当前被选择的菜单项在同级里向上或向下移动一个位置。,8,下拉式菜单,2编辑区(3)“下一个”介绍当前菜单项的编辑进入下一菜单项的编辑。(4)“插入”在当前菜单项的前面插入一个空白菜单项。(5)“删除”删除当前菜单项。,9,下拉式菜单,3菜单项显示区该区域用于显示输入的菜单项，编辑好的菜单项可通过内缩符号表明其层次，如图12-3所示：编辑为主菜单，其下有4个子菜单，而字体子菜单下还有3个二级菜单。,10,下拉式菜单,例12.1设计一个包含菜单的窗体，其中主菜单为文件和编辑菜单，文件菜单包含新建、打开、保存、退出四个下拉菜单，编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体菜单又包含黑体、宋体、楷书三个下拉菜单。具体设计完毕后效果如图12-4所示。,11,下拉式菜单,1建立菜单,12,下拉式菜单,2编写代码菜单设置好后，需要给每个需要完成某些功能的菜单项编写对应的代码。给例12-1的窗体内添加一个文本框Text1，Text1的属性如表12-2所示。,13,下拉式菜单,单击“编辑”菜单下的“字体”子菜单，选择“黑体”，弹出对应的“单击”事件代码编辑窗口，下面为“黑体”子菜单编写代码如下：PrivateSubFont1_Click()Text1.Font=黑体EndSub此处黑体菜单的名称即为在设计时输入的名称“Font1”。按照上述步骤依次选择“宋体”、“楷体”子菜单，完成相应的代码编写。具体代码如下：PrivateSubFont2_Click()Text1.Font=宋体EndSubPrivateSubFont3_Click()Text1.Font=楷体_Gb2312EndSub,14,下拉式菜单,运行时可通过字体菜单修改文本中输入文字的字体。运行的各种结果如图12-5所示。,15,下拉式菜单,例12.2设计一个具有加、减、乘、除、清除和退出功能的程序。思路：在第4章中曾利用单选按钮完成过该例部分功能，此处利用菜单来完成全部功能。该例的设计界面如图12-6所示：,16,下拉式菜单,属性设置,17,下拉式菜单,18,下拉式菜单,在用户界面设计状态单击某一菜单项，编辑窗口出现该菜单Click事件过程的代码，可在其中输入要执行的代码。各菜单项对应的代码如下：PrivateSubadd_Click()加法。x=Val(Text1.Text)+Val(Text2.Text)Text3.Text=Str(x)EndSubPrivateSubclear_Click()清除。Text1=:Text2=:Text3=Text1.SetFocusEndSub,19,下拉式菜单,PrivateSubdiv_Click()除法。IfVal(Text2.Text)0Then除数是否为0的判断。x=Val(Text1.Text)/Val(Text2.Text)Text3.Text=Str(x)ElseMsgBox除数不能为0！请重新输入！Text2.Text=Text2.SetFocusEndIfEndSub,20,下拉式菜单,PrivateSubexit_Click()退出。EndEndSubPrivateSubmul_Click()乘法。x=Val(Text1.Text)*Val(Text2.Text)Text3.Text=Str(x)EndSubPrivateSubsub_Click()减法。x=Val(Text1.Text)-Val(Text2.Text)Text3.Text=Str(x),21,弹出式菜单设计,右击窗体时弹出的菜单为弹出式菜单，一般集合了很多常用的操作。弹出式菜单没有主菜单名，只有在使用时才会在窗体上浮动显示。例如在VB的设计窗体中单击右键，弹出的菜单如图12-8所示。弹出式菜单设计依然要使用菜单编辑器，只需在设计时将菜单的可见属性设置为False即可。,22,弹出式菜单设计,例12.3在例12-1的基础上增加一个快捷编辑菜单，包含“剪切”、“复制”和“粘贴”功能，右击窗体时弹出该快捷菜单。操作步骤：1在菜单编辑器里新增一个菜单，保证该菜单为顶层菜单项，即无缩进符号。标题设定为“Edit”，该标题和名称可任意设定，因为它在快捷菜单弹出时不显示。2将“Edit”菜单的可见属性设置为False。3单击“下一个”命令按钮，标题文本框中输入“剪切”，编辑对应的名称，单击按钮，将“剪切”菜单设置为“Edit”菜单的下一级菜单。,23,弹出式菜单设计,4参照步骤3完成“复制”和“粘贴”菜单的设置。5在VB中，需要使用PopupMenu方法来显示弹出式菜单。其语法格式如下：对象.PopupMenu菜单名,标志,X,Y其中对象为可选项，默认为Form对象；菜单名是必须的，被指定的菜单必须至少包含一个子菜单；标志参数及X、Y的值的作用是详细定义弹出式菜单的弹出位置，当标志等于0时，为系统的默认状态，X放映的是弹出菜单的左边界，当标志等于4时，X放映的是弹出菜单的中心位置，当标志等于8时，X放映的是弹出菜单的右边界。,24,弹出式菜单设计,因此需要在窗体的MouseUp事件里编写对应的代码。注意只有在窗体上单击鼠标右键时才会弹出快捷菜单。具体代码如下：PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then若单击鼠标右键。PopupMenuEdit弹出edit快捷菜单。EndIfEndSub,25,通用对话框,VB6.0为用户提供了一组基于Windows标准的对话框，称为通用对话框，即CommonDialog。包括“打开”对话框、“另存为”对话框、“颜色”对话框、“字体”对话框、“打印”对话框以及“帮助”对话框。通用对话框不是标准控件，使用时必须先将该控件添加到工具箱里。将CommonDialog添加到工具箱里的步骤如下：1选择“工程”下拉菜单中的“部件”子菜单，弹出“部件”对话框。2在“部件”对话框列表中选择“MicrosoftCommonDialogControl6.0”项目，确保其前方的复选框内出现“”。3单击确定按钮。添加完成后工具箱里出现CommonDialog的图标。具体操作如图12-10所示。,26,通用对话框,通用对话框常用的属性有名称属性和Action属性等。系统默认的通用对话框名称为CommonDialog1、CommonDialog2。Action属性决定程序打开什么类型的对话框。具体Action属性、含义及对应的方法。,27,通用对话框,把CommonDialog控件添加到窗体后，就意味着上述各种标准对话框可以被使用了。当某一时刻需要用到某个对话框时，必须通过设置Action属性或VB6.0的方法才能使之显示在屏幕上。例如要显示“打开”对话框，在程序中利用设置Action属性则对应语句如下：CommonDialog1.Action=1也可在程序中用控件的方法完成对话框的显示。CommonDialog1.ShowSave,28,通用对话框,1文件对话框文件对话框包括“打开”和“另存为”对话框。使用“打开”、“另存为”对话框可以设置文件对话框的属性。文件对话框属性页中的属性和含义如表12-5所示。,例如：CommonDialog1.Fileter=”AllFiles(*.*)|*.*|位图(*.bmp)|*.bmp|”设置对话框的过滤器CommonDialog2.DialogTitle=”选择文件”设置对话框的标题,29,通用对话框,例12.4将例12-1里“新建”和“打开”菜单功能补充完整。注意：先将通用对话框添加到工具箱里，再将CommonDialog控件添加到窗体上。在窗体上单击各菜单项，完成下述代码：PrivateSubmnuFileNew_Click()新建菜单CommonDialog1.ShowSaveText1.Text=Form1.Caption=新建文件EndSub,30,通用对话框,PrivateSubmnuFileOpen_Click()打开菜单DimFilenameAsString,mAsStringFilename=CommonDialog1.ShowOpenCommonDialog1.Filter=Text(*.txt)|*.txtFilename=CommonDialog1.FilenameIfFilename=ThenMsgBoxnofileopen,vbExclamation+vbOKOnly,SystemElseMsgBoxyouopen+Filename+!,vbInformation,SystemEndIfOpenCommonDialog1.FilenameForInputAs#1将文件打开Input#1,m将文件内容读入到文本框里Text1.Text=mClose#1EndSub,31,通用对话框,PrivateSubmnuFileSave_Click()保存菜单CommonDialog1.Action=2OpenCommonDialog1.FilenameForOutputAs#1Print#1,Text1.TextClose#1EndSub,32,通用对话框,某次单击“新建”菜单时弹出的对话框和Windows默认风格一致。,33,其他对话框,1颜色对话框使用“颜色”对话框可设置颜色属性，对应的Windows颜色对话框如图12-12所示。其属性和含义如表12-6所示。,34,其他对话框,例如：Commondialog1.ShowcolorForm1.BackColor=CommonDialog1.Color表示将用户在“颜色”对话框中设置的颜色作为窗体背景色。,35,其他对话框,2字体对话框使用“字体”对话框可设置字体属性。其属性和含义如表12-7所示。,36,其他对话框,例如：CommonDialog1.ShowFontText1.FontName=CommonDialog1.Filename表示将用户在“字体”对话框中设置的字体作为文本框的字体。,37,其他对话框,例12.5利用颜色对话框和字体对话框设置文本框中文字的颜色和字体。在窗体上放置一个文本框，两个命令按钮和一个通用对话框，控件属性如表。,38,其他对话框,39,其他对话框,PrivateSubCommand1_Click()CommonDialog1.ShowColor显示颜色对话框。Text1.ForeColor=CommonDialog1.Color颜色设置EndSubPrivateSubCommand2_Click()CommonDialog1.ShowFont显