进阶篇 共28页[1 2 >3< 4 5 6 7 ».. 最后一页]

为菜单编写代码

   二、编写代码

在为窗体创建了菜单后，运行程序时可以发现，虽然单击菜肆出菜单列表，将鼠标指针指向子菜单标题时也会出现子菜单，但此时却没有任何反应。这是因为还未为它们编写代码，还未赋予它们 灵魂。

每个菜单项都是一个菜单控件，菜单控件只能响应Click事件菜单编写代码就是编写它们的Click事件过程。这里为上一节所创建写代码，使之成为一个完整的应用程序。

实例编写代码

  在该程序中，为上例中所创建的菜单编写代码，使之能够执行与其题相对应的操作。例如，执行[文件]菜单中的[退出]命令，则退出应程序。

我们创建的包含菜单的窗体上放置一个文本框控件和一个用对话框控件，如图7．15所示。其中各菜单控件的属性设置各对象的属性设置见下表。 

  对象      属性        值
       窗体      Caption     菜单应用程序
       文本框    名称        Text1
                 Text        置空
                 MultiLine   True
                 ScrollBars  2
                 Visible     False
  通用对话框控件  名称       DiaColor

打开窗体上的[文件]菜单，弹出该菜单的下拉菜单，单击[新建]项，打开[代码]窗口，可见，该菜单的Click事件过程 自动出现在代码编辑区中。

在设计阶段，在[属性]窗口中将文本框的Visible属性设置成False，在程序运行时，窗体上的文本框是不可见的。执行[新建]先将文本框清空，然后使其可见。 代码如下：

 Private Sub MenClose_Click()
       Text1.Visible = False
     End Sub

     Private Sub MenColor_Click()
       DiaColor.Action = 3
       Text1.ForeColor = DiaColor.Color
     End Sub

     Private Sub MenExit_Click()
       End
     End Sub

     Private Sub MenFont_Click()
       Text1.FontBold = True
     End Sub

     Private Sub MenNew_Click()
       Text1.Text = ""
       Text1.Visible = True
     End Sub

     Private Sub MenSize_Click(Index As Integer)
       Select Case Index
       Case 0
          Text1.FontSize = 14
       Case 1
          Text1.FontSize = 18
       Case 2
          Text1.FontSize = 20
       End Select
      End Sub

运行该程序，则出现如下图所示的窗体，打开[文件]中的[新建]命令，在窗体上出现一个文本框。在该文本框中过[编辑]菜单可以设置文本的颜色、字体以及字号，   [文件]菜单中的[关闭]命令，则文本框消失，执行退出命令，则退出应用程序。

  也可以使用显示在菜单上的快捷键或访问键来操作菜单，例如，按下Ctrl+N组合键，则文本框出现；按下Ctrl+Q组合键，则退出应用程序。