chap11（菜单与多窗体应用程序）

1、Visual BasicVisual Basic程序设计教程程序设计教程第第11 11章章 菜单与多窗体应用程序菜单与多窗体应用程序1Visual BasicVisual Basic程序设计教程程序设计教程本章主要内容2菜单编辑器菜单编辑器下拉式菜单下拉式菜单弹出式菜单弹出式菜单多窗体应用程序多窗体应用程序Visual BasicVisual Basic程序设计教程程序设计教程11.1 菜单3菜单的功能：提供人机对话的界面，控制各菜单的功能：提供人机对话的界面，控制各种功能模块的运行种功能模块的运行VBVB中常用的菜单：下拉式、弹出式中常用的菜单：下拉式、弹出式Visual BasicVisu

2、al Basic程序设计教程程序设计教程1 菜单编辑器4主要设计两个部分主要设计两个部分 菜单栏菜单栏( (即主菜单即主菜单) )，包含多个菜单项。，包含多个菜单项。 各级子菜单各级子菜单: 可执行的菜单命令可执行的菜单命令、下级子菜单。下级子菜单。“菜单编辑器菜单编辑器”窗口分为窗口分为 属性区属性区 编辑区编辑区 显示区显示区Visual BasicVisual Basic程序设计教程程序设计教程属性区属性名属性名属性值属性值说明说明标题标题(Caption)字符型字符型菜单项显示字符串菜单项显示字符串名称名称(Name)字符型字符型菜单控件名称菜单控件名称索引索引整型整型指定该菜单在菜单

3、控件数组中的序号指定该菜单在菜单控件数组中的序号快捷键快捷键字符型字符型指定菜单命令的快捷键指定菜单命令的快捷键复选复选逻辑型逻辑型是否允许在菜单项的左边设置复选标记是否允许在菜单项的左边设置复选标记有效有效逻辑型逻辑型指定菜单项是否可操作指定菜单项是否可操作可见可见逻辑型逻辑型是否将菜单项显示在菜单上是否将菜单项显示在菜单上显示窗口列表显示窗口列表逻辑型逻辑型在在MDI中指定是否有子窗体列表中指定是否有子窗体列表5Visual BasicVisual Basic程序设计教程程序设计教程分隔线 在标题栏中写入“-”，则在菜单中显示一条分隔线。键盘选择 在菜单项标题某字母前加“&”字符，

4、可使该字符成为访问键（按Alt+该字符，可以选择相应的菜单项）。6Visual BasicVisual Basic程序设计教程程序设计教程编辑区右箭头：每单击一次该按钮，产生4个点（.）即内缩符号，用来确定菜单项的层次。每单击一次，选定的菜单将下移一个等级。左箭头上箭头：每单击一次，把选定的菜单在同级菜单内 向上（前）移动一个位置。下箭头下一个：开始一个新的菜单项插入：在当前选定的菜单项前面插入一个新的菜单项删除：删除当前选定的菜单项7Visual BasicVisual Basic程序设计教程程序设计教程2. 下拉式菜单设计带有下拉式菜单的应用程序主要包括两个步骤：（1）设计主菜单和各级子菜

