关于通过功能区按钮控制任务窗格显示和隐藏的问题

bzjwcws

在创建任务栏窗格后，我们可以通过功能区的如下代码控制任务窗格的显示和隐藏：
Globals.ThisAddIn.任务窗格.Visible = Not Globals.ThisAddIn.任务窗格.Visible
Button1.Label = IIf(Button1.Label = "已显示", "已隐藏", "已显示")
现在的问题是：
任务窗格本身有一个关闭按钮，如果使用这个关闭按钮关闭任务窗格的话，功能区控制按钮就不再起作用，为了保持同步，解决这个问题有两个办法，一是屏蔽任务窗格的关闭按钮，百度一下没有找到相关代码。二是通过任务窗格的VisibleChanged事件控制功能区按钮，通过如下代码没有成功，请大佬们不吝赐教，非常感谢！
Private Sub UserControl1_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged
        If Globals.ThisAddIn.任务窗格.Visible = False Then
            Globals.Ribbons.Ribbon1.Button1.Label = "已隐藏"
        Else
            Globals.Ribbons.Ribbon1.Button1.Label = "已显示"
        End If
End Sub

MOY838840554

这个事件应该可以

wpxxsyzx

使用功能区(XML)添加功能区的控制按钮，写XML代码时添加getEnabled属性及回调，在VisibleChanged事件里初始化控制按钮

wpxxsyzx

如果使用可视化功能区,也可以，你的代码是不对的，1、把UserControl1类里的UserControl1_VisibleChanged事件删除，2、在ThisAddIn类里，声明时加上WithEvents，如：Public WithEvents 任务窗格 As Microsoft.Office.Tools.CustomTaskPane，3、有了第2不得声明，就可以在ThisAddIn类里添加任务窗格得VisibleChanged事件了 如： Private Sub 任务窗格_VisibleChanged(sender As Object, e As EventArgs) Handles 任务窗格.VisibleChanged
        If 任务窗格.Visible = False Then
            Globals.Ribbons.Ribbon1.Button1.Label = "显示"
        Else
            Globals.Ribbons.Ribbon1.Button1.Label = "隐藏"
        End If
    End Sub

wpxxsyzx

这是修改后的源文件