VB实验源程序例13-2 可变菜单可变文件菜单

【例9-2】动态菜单项的 要用菜单编辑器中创建如图9.4所示的菜单控件，请按照以下步骤执行： · 选取该窗体 · 从“工具”菜单中，选取“菜单编辑器”。或者在“工具栏”上单击“菜单编辑器”按钮。 · 在“标题”文本框中，为第一个菜单标题键入希望在菜单栏上显示的文本。如果希望某一字符成为该菜单项的访问键，也可以在该字符前面加上一个 (&) 字符。在菜单中，这一字符会自动加上一条下划线。菜单标题文本显示在菜单控件列框中。 · 在“名称”文本框中，键入将用来在代码中引用该菜单控件的名字。 · 单击向左或向右箭头按钮，可以改变该控件的缩进级。即改变该菜单条的级别。 · 如果需要的话，还可以设置控件的其他属性。 · 选取“下一个”就可以再建一个菜单控件。单击“插入”可以在现有的控件之间增加一个菜单控件。也可以单击向上与向下的箭头按钮，在现有菜单控件之中移动控件。 · 如果窗体所有的菜单控件都已创建，选取“确定”可关闭菜单编辑器。创建的菜单标题将显示在窗体上。在设计时，单击一个菜单标题可下拉其相应的菜单项。 表9.2 创建菜单示例表 标题 名称 快捷键 复选 有效 可见 文件(&f) Mnu文件 (None) V V ….新建(&N) Mnu新建 Ctrl+N V V ….打开(&O) Mnu打开 Ctrl+O V V ….关闭 Mnu关闭 Ctrl+F4 V V ….- Mnunull1 (None) V V ….保存(&A) Mnu保存 Ctrl+S V V ….另存为 Mnu另存为 (None) V V ….- Mnunull2 (None) V V ….退出(&E) Mnu退出 Ctrl+E V V 编辑(&E) Mnu编辑 (None) V V ….剪切(&T) Mnu剪切 Ctrl+X V V ….复制(&C) Mnu复制 Ctrl+C V V ….粘贴(&P) Mnu粘贴 Ctrl+V V V ….- Mnunull3 (None) V V ….删除(&L) Mnu删除 Del V V ….全选(&A) Mnu全选 (None) V V 视图(&V) Mnu视图 (None) V V 要在菜单编辑器中创建菜单控件数组，请按照以下步骤执行： 1. 从“工具”菜单中，选取“菜单编辑器”。 2. 在“标题”文本框中，键入想出现在菜单栏中的第一个菜单标题的文本。菜单标题文本显示在菜单控件列表框中。 3. 在“名称”文本框中，键入将在代码中用来引用菜单控件的名称。保持“索引”框是空的。 4. 通过设定“标题”和“名称”来创建将成为数组中第一个元素的菜单项。 5. 将数组中第一个元素的“索引”设置为 0。 6. 在同一缩进级上创建第二个菜单项。 7. 将第二个元素的“名称”设置成与第一个元素相同，且把“索引”设置为 1。 8. 对于数组中的后续元素重复步骤 4- 7。 菜素在菜单控件列表框中必须是连续的，而且必须在同一缩进级上。创建菜单控件数组时，要把在菜单中出现的分隔符条也包括进去。 如上例所建的菜单上新增一个分隔条和五个菜单项。 表9.3 创建可变菜单示例表 标题 名称 索引 快捷键 复选 有效 可见 备注 ….另存为 Mnu另存为 (None) V V 原有 ….- mnurecfile 0 (None) V 新增 文件1 mnurecfile 1 (None) V 新增 文件2 mnurecfile 2 (None) V 新增 文件3 mnurecfile 3 (None) V 新增 文件4 mnurecfile 4 (None) V 新增 文件5 mnurecfile 5 (None) V 新增 ….- Mnunull2 (None) V V 原有 ….退出(&E) Mnu退出 Ctrl+E V V 原有 创建了菜单控件数组之后，用户可以在打开文件的中添加一些代码，把文件名添加到文件菜单下。如上节新建6个元素的菜单控件数组，它们的Name属性为mnurecfile，其中第一个元素（即索引值为0的元素）被定义为分隔线，所有的数组元素在没有打开文件之前，Visible属性都是False，用户无法看到。 当运行时用户第一次存储一个文件时，这个分隔符条就会变得可见，且第一个文件名被加到该菜单上。运行时每存储一个文件，则会再装入一个菜单控件到该数组中，从而使该菜单增长。运行时所创建的控件可以使用Hide方法或者设置该控件的Visible属性为False来隐藏。如果要从内存中删除一个控件数组中的控件，请使用Unload语句。 图9.4 可变菜单示例 下面的程序将实现动态添加菜单项。 运行时text1(0)不显示，text1(1)——text1(5)的内容将自动添加到“文件”菜单上。 Private Sub Text1_Change(Index As Integer) If Text1(1).Text = "" And Text1(2).Text = "" And Text1(3).Text = "" _And Text1(4).Text = "" And Text1(5).Text = "" Then mnurecfile(0).Visible = False Else mnurecfile(0).Visible = True End If If Text1(Index) = "" Then mnurecfile(Index).Visible = False Else mnurecfile(Index).Visible = True mnurecfile(Index).Caption = Text1(Index).Text End If End Sub 以上添加文件列表的方法不能保存文件列表。当应用程序结束后，所有的文件列表都将丢失，用户下一次启动应用程序后，无法通过文件列表直接打开最近使用过的文件。 要想在关闭应用程序后仍然保留数据，就必须将数据保存到文件中。