《VB教案菜单设计》由会员分享，可在线阅读，更多相关《VB教案菜单设计（15页珍藏版）》请在金锄头文库上搜索。
1、VBVB教案教案( (菜单设计菜单设计) )第十章第十章 界面设计界面设计10.2 菜单设计菜单设计下拉式菜单下拉式菜单下拉式菜单下拉式菜单 “菜单编辑器菜单编辑器”是是VB提供的一种用来建立菜单栏的工具，利用该工具可提供的一种用来建立菜单栏的工具，利用该工具可以方便快捷的建立起菜单。以方便快捷的建立起菜单。“菜单编辑器菜单编辑器”可以通过以下方式打开：选择可以通过以下方式打开：选择“工具工具”菜单下的菜单下的“菜单编辑菜单编辑器器”命令，或者点击工具栏中的命令，或者点击工具栏中的“菜单编辑器菜单编辑器”按钮，都可以打开如图按钮，都可以打开如图7-10所示所示“菜单编辑器菜单编辑器”窗口。窗口
2、。“菜单编辑器菜单编辑器”对话框分对话框分为两部分：上半部分是为两部分：上半部分是控件属性区，用来设置控件属性区，用来设置属性，下半部分为菜单属性，下半部分为菜单编辑区，用来显示用户编辑区，用来显示用户设置的菜单和菜单项。设置的菜单和菜单项。 第十章第十章 界面设计界面设计属性区的各个属性含属性区的各个属性含义如表如表7-3所示。所示。名称名称说明明标题(Caption)输入入该项内容可建立菜内容可建立菜单名或命令名。名或命令名。名称名称(Name) 设置菜置菜单项的名称，相当于控件的的名称，相当于控件的Name属性，属性，用于在程序中用于在程序中访问菜菜单索引索引(Index)设置菜置菜单控
3、件数控件数组中的下中的下标快捷快捷键(Shortcut)设置与菜置与菜单等价的快捷等价的快捷键复复选(Checked)选中此内容中此内容时，表示，表示该菜菜单项当前当前处于活于活动状状态有效有效(Enabled)设置菜置菜单项是否可用是否可用可可见(Visible)设置菜置菜单项是否可是否可见表表7-3 菜单控件的主要属性菜单控件的主要属性第十章第十章 界面设计界面设计10.2 菜单设计菜单设计下拉式菜单下拉式菜单下拉式菜单下拉式菜单 名称名称功能功能 每次每次单击都把都把选中的菜中的菜单项左左/右移一个等右移一个等级，一共可，一共可创建建4个子菜个子菜单等等级每次每次单击都把都把选中的菜中的
4、菜单项在同在同级菜菜单中中向上向上/下移下移动一个位置一个位置下一个下一个选定下一个菜定下一个菜单项插入插入在光在光标所在所在处插入一个空白菜插入一个空白菜单项删除除删除光除光标所在行的菜所在行的菜单项表表7-4编辑区各部分功能编辑区各部分功能第十章第十章 界面设计界面设计10.2 菜单设计菜单设计例子例子例子例子 例【例【7-2】 创建一个简易文本编辑器。创建一个简易文本编辑器。设计方法：在窗体上放置一个文本框设计方法：在窗体上放置一个文本框Text1，然后按图，然后按图7-11所示设计菜所示设计菜单，设计方法如上述所示。单，设计方法如上述所示。第十章第十章 界面设计界面设计编写视图菜单下的
5、编写视图菜单下的“颜色颜色”菜单项的菜单项的Click事件代码：事件代码：Private Sub color_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.colorEnd Sub编写视图菜单下的编写视图菜单下的“字体大小字体大小”菜单项下的两个子菜单项的菜单项下的两个子菜单项的Click事件代码：事件代码：Private Sub sixteen_Click()Text1.fontsize = 16End SubPrivate Sub twenty_Click()Text1.fontsize = 20End Sub编
6、写视图菜单下的编写视图菜单下的“字体风格字体风格”菜单项下的两个子菜单项的菜单项下的两个子菜单项的Click事件代码：事件代码：Private Sub kai_Click()Text1.FontName = 楷体楷体_GB2312“End SubPrivate Sub li_Click()Text1.FontName = 隶书隶书“End Sub第十章第十章 界面设计界面设计菜菜单单是是VB中中的的一一个个控控件件，因因此此也也能能对对菜菜单单应应用用控控件件数数组组的的概概念念。菜菜单单控控件件数数组组同同其其他他控控件件数数组组一一样样，也也是是需需要要依依靠靠Index值值来来判断选中的
7、哪个菜单项。判断选中的哪个菜单项。如如果果将将例例7-2中中的的同同一一级级菜菜单单改改成成使使用用菜菜单单控控件件数数组组，可可将将菜菜单单项项设设置置进进行行如如下下修修改改：将将“文文件件”菜菜单单下下的的“打打开开”和和“保保存存”的的索索引引(Index)值值分分别别设设置置为为1和和2，将将二二者者的的名名称称(Name)值值均均改改为为files；将将“字字体体大大小小”菜菜单单下下的的“16”和和“20”的的索索引引(Index)值值分分别别设设置置为为1和和2, 将将二二者者的的名名称称(Name)值值都都改改为为size；将将“字字体体风风格格”菜菜单单下下的的“隶隶书书”
8、和和“楷楷体体”的的索索引引(Index)值值分分别别设设置置为为1和和2，将将二二者者的的名名称称(Name)值值都都改改为为style，具具体体设设置置如如表表7-6所示。所示。 10.2 菜单设计菜单设计菜单控件数组菜单控件数组菜单控件数组菜单控件数组第十章第十章 界面设计界面设计所有的菜单控件都具有所有的菜单控件都具有Enabled属性，当该属性为属性，当该属性为False时，菜单项变为灰色，点击时不响应任何操作，快捷键的时，菜单项变为灰色，点击时不响应任何操作，快捷键的访问也无效。例如，要使例访问也无效。例如，要使例6-2中的中的“打开打开”菜单项无效，可菜单项无效，可以先进行如下设
9、置：以先进行如下设置：Open.Enabled=False在运行时该菜单项就变成灰色，不响应鼠标或键盘的任在运行时该菜单项就变成灰色，不响应鼠标或键盘的任何操作。何操作。如果要使菜单项在运行时隐藏起来，可以利用如果要使菜单项在运行时隐藏起来，可以利用Visiable属属性达到这一目的。例如：性达到这一目的。例如：Open.visiable=False在运行时，在运行时，“打开打开”这一菜单项就不可见。这一菜单项就不可见。菜单无效性设计菜单无效性设计菜单无效性设计菜单无效性设计第十章第十章 界面设计界面设计弹出式菜单的设计方法如下：先使用菜单编辑器设计一个一般的菜单，弹出式菜单的设计方法如下：先
10、使用菜单编辑器设计一个一般的菜单，然后用然后用VB提供的提供的PopupMenu方法来显示弹出菜单。该方法的使用形方法来显示弹出菜单。该方法的使用形式如下：式如下：窗体名窗体名.PopupMenu 菜单名，标志，菜单名，标志，X，Y其中，菜单名是必须的，后面的其他几个参数是可选的。菜单名是指其中，菜单名是必须的，后面的其他几个参数是可选的。菜单名是指用右键单击时要显示的菜单的名称用右键单击时要显示的菜单的名称(Name)，X和和Y参数指定弹出菜单参数指定弹出菜单显示的位置，标志参数用于进一步定义弹出菜单的位置和性能，其取显示的位置，标志参数用于进一步定义弹出菜单的位置和性能，其取值含义如表值含
11、义如表6-7所示。所示。10.2 菜单设计菜单设计弹出式菜单弹出式菜单弹出式菜单弹出式菜单值说明明位置位置0菜菜单左上角位于左上角位于X4菜菜单上框中央位于上框中央位于X8菜菜单右上角位于右上角位于X性能性能0（默（默认）右右键单击触触发弹出菜出菜单2左左键、右、右键均可触均可触发弹出菜出菜单第十章第十章 界面设计界面设计例如，在例【例如，在例【7-2】中，右键单击文本框时弹出】中，右键单击文本框时弹出“字体风格字体风格”菜单，可添加菜单，可添加如下代码：如下代码：Private Sub Text1_MouseDown(Button As Integer, Shift As Integer,
12、X As Single, Y As Single)If Button = 2 Then PopupMenu fontstyle, 6End Sub运行后界面如图运行后界面如图7-12所示。其中所示。其中Button2 表示按下鼠标右键，参数表示按下鼠标右键，参数6是是4与与2的和。的和。10.2 菜单设计菜单设计弹出式菜单弹出式菜单弹出式菜单弹出式菜单第十章第十章 界面设计界面设计例例7-3 设计一个可以改变窗体背景颜色的弹出菜单。设计一个可以改变窗体背景颜色的弹出菜单。首先打开菜单编辑器，如图首先打开菜单编辑器，如图7-13 建立一个名为建立一个名为mnucolor的菜单，并取的菜单，并取消
13、消“可见可见”选择。选择。10.2 菜单设计菜单设计弹出式菜单弹出式菜单弹出式菜单弹出式菜单第十章第十章 界面设计界面设计菜单控件数组属性设置。菜单控件数组属性设置。10.2 菜单设计菜单设计弹出式菜单弹出式菜单弹出式菜单弹出式菜单标题标题(Caption)菜单名菜单名(Name)索引索引说明说明设置背设置背景色景色mucolormucolor菜单项菜单项1红色红色redred菜单项菜单项11绿色绿色greengreen菜单项菜单项12蓝色蓝色blueblue菜单项菜单项13第十章第十章 界面设计界面设计编写如下代码：编写如下代码：首先检查是否单击了鼠标右键，如果是单击右键则把首先检查是否单击
14、了鼠标右键，如果是单击右键则把mnucolor菜单显示菜单显示为一个弹出式菜单。为一个弹出式菜单。Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnucolor End IfEnd Sub10.2 菜单设计菜单设计弹出式菜单弹出式菜单弹出式菜单弹出式菜单第十章第十章 界面设计界面设计Private Sub red_click() Form1.BackColor = &HFFEnd SubPrivate Sub green_click() Form1.BackColor = &HFF00&End SubPrivate Sub blue_click() Form1.BackColor = &HFF0000 End Sub10.2 菜单设计菜单设计弹出式菜单弹出式菜单弹出式菜单弹出式菜单编辑菜单下的颜色代码编辑菜单下的颜色代码：结束结束
