VB程序设计第7章菜单的设计.ppt

《VB程序设计第7章菜单的设计.ppt》由会员分享，可在线阅读，更多相关《VB程序设计第7章菜单的设计.ppt（51页珍藏版）》请在三一办公上搜索。

1、第7章 菜单的设计,第7章 菜单的设计,7.1 知识要点 7.2 习题与解答 7.3 实训指导 7.4 测验题,7.1知识要点,1、菜单与菜单编辑器（1）菜单的基本概念菜单：菜单就是可以选择命令的一个列表。菜单分类：菜单一般分为下拉式菜单和弹出式菜单两种。下拉式菜单位于多出现在菜单栏中，弹出式菜单显示在窗体之上，是独立于菜单栏的浮动式菜单。,菜单标题：显现在菜单栏上的具体对象，单击标题显示下拉菜单项。菜单项：包含菜单命令、分隔条和子菜单标题。菜单热键：同时按下Alt和菜单热键即可打开该菜单。菜单快捷键：按下该键直接执行响应菜单项的操作。,（2）菜单编辑器 Visual Basic应用程序中的菜

2、单可以利用“菜单编辑器”来进行设计，也可以利用程序向导来生成。“菜单编辑器”的主要优点是使用方便、简捷，可以用编程量很少的完全交互方式来自定义菜单。进入“菜单编辑器”有四种方法：,在设计状态下，选择“工具”菜单下的“菜单编辑器”命令，或者在窗体上单击右键，在随后弹出的快捷菜单中选择“菜单编辑器”命令。单击工具栏中的“菜单编辑器”快捷按钮。按Ctrl+E键。在窗体的空白处右键单击，然后单击弹出菜单中的“菜单编辑器”菜单项。“菜单编辑器”分上、中、下三部分，三部分分别为属性设置去，中间为七个按钮区，下面为菜单显示区。窗口中主要组成元素的作用解释见表7-1。,表7-1“菜单编辑器”的组成元素及其作用

3、,2、菜单的设计 设计一个菜单，首先要列出菜单的组成；然后，利用“菜单编辑器”按照菜单组成进行设计；最后，再为每个菜单项编写事件代码。建立菜单利用“菜单编辑器”将菜单中的菜单项、子菜单以及菜单分组信息逐一建立好。,编写代码每个菜单项一般只能响应一个事件，即鼠标单击（Click）事件。菜单项动态增减菜单项能够随着应用程序的变化而动态地增减，在具体实现过程中通常要利用到菜单控件数组。,3、菜单的控制有效性控制有些菜单命令在某些条件下是不可用的，不可用的菜单，又称之为无效菜单，呈灰色显示，不响应用户事件。菜单项的有效性由它的属性Enabled来控制。菜单项的复选标记所谓菜单项的复选标记，就是菜单项左

4、侧的“”记号，它表明该菜单项当前处于活动状态，也就是说该菜单项对应的命令只能表示两种状态，即活动状态与非活动状态。,在“菜单编辑器”中，有复选（Checked）复选框用来对复选标记进行初始化设置，它对应菜单项的Checked 属性，Checked属性只有True和False两个取值，分别表明该菜单项当前处于活动状态或非活动状态。菜单项的隐藏与显示应用程序菜单中的某些菜单项可以在必要的时候隐藏起来，“可见（Visible）”属性决定菜单项是否可见，它的默认值为True。,4、建立快捷菜单快捷菜单的设计同样使用“菜单编辑器”。设计过程中，通常把快捷菜单的顶层菜单项的可见（Visible）属性设置为

5、False。这样，程序运行时，快捷菜单是不可见的。显示快捷菜单的方法是PopupMenu，它的语法格式为：对象.PopupMenu，Flags，x，y,其中，“对象”是可选的。如果省略，则具有焦点的窗体将成为默认对象。x和y是两个可选参数，分别指定显示弹出式菜单的x坐标和y坐标。如果省略，则使用鼠标的坐标。Flags参数的设置值和含义如下：（1）Flags的默认值为0，弹出式菜单的左侧定位于x。（2）Flags取值为4，x的位置是弹出式菜单的中心。（3）Flags取值为8，弹出式菜单的右侧定位于x。由于快捷菜单的顶层菜单项是不显示的，所以快捷菜单的顶层菜单至少要有一个子菜单项。,第7章 菜单的

