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

生成菜单如图7-3。编写代码完成以下功能：单击“生成数据”菜单项，在label1标签中随机生成10个100以内的整数；单击“清空”菜单项，label1和label2标签内数据均清空；单击“升序”和“降序”菜单项，则分别把label1标签中的数据按升序和降序的顺序排列在label2标签中；单击“退出”菜单项，退出程序。同时，在程序运行时，右键单击label1标签，则显示mnunumbers菜单为快捷菜单，如图7-4所示。 图7-3 图7-4 参考代码如下： Dim a(10) As Integer Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnunumbers End If End Sub Private Sub mnuclear_Click() Label1.Caption = Label1.Caption = End Sub Private Sub mnucreate_Click() Dim i As Integer For i = 1 To 10 Randomize a(i) = Int(Rnd * 100) Label1.Caption = Label1.Caption + Str$(a(i)) Next End Sub Private Sub mnudec_Click() Dim i As Integer, j As Integer, k As Integer For 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 i Label2.Caption = Label2.Caption + Str$(a(10)) End Sub Private Sub mnuexit_Click() End End Sub Private Sub mnuinc_Click() Dim i As Integer, j As Integer, k As Integer For 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 i Label2.Caption = Label2.Caption + Str$(a(10)) End Sub 第7章 菜单的设计 7.1 知识要点 7.2 习题与解答 7.3 实训指导 7.4 测验题 第7章 菜单的设计 第7章 菜单的设计 7.1 知识要点 7.2 习题与解答 7.3 实训指导 7.4 测验题 7.1知识要点 1、菜单与菜单编辑器 （1）菜单的基本概念 菜单：菜单就是可以选择命令的一个列表。 菜单分类：菜单一般分为下拉式菜单和 弹出式菜单两种。下拉式菜单位于多出 现在菜单栏中，弹出式菜单显示在窗体 之上，是独立于菜单栏的浮动式菜单。 菜单标题：显现在菜单栏上的具体对象，单击标题显示下拉菜单项。 菜单项：包含菜单命令、分隔条和子菜单标题。 菜单热键：同时按下Alt和菜单热键即可打开该菜单。 菜单快捷键：按下该键直接执行响应菜单项的操作。 （2）菜单编辑器 Visual Basic应用程序中的菜单可以利用“菜单编辑器”来进行设计，也可以利用程序向导来生成。“菜单编辑器”的主要优点是使用方便、简捷，可以用编程量很少的完全交互方式来自定义菜单。 进入“菜单编辑器”有四种方法： ①在设计状态下，选择“工具”菜单下的“菜单编辑器”命令，或者在窗体上单击右键，在随后弹出的快