[精华]第11章vb菜单法度模范
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
作业:P314 一,二题
P314 第三题的1,2
在前面所讲的各种操作中,事件的执行都是通过“事件驱动程序”完成的。那么,如果我们要设计菜单,该如何操作呢,
第11章 菜单程序设计
看看WORD的菜单。
11.1 用菜单编辑器建立菜单
一、菜单类型
1. 下拉式菜单
例:单击“文件”菜单所显示的就是下拉式菜单。
2. 弹出式菜单
例:用鼠标右键单击窗体时所显示菜单是弹出式
菜单。
二、启动菜单编辑器的
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
有4种方法:
(1) 执行“工具”菜单中的“菜单编辑器”命令。
(2) 执行热键 Ctrl+E
(3) 单击
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
工具栏中的“菜单编辑器”按钮。
(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 C1 无 无
子菜单项1 加 Add 1 Ctrl+A
子菜单项2 减 Min 1 Ctrl+B
主菜单项2 计算乘、除 C2 无 无
子菜单项1 乘 Mul 1 Ctrl+C
子菜单项2 除 Div 1 Ctrl+D
主菜单项2 清除与退出 C3 无 无
子菜单项1 清除 Clear 1 Ctrl+E
子菜单项2 退出 quit 1 Ctrl+F
2. 编写程序代码
用户单击菜单项就可打开相应的事件。
加法事件:
Private Sub add_Click()
result.Caption=Val(num1.Text)+Val(num2.Text)
End Sub
减法事件:
Private Sub min_Click()
result.Caption=Val(num1.Text)-Val(num2.Text)
End Sub
乘法事件:
Private Sub mul_Click()
result.Caption=Val(num1.Text)*Val(num2.Text)
End Sub
除法事件:
Private Sub div_Click()
result.Caption=Val(num1.Text)/Val(num2.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, X,Y, Boldcommand
(1) 该格式有六个参数,除“菜单名”外,其余参数
均为可选。当省略对象时,弹出式菜单只能在当前窗体显示。如果需要弹出式菜单在其它窗体中显示,则必须加上窗体名。
(2) 为了显示弹出式菜单,通常把popupmenu方法放在窗体的mousedown事件中。一般通过鼠标右键显示弹出式菜单,可用botton参数来实现。
左键的botton参数值为1,右键的botton参数值为
2。
可用下面语句通过单击鼠标右键来响应mousedown
事件,显示弹出式菜单。
If botton=2 then popupmenu 菜单名
例:建立一个弹出式菜单,用来改变文本框中字体的属性。(设文本框中的字的大小为“小三”)
(1) 各菜单项属性如下:
内缩符号 可见性 Name 标题
字体格式化 Popformat False 无
Popbold 1 True 粗体
Popitalic 1 True 斜体
Lishu 1 True 隶
书
关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf
quit 1 true 退出
(2) 编写窗体的mousedown事件.
Private Sub Form_MouseDown(Button 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的选择题、填空题