Visual Basic程序设计 龚为琨 第8章 菜单设计.pptVIP

第8章 菜单设计 8.1 菜单编辑器应用举例 8.2 菜单编辑器控件属性 8.3 弹出式菜单应用举例 8.4 小结 8.5 练习题 8.6 上机实习题 8.1 菜单编辑器应用举例 当今绝大多数应用程序的用户界面是都具有菜单(Menu)界面。菜单操作使得用户对程序的使用更加方便、直观。 图8-1说明了菜单的组成。菜单中的每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。菜单项只能响应一个事件，即Click事件。 在VB中可以非常方便地在应用程序的窗体上建立菜单。在设计状态，选择“工具”菜单下的“菜单编辑器”(Ctrl+E)命令，或者在窗体上单击右键，在随后弹出的快捷菜单中选择“菜单编辑器”命令，出现如图8-2所示的窗口，菜单设计将通过这个窗口来完成。 【例8.1】 建立菜单。图8-3和图8-4是要建立的菜单，希望它能进行简单的加、减、乘、除运算。其中，菜单项中的“乘法”项有快捷键Ctrl+M，“除法”项有快捷键Ctrl+D。 建立菜单大致可分为三个步骤： (1) 建立控件。窗体上有6个控件，它们的属性如表8-1所示。 (2) 设计菜单。当窗口上的控件建立之后，就可以建立菜单。在设计状态下选择“工具”菜单下的菜单编辑器(Ctrl+E)命令，出现如图8-2所示的菜单设计窗口。按照表8-2对每一个菜单项输入标题、名称和相应的快捷键。 (3) 编写代码。在菜单建立完成之后，还需要编写相应的事件过程代码。 Private Sub Add_Click() x = Val(Text1.Text) + Val(Text2.Text) Label4.Caption = Str$(x) End Sub ? Private Sub Clear_Click() Text1.Text = Text2.Text = Label4.Caption = Text1.SetFocus End Sub Private Sub Div_Click() x = Val(Text1.Text) / Val(Text2.Text) Label4.Caption = Str$(x) End Sub ? Private Sub Exit_Click() End End Sub Private Sub Mul_Click() x = Val(Text1.Text) *Val(Text2.Text) Label4.Caption = Str$(x) End Sub ? Private Sub Oper_Click() If Val(Text2.Text) = 0 Then Div.Enabled = False Else Div.Enabled = True End If End Sub ? Private Sub Sub_Click() x = Val(Text1.Text)?Val(Text2.Text) Label4.Caption = Str$(x) End Sub 8.2 菜单编辑器控件属性 1)“标题”文本框 “标题”文本框用来设置窗体上的菜单标题，即菜单项的Caption属性。对于英文标题，在输入时若在某个字母前输入一个“”，那么该字母就成了热键字母，显示时该字母有下划线，操作时同时按下Alt键和该字母就可选择这个菜单项命令。 如果设计的下拉菜单需要分成若干组，则需要用分界符进行分隔。在建立菜单时，在标题文本框中输入一个连字符“-”，那么菜单显示时就会出现一个分隔符。 2)“名称”对话框 “名称”对话框用来设置菜单项的名称，即菜单项的Name属性。它不会显示出来，只是在程序中用来标识该菜单项。 3)“索引”文本框 “索引”文本框用来设置菜单控件数组下标，即菜单项的Index属性。若设计时未使用控件数组，则该文本框为空。 4)“快捷键”组合框 “快捷键”组合框用来为菜单项选择一个快捷键。菜单项可以没有快捷键，但若选了，则会出现在菜单项的右边，在程序运行时，用户按快捷键同样能完成选择菜单项并执行相应的操作。 注意：顶层菜单是