6、设计,7.1 知识要点 7.2 习题与解答 7.3 实训指导 7.4 测验题,7.2习题与解答,1、常用的菜单有哪几种？答案：菜单一般分为下拉式菜单和弹出式菜单两种。下拉式菜单位于多出现在菜单栏中，弹出式菜单显示在窗体之上，是独立于菜单栏的浮动式菜单。2、菜单的热键和快捷键有什么区别？答案：菜单热键的作用是同时按下Alt和菜单热键即可打开该菜单，而菜单快捷键的作用是按下该键直接执行响应菜单项的操作。通常，为顶级菜单项设置热键，而为非定级菜单项设置快捷键。,3、菜单项响应的事件有哪些？答案：菜单项只响应一个事件，即鼠标单击事件（Click）。4、进入“菜单编辑器”有几种常用方法？答案：进入“菜单

7、编辑器”有四种方法：在设计状态下，选择“工具”菜单下的“菜单编辑器”命令，或者在窗体上单击右键，在随后弹出的快捷菜单中选择“菜单编辑器”命令。单击工具栏中的“菜单编辑器”快捷按钮。按Ctrl+E键。在窗体的空白处右键单击，然后单击弹出菜单中的“菜单编辑器”菜单项。,5、利窗口中哪些项目是必须填写的。答案：在用“菜单编辑器”进行菜单设计时，只有名称属性是必须填写的，菜单标题可以为空，其他项目也都可以不设置。6、如何设计菜单控件数组？菜单数组中的菜单有哪些要求？答案：设计菜单数组控件时，只要把该数组中的所有菜单项元素名称设为相同，索引值不同即可。菜单控件数组中的各元素在菜单控件列表中必须是连续的，

8、而且在同一级别上。,7所谓菜单的控制问题指的是什么？答案：菜单的控制包括有效性控制 菜单项的复选标记 菜单项的隐藏与显示8、设计快捷菜单时，有哪些要求？使用什么方法显示快捷菜单？答案：快捷菜单的设计同样使用“菜单编辑器”。设计过程中，通常把快捷菜单的顶层菜单项的可见（Visible）属性设置为False。这样，程序运行时，快捷菜单是不可见的。显示快捷菜单的方法是PopupMenu。,第7章 菜单的设计,7.1 知识要点 7.2 习题与解答 7.3 实训指导 7.4 测验题,7.3实训指导,技能训练目的 掌握利用“菜单编辑器”设计下拉式菜单的方法。掌握利用代码动态增减菜单项的方法。掌握快捷菜单的

9、设计方法。掌握菜单数组的使用方法。,技能训练内容【实训7.1】为教材例7.1的“颜色”菜单中增加“其他颜色”菜单项，并通过“通用对话框”为其实现代码完成对标签文字的颜色设置。提示：参照教材例7.1。,【实训7.2】编写一个简单的文本处理程序，窗体如图7-1所示，在窗体上设计菜单：包含“编辑”和“设置”两项，其中“编辑”提供Windows中提供的“剪切”、“复制”和“粘贴”和”退出“功能（只能从左侧文本框向右侧文本框进行复制和剪切粘贴）；“设置”提供“设置背景颜色”（指文本框的背景），“设置文本颜色”和“设置字体”（包括字体、粗体、和字号）功能，并实现菜单各项的功能。,提示：窗体上包含一个通用对

10、话框（Commondialog1）和两个文本框（Text1和Text2）。菜单设计，打开“菜单编辑器”窗口，把表7-2列出的各菜单项属性输入到“菜单编辑器”中。,图7-1,参考代码：Option ExplicitPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then PopupMenu mnueditEnd IfEnd SubPrivate Sub mnueditcopy_Click()If Text1.SelLength 0 Then Clipbo

