第22讲 VB课件new.ppt

菜单 在VB中，利用系统提供的工具可以非常方便地建立下拉菜单和弹出式菜单。 一、下拉菜单 下拉菜单作为菜单栏位于窗口的标题栏下面，当单击其中某一项时，下拉出其相应的子菜单。 菜单通过菜单编辑器来制作。 可以通过4种方法进入菜单编辑器： （1）执行“工具”菜单中的“菜单编辑器”命令。 （2）使用热键[Ctrl+E]。 （3）单击工具栏中的“菜单编辑器”按钮。 （4）单击鼠标右键，单击“菜单编辑器”命令。 菜单编辑器窗口分为数据区、编辑区和菜单项显示区。 设计步骤如下： （1）建立控件 在窗体上添加一个文本框，将它的Text属性置为空。 （2）设计菜单 调出菜单设计窗口。在菜单设计窗口中，按表设计菜单项。 （3）把代码连接到菜单上 在窗体窗口单击菜单标题，然后在下拉菜单中单击要连接代码的菜单项，在屏幕上就会出现代码窗口，只要在头尾语句间输入代码即可。 Private Sub st_Click() Text1.FontName = 宋体 End Sub Private Sub ht_Click() Text1.FontName = 黑体 End Sub Private Sub lsh_Click() Text1.FontName = 隶书 End Sub Private Sub quit_Click() End End Sub Private Sub ct_Click() Text1.FontBold = Not Text1.FontBold End Sub Private Sub xt_Click() Text1.FontItalic = Not Text1.FontItalic End Sub Private Sub xhx_Click() Text1.FontUnderline = Not Text1.FontUnderline End Sub Private Sub sh_Click() Text1.FontSize = 12 End Sub Private Sub er_Click() Text1.FontSize = 20 End Sub 2 弹出式菜单 弹出式菜单也使用菜单编辑器建立。弹出式菜单不在窗口顶部下拉打开，而是通过单击鼠标右键在窗体的任意位置打开。 如果不想在窗体顶部显示该菜单，把菜单名（即主菜单项）的“可见”属性设置为False。 用PopupMenu方法显示弹出式菜单，其格式为： [对象.] PopupMenu 菜单名 [,Flags] [,x][,y] [,faultMenu] 【例2】我们将上例中的“字形”菜单的内容作为弹出式菜单的内容。 我们只需在代码窗口添加如下代码： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu zx, 2 End If End Sub 运行程序，鼠标右键单击窗体，即可弹出“字形”菜单的菜单内容。如果不想在窗体顶部显示“字形”菜单，则可在窗体编辑器中将zx主菜单项的“可见”属性设为False即可。 * 属性区 编辑区 菜单项显示区 属性区： 在多重文档（MDI)程序中指定该控件是否包含一个打开MDI子窗体列表 逻辑型数据 显示窗口列表 设置是否将该菜单项显示在菜单上 逻辑型数据 可见 指定该菜单项是否可操作 逻辑型数据 有效 指定是否允许在菜单项的左边设置复选标记 逻辑型数据 复选 指定菜单命令的快捷键 字符型数据 快捷键 指定一个数字来确定菜单项或菜单命令在菜单控件数组中的序号，该序号与各菜单控件的位置无关 整型数据 索引 指定菜单控件的名称 字符型数据 名称(Name) 指定菜单项或菜单命令显示的字符串 字符型数据 标题(Caption) 说明 属性值 属性名