VB程序计--菜单、对话框及多重窗体.pptVIP

菜单、对话框及多重窗体;提出问题;本章主要内容：;两种菜单类型：下拉式菜单、弹出式菜单;子 菜单;1：菜单控件 菜单项(主菜单项或子菜单项)也称为菜单控件 菜单项具有其属性、事件、方法 通过“菜单编辑器”完成设计;*Caption;Caption;Checked ;编辑区;【例1 】设计一个具有算术运算（+、-、×、/ ）及清除功能的菜单。从键盘上输入两个数，利用菜单命令求出它们和、差、积或商，并显示出来。 ;编写程序代码 ;【例2 】设计菜单界面如下图所示，下拉菜单中的子菜单项用于对文本框设置字体、字号、文字颜色和效果。其中，效果菜单下的各菜单项具有复选功能，设运行初始时各项前面没有√符号，与文本框初始状态一致;菜单编辑器设置如下：;续上表：;菜 单 列 表 区;菜 单 列 表 区;菜单项事件代码设计如下：;“颜色”菜单下的各菜单项为独立的菜单控件，因此应分 别在其单击事件过程中编写代码，各事件过程如下: Private Sub CC1_Click() Text1.ForeColor = vbRed End Sub Private Sub CC2_Click() Text1.ForeColor = vbGreen End Sub Private Sub CC3_Click() Text1.ForeColor = vbBlue End Sub;“效果”菜单下的各菜单项具有复选功能，每次单击时切换成另一种状态。因此要判断当前菜单项的Checked属性，各事件过程如下:;Private Sub DD3_Click() ‘粗体 If DD3.Checked = True Then Text1.FontBold = False DD3.Checked = False Else Text1.FontBold = True DD3.Checked = True End If End Sub Private Sub DD4_Click() ‘斜体 If DD4.Checked = True Then Text1.FontItalic = False DD4.Checked = False Else Text1.FontItalic = True DD4.Checked = True End If End Sub;2：方法PopupMenu的格式： [窗体名.]PopupMenu 菜单名[,flags[,x[,y[,boldcommand]]]] flags — 指定菜单的位置和行为，祥见P171表10-2、10-3 x — 菜单的x坐标，缺省则为鼠标坐标 y — 菜单的y坐标，缺省则为鼠标坐标 boldcommand — 指定要显示为黑体的菜单项控件名称;MouseDown事件: Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single) （发生在窗体上的事件过程）;返回一个整数，在 Button 参数指定的按钮被按下或者被释放的情况下，该整数相应于 SHIFT,CTRL,和 ALT 键的状态。某键被按下使得一个二进制位被设置。shift 参数是具有相应于 SHIFT 键（位 0），CTRL 键（位 1），以及 ALT 键（位 2）最少二进制位的一个位字段。这些位的值分别等于 1，2，和 4。;【例3 】在例2的基础上设计窗体和文本框的弹出式菜单，如下图所示：;吧雪鸣事圆监坊即泳骸嚼狈圆禁糖栓必巫勺商伊球碱崖赏拾钦肋雷芳柔市VB程序计--菜单、对话框及多重窗体VB程序计--菜单、对话框及多重窗体;梅韶腻蔷孰叠伟诈军蕉斡梦订顶苛冶帅晶犯仰恿藐郎苑嫂哲旧望童廊埔钥VB程序计--菜单、对话框及多重窗体VB程序计--菜单、对话框及多重窗体;文本框的MouseDown事件代码设计如下： Private Sub Text1_MouseDown (Button As Integer, Shift