11、ard.SetText Text1.SelTextEnd IfEnd SubPrivate Sub mnueditcut_Click()If Text1.SelLength 0 Then Clipboard.SetText Text1.SelText Text1.SelText=End IfEnd SubPrivate Sub mnueditexit_Click()EndEnd Sub,Private Sub mnueditpaste_Click()If Len(Clipboard.GetText)0 Then Text2.SelText=Clipboard.GetText End IfEnd

12、 SubPrivate Sub mnusetting_Click(Index As Integer)If Index=0 ThenCommonDialog1.ShowColorText1.BackColor=CommonDialog1.ColorText2.BackColor=CommonDialog1.ColorEnd IfIf Index=1 ThenCommonDialog1.ShowColorText1.ForeColor=CommonDialog1.ColorText2.ForeColor=CommonDialog1.ColorEnd IfIf Index=2 ThenCommonD

13、ialog1.Flags=cdlCFBothCommonDialog1.ShowFontText1.Font.Name=CommonDialog1.FontNameText2.Font.Name=CommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeText2.FontSize=CommonDialog1.FontSizeEnd IfEnd Sub,【实训7.3】为第六章实训6.4添加菜单栏，编写相应代码。具体步骤略。【实训7.4】设计程序，利用菜单实现数据的生成与排序，窗体如图7-2所示。在窗体上的控件如表7-3。,图7-2,

14、表7-3 实训7.4中对象的属性设置,建立菜单。打开“菜单编辑器”窗口，把表7-4列出的各菜单项属性输入到“菜单编辑器”中。表7-4 菜单项的属性设置,生成菜单如图7-3。编写代码完成以下功能：单击“生成数据”菜单项，在label1标签中随机生成10个100以内的整数；单击“清空”菜单项，label1和label2标签内数据均清空；单击“升序”和“降序”菜单项，则分别把label1标签中的数据按升序和降序的顺序排列在label2标签中；单击“退出”菜单项，退出程序。同时，在程序运行时，右键单击label1标签，则显示mnunumbers菜单为快捷菜单，如图7-4所示。,图7-3,图7-4,参考

15、代码如下：Dim a(10)As IntegerPrivate Sub Label1_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then PopupMenu mnunumbersEnd IfEnd SubPrivate Sub mnuclear_Click()Label1.Caption=Label1.Caption=End Sub,Private Sub mnucreate_Click()Dim i As IntegerFor i=1 To 10 Randomize a(i)=

