Visual Basic程序设计实训教程 陆剑锋 主编 俞伟新 颜忠胜 副主编 ch10 控件数组与菜单新.pptVIP

第十部分 控件数组与菜单 控件数组 菜单 §1 控件数组 控件数组是指在同一窗体上拥有相同名称、相同事件过程的同一类控件。控件数组中每个元素(控件)都有相同的名称，用不同的Index属性(元素下标)确定。控件数组中不同控件可以有各自不同的属性值(除Name属性外)。 控件数组元素的Index不能超过32 767。 使用控件数组的好处在于减少事件过程的编码。 如，在窗体中添加10个命令按钮，标题依次为0~9，单击各按钮时在文本框中显示0~9数字。 §1 控件数组 Private Sub Command1_Click(Index As Integer) Text1 = Index End Sub Private Sub Form_Load() For i = 0 To 9 Command1(i).Caption = i Next End Sub §1 控件数组 一、创建控件数组 先向窗体中添加一个控件，选中后按Ctrl+C(复制)，然后按粘贴，在对话框选择“是”创建控件数组。 控件数组元素的事件过程与普通控件相似，但参数中多一个Index，用于区分哪个控件。 二、举例 编制一个如图所示的计算器。(ex1001.exe) §2 菜单 菜单(Menu)是Windows窗口的常见标准控件，允许为每个窗体创建一个独立的菜单。 菜单中包括菜单标题、访问键、主菜单、菜单项、父菜单、子菜单(不能超过4级)、单选菜单、复选菜单、分隔条、窗口菜单、灰化等概念。 §2 菜单 一、菜单控件的属性 菜单中每个菜单项都是一个菜单控件。 1.Name属性 2.Index属性 菜单控件也可以组成控件数组。 3.Caption属性 菜单的标题文字，可以使用定义菜单的访问键。如果一个菜单的标题为“-”则作为分隔项使用。主菜单或父菜单不能作为分隔项。 4.Enabled属性 决定菜单项是否可用(灰化)。 §2 菜单 5.Checked属性 决定菜单项前面是否有复选标记。 6.Visible属性 决定菜单项是否可见。 7.ShortCut属性 菜单项的快捷键，顶层菜单不能设置。运行时只读。 二、创建菜单 当处于“查看对象”状态时，打开“菜单编辑器”，在窗口中创建。 需要注意菜单项的次序和层次关系。 §2 菜单 三、菜单控件的Click事件 菜单项只有一个Click事件。 例：通过菜单数组控制文本框的字体名称。(ex1002.exe) §2 菜单 四、弹出式菜单 弹出式菜单即“快捷菜单”，一般在鼠标右键单击后出现。使用窗体对象的PopupMenu方法弹出菜单： PopupMenu 菜单名,flags,x,y,默认项 该方法除“菜单名”参数外，其它都可以省略。 其中，菜单名是菜单编辑器中制作的含有子菜单的菜单控件名。 X,y是菜单弹出的位置，省略时菜单弹出在鼠标附近。 默认项是一个菜单名称，指明弹出菜单中哪一项以粗体显示。 flags参数由两项之和构成，见下页： §2 菜单 §2 菜单 在前一示例的基础上加入快捷菜单，如下图： Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuFontName End Sub * * 在线教务辅导网： 更多课程配套课件资源请访问在线教务辅导网 Visual Basic程序设计 Visual Basic程序设计 Visual Basic程序设计 Visual Basic程序设计 Visual Basic程序设计 Visual Basic程序设计 Visual Basic程序设计 Visual Basic程序设计 Visual Basic程序设计 Visual Basic程序设计 弹出后左右键都响应 vbPopupMenuRightButton 2 弹出后响应左键 vbPopupMenuLeftButton 0 意义 常量 值 菜单响应行为 与x右对齐 vbPopupMenuRightAlign 8 与x中间对齐 vbPopupMenuCenterAlign 4 与x左对齐 vbPopupMenuLeftAlign 0 意义 常量 值 菜单弹出位置 Visual Basic程序设计 *