[已解决]CommandBar对象的Enabled属性的作用是什么？

爱疯

Enabled  获取或设置用于指定是否启用了指定 CommandBar 的 Boolean 值。可读写。

1. Sub MenuBar_Show()
   
2.     Dim myNewBar As Object
   
3.     Set myNewBar = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)
   
4.     ' You must first enable your custom menu bar before you make it visible.
   
5.     ' Enabling a menu bar adds it to the list of available menu bars on
   
6.     ' the Customize dialog box.
   
7.     ' Setting the menubar property to True replaces the built-in menu bar.
   
8.     myNewBar.Enabled = True
   
9.     myNewBar.Visible = True
   
10. End Sub
    

复制代码

启用或注释myNewBar.Enabled = True，请问：区别在哪儿？谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2011-5-30 08:36

默认就是True，所以没区别。但是成为False之后就无法显示了
Sub MenuBar_Show()
    Dim myNewBar As Object
    Set myNewBar = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)
    ' You must first enable your custom menu bar before you make it visible.
    ' Enabling a menu bar adds it to the list of available menu bars on
    ' the Customize dialog box.
    ' Setting the menubar property to True replaces the built-in menu bar.
    myNewBar.Enabled = False
    myNewBar.Visible = True
End Sub

跳转到最佳答案楼层

amulee

默认就是True，所以没区别。但是成为False之后就无法显示了
Sub MenuBar_Show()
    Dim myNewBar As Object
    Set myNewBar = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)
    ' You must first enable your custom menu bar before you make it visible.
    ' Enabling a menu bar adds it to the list of available menu bars on
    ' the Customize dialog box.
    ' Setting the menubar property to True replaces the built-in menu bar.
    myNewBar.Enabled = False
    myNewBar.Visible = True
End Sub

爱疯

谢谢阿木！
我昨天试true和false都能看到显示出添加的"Custom1"。
怎么今早试，false就会从自定义对话框中看不到。但它还在，因为CommandBars("Custom1").Delete 是成功的。 .... 晕
看来endable=false，就是禁用它，学习了