菜单和工具栏知识(8)-对工具栏的运行时刻修改

时　间:2004-12-16 00:00:00
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:菜单和工具栏知识(8)-对工具栏的运行时刻修改
正　文:

用户可以对在设计时刻创建的工具栏进行编程，使其那个在运行时对条件的变化作出动态响应。如果一个特殊的控件在某个场合下不是合适的选择，那么抑或可以删除或者禁用该控件以防止用户点中它。如果一个控件有两种状态来表示选项，用户可以采用在控件被按下时表示打开选项，控件被放开时表示关闭选项。

 注释 虽然既可以使用“自定义”对话框也可以使用Visual Basic对工具栏进行设计时刻修改，但是必须使用Visual Basic来进行任何运行时刻修改。

工具栏在屏幕上所占用的空间也可以以其他方式用来显示日期；用户可以在必要的时候显示工具栏而在不再需要它的时候把它隐藏起来。工具栏在它的Visual 属性为True(真)时是可见的，而在该属性为False(假)时是不可见的。设置该属性为True(真)就等价于，在“工具栏”对话框中的“工具栏”表里该工具栏名字旁边的复选框内打上对钩，然后单击“确定”。

下面的Microsoft Excel的过程指定给“视图”菜单中的菜单项View MyToolbar，用户每次点击该菜单项，就使该过程在菜单项和工具栏Visible属性的两种状态之间进行切换。当工具栏重新出现时，它所处的位置就是它隐藏不可见时的位置。

Sub ViewMyAppToolbar()

With CommandBars("Worksheet Menu Bar").Controls("View").Controls("View MyToolbar")

If .State = msoButtonUp Then

.State = msoButtonDown

CommandBars("MyAppTools").Visible = True

Else

.State = msoButtonUp

CommandBars("MyAppTools").Visible = False

End If

End With

End Sub

当工具栏可见时，用户可以单击上面的任何控件，运行给控件指定的过程。

如果想要一个特定的工具栏只在某种条件存在时才出现，那么可以在运行时刻隐藏或显示工具栏控件。通过设置Visible属性为True(真)或False(假)，能够有效地向用户工作区添加控件，或者从用户工作区中去掉控件而不必真正地删除该控件。

 注释 因为Word可以在文档和模板中保存自定义信息，那么当文档或模板有效时，就会显示出自定义工具栏和工具栏控件，而当文档或模板无效时，又会把它们隐藏起来。与此相对照，因为Microsoft Excel在工作簿级保存自定义信息，又会需要在事件代码中使用Visible属性来动态地更改界面。

 移动工具栏及调整工具栏的大小

用户可能希望在自己的应用程序运行时能够随着条件的改变来调整屏幕上工具栏的突出性。这可以通过改变工具栏的大小或位置来做到。用户可以使用工具栏所支持的几种属性来对其进行调整；将它们定位在应用程序窗口的底部、底部、左边或者右边；或者将它们放在屏幕的随便什么位置(如果它们是浮动工具栏的话)。要对表示工具栏的CommandBar对象的属性和方法作更多的了解，请参考“帮助”中的“CommandBar 对象”，使用标题上的跳转来显示属性和方法的列表。

 恢复内置工具栏

如果一个默认工具栏已经被修改了－被用户或Visible Basic过程－用户能够通过Reset方法将工具栏恢复到它的默认状态。使用该方法等价于，在“自定义”对话框中的“工具栏”一栏里选中被自定义的内制工具栏的名字，然后单击“确定”。