新Visual Basic程序设计教程 教学课件 邱李华 郭全 vb第09章.pptVIP

第 9 章 界 面 设 计 9.1 菜单的设计 9.1.1 下拉式菜单 1．下拉式菜单的结构 （1）主菜单：包括若干个主菜单标题。放在主菜单栏中，一般用于对要执行的操作按功能进行分组。不同功能的操作划分在不同的主菜单标题下。每一个主菜单标题可以下拉出下一级菜单，称为子菜单。 复选：即菜单控件的Checked属性。该属性用来设置菜单项的左边是否带复选标记√。在菜单编辑器中选择该属性时，相应的菜单项的旁边会带有一个√符号，而在代码中通过设置菜单项的Checked属性值为True或False。 有效：即菜单控件的Enabled属性。该属性用来决定是否让菜单项对事件做出响应。 可见：即菜单控件的Visible属性。该属性用来决定菜单项是否显示。 “下一个”按钮：开始一个新的菜单项。 “插入”按钮：在菜单列表区中的当前选定行上方插入一行，用于插入一个新菜单项。 “删除”按钮：删除当前在菜单列表区中选定的行。 （3）菜单列表区用于显示菜单项的分级列表。子菜单项以缩进方式显示它们的等级。 在菜单编辑器中完成了各菜单项的设置之后，单击“确定”按钮关闭菜单编辑器，这时在窗体的顶部就可以看到设计的菜单结构。注意，在设计时单击菜单项不是执行菜单项的功能，而是打开菜单项的Click事件过程代码窗口。 在菜单编辑器中完成了各菜单项的设置之后，单击“确定”按钮关闭菜单编辑器。完成菜单设计。向窗体上添加一个文本框Text1，录入适当的文字。 以下是“编辑”菜单下的各子菜单项的Click事件过程： Private Sub txtStrikethru_Click() 删除线 If txtStrikethru.Checked = True Then Text1.FontStrikethru = False 给文本框去除删除线 txtStrikethru.Checked = False 去除“删除线”菜单项前面的符号√ Else Text1.FontStrikethru = True 给文本框加上删除线 txtStrikethru.Checked = True 给“删除线”菜单项前面加上符号√ End If End Sub Private Sub txtUnderLine_Click() 下划线 If txtUnderLine.Checked = True Then Text1.FontUnderline = False txtUnderLine.Checked = False Else Text1.FontUnderline = True txtUnderLine.Checked = True End If End Sub Private Sub txtItalic_Click() 斜体 If txtItalic.Checked = True Then Text1.FontItalic = False txtItalic.Checked = False Else Text1.FontItalic = True txtItalic.Checked = True End If End Sub Private Sub txtBold_Click() 粗体 If txtBold.Checked = True Then Text1.FontBold = False txtBold.Checked = False Else Text1.FontBold = True txtBold.Checked = True End If End Sub 在“文件”菜单下的分隔条子菜单项SptBar1之后添加一个新的子菜单项： 标题为空， 名称为SubMenu， 去除“可见”属性前面的? ， 设置索引属性为0， 则SubMenu为一个菜单控件数组，现在菜单控件数组中只有一个元素SubMenu(0)。 代码设计：在窗体模块中定义模块级变量MenuNum，用于保存当前SubMenu菜单数组的最大下标： Dim MenuNum As Integer “打开”菜单项的Click事件如下： Private Sub FileOpen_Click() OpenFileName =