5、单；（2）把程序代码连接到相应菜单项上。设计好菜单项后，在编辑状态下单击某菜单项，即可对该菜单项的Click事件进行编程；也可以在代码窗口的“对象”列表框中选择某菜单项的名字，即可对该菜单项的Click事件过程编写程序代码。8Visual BasicVisual Basic程序设计教程程序设计教程例 Private Sub Add_Click() Label1.Caption = + Label2.Caption = = & (Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Sub_Click() Label1.Caption =

6、 - Label2.Caption = = & (Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Exit_Click() EndEnd Sub9Visual BasicVisual Basic程序设计教程程序设计教程例 Private Sub bajinzhi_Click()bajinzhi.Checked = Trueshijinzhi.Checked = Falseshiliujinzhi.Checked = FalseLabel5.Caption = Oct$(Val(Text1.Text)End SubPrivate S

7、ub shijinzhi_Click()bajinzhi.Checked = Falseshijinzhi.Checked = Trueshiliujinzhi.Checked = FalseLabel4.Caption = Val(Text1.Text)End SubPrivate Sub shiliujinzhi_Click()bajinzhi.Checked = Falseshijinzhi.Checked = Falseshiliujinzhi.Checked = TrueLabel6.Caption = Hex$(Val(Text1.Text)End Sub10Visual Basi

8、cVisual Basic程序设计教程程序设计教程Private Sub qingchu_Click()Text1.Text = Label4.Caption = Label5.Caption = Label6.Caption = End SubPrivate Sub tuichu_Click()EndEnd Sub11Visual BasicVisual Basic程序设计教程程序设计教程3 弹出式菜单设计弹出式菜单-一种独立于菜单栏而显示在窗体上的浮动菜单，通过单击鼠标右键在窗口的任意位置打开。创建 1）用菜单编辑器建立菜单，将菜单名（主菜单项）的“可见”属性设置为false（子菜单项不要

9、设置）。 2）用popupMenu方法弹出显示，格式见后 12Visual BasicVisual Basic程序设计教程程序设计教程弹出式菜单的调用格式对象. popupMenu 菜单名 , flags, x, y , boldCommand 13为窗体名，为窗体名，省略为当省略为当前窗体前窗体主菜单项名主菜单项名指定弹出式菜单指定弹出式菜单显示位置的坐标显示位置的坐标Flag=0 x、y为菜单的左上角的坐标为菜单的左上角的坐标Flag=4 x、y为菜单的顶边中间的坐标为菜单的顶边中间的坐标Flag=8 x、y为菜单的右上角的坐标为菜单的右上角的坐标用来在菜单中用来在菜单中显示一个菜单显示一

10、个菜单控制控制Visual BasicVisual Basic程序设计教程程序设计教程例例 建立一个弹出式菜单，用来改变文本框中字体的建立一个弹出式菜单，用来改变文本框中字体的属性。属性。 在窗体中画一个文本框，编写form_load事件：Text1.text = VB程序设计语言在“菜单编辑器”中，建立各菜单项，设置属性。编辑窗体的mouseDown事件过程。 Private Sub Form_MouseDown( Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMe

11、nu popFormat End If End Sub对各个子菜单项编写事件过程。14Visual BasicVisual Basic程序设计教程程序设计教程菜单项的属性标题标题namename内缩内缩可见性可见性字体格式化字体格式化popFormat无无falsefalse粗体粗体boldbold1 1truetrue下划线下划线underunder1 1truetrue退出退出quitquit1 1truetrue15Visual BasicVisual Basic程序设计教程程序设计教程11.2 多窗体应用程序实际上是单一窗体的集合。通过 工程添加窗体命令实现。16Visual Basi

12、cVisual Basic程序设计教程程序设计教程与多重窗体程序设计有关的语句和方法Load 将窗体装入内存，但窗体并未显示。UnLoad 将窗体从内存中消除。 .Hide 隐藏窗体不在屏幕上显示，但并不从内存中消除。 .Show 模式 显示窗体。 171 1: : 模态模态-鼠标只能在此窗体内起作用，鼠标只能在此窗体内起作用，关闭此窗体后才能对其它窗体操作。关闭此窗体后才能对其它窗体操作。 0 0: : 非模态非模态( (默认模式默认模式) ) -不关闭此窗体，不关闭此窗体，也能对其它窗体操作。也能对其它窗体操作。Visual BasicVisual Basic程序设计教程程序设计教程多窗体应用程序设计步骤v建立界面v编写代码v运行程序18Visual BasicVisual Basic程序设计教程程序设计教程指定启动窗体19Visual BasicVisual Basic程序设计教程程序设计教程例例 介绍介绍“某某电脑公司某某电脑公司”出售的微机。从清单上查出售的微机。从清单上查到所需要的某种型号，然后显示该微机的配置和价格。到所需要的某种型号，然后显示该微机的配置和价格。要求介绍四种微机：要求介绍四种微机：HX2000A、HX2000B、 HX2000C、 HX2000D。20窗体窗体窗体名窗体名(name) 标题标题(ca