【VB开源代码栏目提醒】：网学会员VB开源代码为您提供第11章vb菜单程序设计 - 信息安全参考，解决您在第11章vb菜单程序设计 - 信息安全学习中工作中的难题，参考学习。

    

作业P314 一二题 编程考核 P314 第三题的12 在前面所讲的各种操作中事件的执行都是通过“事件驱动程序”完成的。

    那么如果我们要设计菜单该如何操作呢 第11章 菜单程序设计 看看WORD的菜单。

     11.1 用菜单编辑器建立菜单 一、菜单类型 1. 下拉式菜单 例单击“文件”菜单所显示的就是下拉式菜单。

     2. 弹出式菜单 例用鼠标右键单击窗体时所显示菜单是弹出式菜单。

     二、启动菜单编辑器的方法 有4种方法 1 执行“工具”菜单中的“菜单编辑器”命令。

     2 执行热键 CtrlE 3 单击标准工具栏中的“菜单编辑器”按钮。

     4 在窗体上单击鼠标右键从弹出的菜单中选择“菜单编辑器”命令。

     准备打开cx1程序。

     三、菜单编辑器窗口的组成 窗口分三部分数据区、编辑区和菜单项显示区。

     1. 数据区 1 标题输入所建立菜单的名字及菜单中每个菜单项的标题。

    运行后可以看到标题。

     注意如果想在菜单中加一条分隔线只需输入一个减号-。

     2 名称用来输入菜单名及各菜单项的控制名相当于Name属性运行后可以看不到用于编程。

     3 索引用来为控件数组设立下标。

     4 快捷键用来设置菜单项的快捷键。

     5 协调位置是一个列表框用来确定菜单或菜单项是否出现或在什么位置出现。

     0—None 菜单项不显示 1—Left 菜单项靠左显示 0—Middle 菜单项居中显示 0—Right 菜单项靠右显示 6 复选当选择该项时可以在相应的菜单项旁加上指定的记号例如“√” 7 有效用来设置菜单项是是否能被激活。

    如果未选中则相应的菜单项变灰。

     8 可见确定菜单项是否可见。

     2编辑区对菜单进行编辑 1左、右箭头由来产生或取消内缩符号菜单的降级升级。

     单击一次右箭头产生4个点菜单层次降一级。

     单击一次左箭头删除4个点菜单层次升一级。

     2上、下箭头用来移动菜单项的位置。

     3下一个移到下一个菜单项可用回车替代。

     4插入在当前位置插入新的菜单项。

     5删除删除当前菜单项。

     3菜单项显示区 显示所有菜单。

    并用内缩符号....表明菜单项的层次关系。

     有关说明 1内缩符号由4个点组成表明菜单项层次。

    一个内缩符号4个点代表一层两个内缩符号表示两层最多可设置六层。

     2如果标题栏只输入一个“-”表示产生一个分隔线分隔线可以不输入名称Name。

     3除分隔线外所有菜单项都可接受Click事件。

     4输入菜单项时如果字母前加“”则显示菜单时在该字母下加一条下划线可通过ALT带下划线的字母打开相应菜单。

    演示在“打开”后加“O”。

     例设计一个具有算术运算、-、、及清除功能的菜单。

    从键盘上输入两个数利用菜单命令求出它们的和差积或商并显示出来。

     1.设计用户界面 设第一个文本框的名称为num1第二个文本框的名称 为num2第三个标签的名称为result. 各菜单项的属性为下表 分类 标题 名称 内缩符号 热键 主菜单项1 子菜单项1 子菜单项2 计算加、减 C1 无 无 加 减 Add Min 1 1 CtrlA CtrlB 主菜单项2 子菜单项1 子菜单项2 计算乘、除 C2 无 无 乘 除 Mul Div 1 1 CtrlC CtrlD 主菜单项2 子菜单项1 子菜单项2 清除与退出 C3 无 无 清除 退出 Clear quit 1 1 CtrlE CtrlF 2. 编写程序代码 用户单击菜单项就可打开相应的事件。

     加法事件 Private Sub add_Click result.CaptionValnum1.TextValnum2.Text End Sub 减法事件 Private Sub min_Click result.CaptionValnum1.Text-Valnum2.TextEnd Sub 乘法事件 Private Sub mul_Click result.CaptionValnum1.TextValnum2.Text End Sub 除法事件 Private Sub div_Click result.CaptionValnum1.Text/Valnum2.Text End Sub 清除事件 Private Sub clear_Click num1.Text num2.Text result.Caption num1.SetFocus End Sub 退出事件 Private Sub quit_Click End End Sub 11.6 弹出式菜单 弹出式菜单是一种小型菜单它可以在窗口的某 个地方显示出来对程序事件作出反应。

     建立弹出式菜单分2步 1 先在菜单编辑器建立菜单。

     2 用Popupmenu方法显示弹出式菜单。

     一、Popupmenu方法的格式 对象.popupmenu 菜单名flag XY Boldcommand 1 该格式有六个参数除“菜单名”外其余参数 均为可选。

    当省略对象时弹出式菜单只能在当前窗体显示。

    如果需要弹出式菜单在其它窗体中显示则必须加上窗体名。

     2 为了显示弹出式菜单通常把popupmenu方法放在窗体的mousedown事件中。

    一般通过鼠标右键显示弹出式菜单可用botton参数来实现。

     左键的botton参数值为1右键的botton参数值为2。

     可用下面语句通过单击鼠标右键来响应mousedown 事件显示弹出式菜单。

     If botton2 then popupmenu 菜单名 例建立一个弹出式菜单用来改变文本框中字体的属性。

    设文本框中的字的大小为“小三” 1 各菜单项属性如下 标题 Name 内缩符号 可见性 字体格式化 Popformat 无 False 粗体 Popbold 1 True 斜体 Popitalic 1 True 隶书 Lishu 1 True 退出 quit 1 true 2 编写窗体的mousedown事件. Private Sub Form_MouseDownButton As Integer Shift As Integer X As Single Y As Single If Button 2 Then PopupMenu popformat End If End Sub 2 打开窗体的代码窗口单击”对象”框右端的的箭头显示各菜单项编写各菜单项代码. Private Sub lishu_Click Text1.FontName 隶书 End Sub Private Sub popbold_Click Text1.FontBold True End Sub Private Sub popitalic_Click Text1.FontItalic True End Sub Private Sub quit_Click End End Sub 作业P314的选择题、填空题