VB菜单和窗体PPT学习教案

1、会计学1VB菜单和窗体菜单和窗体返回目录第1页/共52页第2页/共52页第3页/共52页 菜单控件区 菜单项显示区 编辑区 第4页/共52页第5页/共52页第6页/共52页第7页/共52页第8页/共52页第9页/共52页第10页/共52页第11页/共52页第12页/共52页第13页/共52页第14页/共52页第15页/共52页第16页/共52页第17页/共52页第18页/共52页第19页/共52页第20页/共52页返回目录第21页/共52页第22页/共52页第23页/共52页第24页/共52页第25页/共52页第26页/共52页第27页/共52页返回目录第28页/共52页第29页/共52页第3

2、0页/共52页2. Imagelist1控件-右键属性-插入图片1. Ctrl+E添加菜单项插入图片路径C:Program FilesMicrosoft Visual StudioGraphicsbitmapsOFFCTLBRlargecolorC:Program FilesMicrosoft Visual StudioGraphicsbitmapstlbr_w95第31页/共52页3.添加toolbars控件，设置“通用”4.修改按钮选项卡，填写关键字、图像数字第32页/共52页5.添加StatusBar控件并修改StatusBar控件属性第33页/共52页第34页/共52页第35页/共52

3、页返回目录第36页/共52页第37页/共52页 标准窗体 MDI 子窗体 MDI 窗体 第38页/共52页1.创建MDI父窗体2.创建MDI子窗体：创建一个标准窗体，修改窗体属性MDIchild=true第39页/共52页3.修改MDI父窗体为启动窗体：工程-属性-通用-启动4.完成窗体菜单、按钮的添加。添加如下代码：Private Sub MDIForm_Load()Form2.ShowForm3.ShowForm4.ShowEnd Sub第40页/共52页第41页/共52页第42页/共52页第43页/共52页第44页/共52页控件名称（Name）标题（Caption）文本（Text）边界（

4、BorderStyle）Text1无（清空）默认Text2无（清空）默认Label1操作数1无默认Label2操作数2无默认Label3计算结果无默认Label4（清空）无1-Fixed Single第45页/共52页菜单项标题名称内缩符号快捷键菜单标题1设置（&s）set无无菜单项1清除cls1Ctrl+c菜单项2退出exit1Ctrl+e菜单标题2计算（&o）ope无无菜单项1加法add1Ctrl+a菜单项2减法sub1Ctrl+s菜单项3-sep1无菜单项4乘法mul1Ctrl+m菜单项5除法div1Ctrl+d第46页/共52页位置常数值说明vbPopupMenuLeftAlign0（默认值）弹出式菜单的左边定位于X。vbPopupMenuCenterAlign4弹出式菜单的居中定位于X。vbPopupMenuRightAlign8弹出式菜单的右边定位于X。第47页/共52页行为常数值说明vbPopupMenuLeftButton0（默认值）只能用鼠标左键选择弹出式菜单中的菜单项。vbPopupMenuRi