16、Int(Rnd*100)Label1.Caption=Label1.Caption+Str$(a(i)NextEnd SubPrivate Sub mnudec_Click()Dim i As Integer,j As Integer,k As IntegerFor i=1 To 9 For j=i+1 To 10 If a(i)a(j)Then k=a(i)a(i)=a(j)a(j)=k End If Next j Label2.Caption=Label2.Caption+Str$(a(i)Next iLabel2.Caption=Label2.Caption+Str$(a(10)End

17、Sub,Private Sub mnuexit_Click()EndEnd SubPrivate Sub mnuinc_Click()Dim i As Integer,j As Integer,k As IntegerFor i=1 To 9 For j=i+1 To 10 If a(i)a(j)Then k=a(i)a(i)=a(j)a(j)=k End If Next j Label2.Caption=Label2.Caption+Str$(a(i)Next iLabel2.Caption=Label2.Caption+Str$(a(10)End Sub,第7章 菜单的设计,7.1 知识要

18、点 7.2 习题与解答 7.3 实训指导 7.4 测验题,7.4测验题,选择题1在使用菜单编辑器进行菜单设计时，必须填写的项目是。A名称 B标题 C快捷键 D热键答案：A2下列关于菜单的说法错误的是。A菜单分为下拉式和弹出式两种。B每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。C菜单项只支持Click事件和DblClick事件。D只有建立菜单数组时才为菜单项的索引赋值。答案：C,3有一名为mnuabc的菜单项，为了在程序运行时菜单无效，正确的语句是。Amnuabc.enabled=True Bmnuabc.enabled=False Cmnuabc.visible=True Dm

19、nubac.visible=False答案：B4若要设定D键为某菜单项的热键，在设置该菜单项标题时，应该。A在字母D的前面加上“$”B在字母D的前面加上“”C在字母D的前面加上“#”D在字母D的前面加上“&”答案：D,5若要让一名为mnuabc的菜单项，为了在程序运行时有复选标记，应该使用的语句是。Amnuabc.enabled=True Bmnuabc.enabled=False Cmnuabc.checked=True Dmnubac.checked=False答案：C,6下列事件代码Private Sub Form_MouseDown(Button As Integer,Shift As

20、 Integer,X As Single,Y As Single)If Button=2 Then PopupMenu mnuitem,2End Sub功能是。A只有在窗体上右键单击才弹出菜单mnuitem，左右键均可以触发弹出菜单。B只有在窗体上右键单击才弹出菜单mnuitem，仅有右键可以触发弹出菜单。C只有在窗体上左键单击才弹出菜单mnuitem，仅有右键可以触发弹出菜单。D只有在窗体上左键单击才弹出菜单mnuitem，左右键均可以触发弹出菜单。答案：A,7下列说法正确的是。A若要为某菜单项添加代码，只有在设计阶段双击该菜单项才可进入代码设计窗口。B因为菜单分割条没有对应的代码，所以无须

21、给他命名。C菜单项不可见等同于令其Caption属性为空。D菜单项能够实现随着应用程序的变化而动态地增减。答案：D8设置菜单控件数组时，下列说法正确的是。A菜单项索引必须从0开始。B菜单项索引设定后，不可以更改，只能删除重做。C各菜单项的名称一定要相同。D菜单项索引必须是连续的。答案：C,9下列说法错误的是。A分隔条菜单也可以有子菜单，但不能有快捷键。B已经建立好的下拉式菜单也可以作为快捷菜单来使用。C在设计阶段单击某菜单项，可以打开它的子菜单。D在设计阶段单击某菜单项，不能执行它对应的菜单命令，可以为其编写代码。答案：A,填空题1菜单通常分为（1）和（2）两种，Visual Basic在（3

22、）中进行菜单设计。答案：（1）下拉式菜单（2）弹出式菜单（3）菜单编辑器2菜单分割条的标题应设为（4）。答案：-,3.菜单的热键是指同时按下（5）键和菜单热键即可打 开该菜单，菜单热键字符会以（6）形式加以显示。答案：（5）Alt（6）下划线4一般来说，每个菜单项只能响应一个事件，即（7）事件。答案：鼠标单击（Click）,编程题为实训7.2的简单文本处理程序添加一个文件菜单，动态添加打开过的文件路径和名称，要求最多显示最近打开的五个文件名，单击每个显示的文件名同样可以打开该文件。如图7-5和图7-6所示。,图7-5 图7-6,1提示：菜单设计如表7-5所示。表7-5 菜单项属性设置,参考代码

23、：Private Sub mnuopen_Click()Static mnunum As Integer,inputdata As String,i As IntegerCommonDialog1.ShowOpenText1.Text=Open CommonDialog1.FileName For Input As#1Do While Not EOF(1)Line Input#1,inputdataText1.Text=Text1.Text+inputdata+Chr(13)+Chr(10)LoopClose#1mnuline2.Visible=TrueIf mnunum 5 Thenmnun

24、um=mnunum+1Load mnufilelist(mnunum)mnufilelist(mnunum).Caption=CommonDialog1.FileNamemnufilelist(mnunum).Visible=True,ElseFor i=0 To 4 mnufilelist(i).Caption=mnufilelist(i+1).CaptionNext imnufilelist(5).Caption=CommonDialog1.FileNameEnd IfEnd SubPrivate Sub mnufilelist_Click(Index As Integer)Dim inputdata As StringText1.Text=Open mnufilelist(Index).Caption For Input As#1Do While Not EOF(1)Line Input#1,inputdataText1.Text=Text1.Text+inputdata+Chr(13)+Chr(10)LoopClose#1End SubPrivate Sub mnuexit_Click()EndEnd Sub,elements,第七章结束,