Visual Basic程序设计教程第6章 用户界面设计.pptVIP

6.1.5 应用范例 例6-1 创建固定式的下拉式菜单。 要求：设计一个下拉式菜单，各主菜单项及其下拉菜单如图6-5所示。下拉菜单中的子菜单项用于对文本框Text1设置字体、字号、文字颜色和文字效果。其中，效果子菜单下的各菜单项具有复选功能，在运行初始时各项前面没有√符号，与文本框的初始状态一致。 第*页 步骤一：界面设计。 （1）在窗体上添加一个文本框，用于显示文字信息。 （2）选择“工具”菜单中的“菜单编辑器”命令，设置各菜单项的属性，如图6-6所示。 第*页 步骤二：属性设置。 第*页 步骤三：编写代码。 （1）将“字体”菜单下的菜单项设计成一个控件数组fn1，它们共享以下事件过程： Private Sub fn1_Click(Index As Integer) Text1.Font = fn1(Index).Caption End Sub （2）将“字号”菜单下的菜单项设计成一个控件数组fs1，它们共享以下事件过程： Private Sub fs1_Click(Index As Integer) Text1.FontSize = Val(fs1(Index).Caption) End Sub 第*页 （3）“颜色”菜单下的各菜单项为独立的菜单控件，因此应分别在其单击事件过程中编写代码： Private Sub fcb_Click() Text1.ForeColor = vbBlue End Sub Private Sub fcg_Click() Text1.ForeColor = vbGreen End Sub Private Sub fcr_Click() Text1.ForeColor = vbRed End Sub 第*页 （4）“效果”菜单下的各菜单项具有复选功能，各事件过程如下： Private Sub feb_Click() If feb.Checked = True Then Text1.FontBold = False feb.Checked = False Else Text1.FontBold = True feb.Checked = True End If End Sub Private Sub fei_Click() If fei.Checked = True Then Text1.FontItalic = False fei.Checked = False Else Text1.FontItalic = True fei.Checked = True End If End Sub 第*页 Private Sub fes_Click() If fes.Checked = True Then Text1.FontStrikethru = False fes.Checked = False Else Text1.FontStrikethru = True fes.Checked = True End If End Sub Private Sub feu_Click() If feu.Checked = True Then Text1.FontUnderline = False feu.Checked = False Else Text1.FontUnderline = True feu.Checked = True End If End Sub 第*页 例6-2 创建可增减菜单项的下拉式菜单。 要求：设计一个程序，实现菜单的动态增加与删除，运行程序时窗体的初始菜单如图6-7所示。在“菜单名称”文本框中输入“新增菜单一”，如图6-8所示。单击“增加”按钮即可在窗体菜单中增加“新增菜单一”菜单项，如图6-9所示。若要删除菜单，可在“菜单名称”文本框中输入菜单名称，单击“删除”按钮即可。 图6-7 图6-8 图6-9 第*页 步骤一：界面设计及属性设置。 在窗体上添加1个标签控件、1个文本框控件和2个命令按钮控件。 步骤二：属性设置。 第*页 步骤三：编写代码。 （1）在代码窗口的顶端声明程序所需变量： Option Explicit Private max_index As Integer （2）为“增加”按钮的Click事件添加如下代码： Private Sub Command1_Click() 加载新的菜单项 max_index = max_index + 1 Load mnufilelist(max_index) mnufilelist(max_inde