第14节 菜单设计

　　对于功能较多的Windows应用程序都采用菜单方式来调用不同的功能模块。VB通过菜单编辑器可以很轻松地在应用程序的窗体上建立菜单。VB编辑器可以设计出：在窗体最上面显示主菜单的菜单条，当程序执行时用鼠标单击某菜单项后弹出下接菜单。每一菜单项都有一个Caption属性和Name属性。其中Caption属性用于显示菜单的正文，Name属性用于在程序中标识该菜单项。每个菜单项都能响应Click事件。

1、菜单编辑器的调用：

　　在设计状态，选择“工具”菜单下的菜单编辑器（Ctrl+E）或在窗休上单击右键在弹出菜单中选择“菜单编辑器”。

2、利用菜单编辑器进行菜单设计

　　选中要添加菜单的窗体，然后按Ctrl+E打开菜单编辑器进行菜单设度。

（1）标题（Caption）文本框：输入菜单标题。

　　在标题某下字母前输入&，那么该字母就成了热键。在标题文本框中输入连字符“-”这样菜单显示时形成一个分隔符。

（2）名称（Name）：在程序中用来标识该菜单项。注分界符也要有对应的名称。

（3）快捷键（Shortcut  Key）：

（4）下一个（Next）按钮：可以再设置下一项菜单项。

（5）“←”和“→”按钮：设置菜单的层次。（最多可以设四层）

（6）插入（Insert）按钮：在选定菜单项前插入一个菜单项。

（7）删除（Delete）按钮：删除选定的菜单项。

（8）“↑”和“↓”：改变选定菜单项的位置。

（9）复选（Checked）检查框：选中后当程序运行时选中后菜单项前有“∨”标记。

（10）有效（Enabled）检查框：菜单项是否有效。

（11）可见（Visible）检查框：菜单项是否可见。

（12）协调位置（Negotiate Position）下拉列表框：决定菜单项是否出现、如何出现。

0—None:菜单项不显示      1—Left：菜单项左显示

2—Middle:菜单项居中显示  3—Right:菜单项右显示

 （13）帮助上下文ID（Help context ID）文本框

 （14）显示窗口列表（Windows List）检查框

3、菜单设计举例（四则运算）

Private Sub Add_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)

    Text3.Text = Str$(x)

End Sub

Private Sub Div_Click()

    x = Val(Text1.Text) * Val(Text2.Text)                 

    Text3.Text = Str$(x)

End Sub

Private Sub Mul_Click()

    x = Val(Text1.Text) / Val(Text2.Text)

    Text3.Text = Str$(x)

End Sub

Private Sub Clear_Click()

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

End Sub

Private Sub exit_Click()

    End

End Sub