版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

10 自定义任务面板

自定义任务面板（有些地方称为侧边面板）即CustomTaskPane，这个类在Microsoft.Office.Tools下面。以下将详细讲述如何实现自定义任务面板。

$代码6$ CustomTaskPane的创建和使用

向项目添加一个"用户控件"，

图 19 选择"用户控件"

在开发界面根据需要向用户控件窗体上增加相应内容。

图 20 设计"用户控件"界面

在ThisAddIn类代码下面添加：

'定义一个带事件的自定义任务面板

Public WithEvents AboutTaskPan As Microsoft.Office.Tools.CustomTaskPane

在ThisAddIn_Startup()中添加

'插件启动时候

Private Sub ThisAddIn_Startup() Handles Me.Startup

System.Diagnostics.Debug.WriteLine("Startup")

Dim userAbout As New UserControl1

'添加自定义任务面板，将会显示用户控件

AboutTaskPan = Globals.ThisAddIn.CustomTaskPanes.Add(userAbout, "任务面板")

AboutTaskPan.Visible = True

AboutTaskPan.DockPosition = Microsoft.Office.Core.MsoCTPDockPosition. msoCTPDockPositionRight

End Sub

运行结果如下：

图 21 Excel 窗口右侧显示"任务面板"

在Ribbon开发界面下添加一个Group3，并在上面增加一个ToggleButton1：

图 22 Ribbon界面下增加 ToggleButton

双击ToggleButton1，添加代码：

Private Sub ToggleButton1_Click(sender As Object, e As RibbonControlEventArgs) Handles ToggleButton1.Click

Globals.ThisAddIn.AboutTaskPan.Visible = ToggleButton1.Checked

End Sub

继续在ThisAddIn类代码下面添加如下代码：

Private Sub AboutTaskPan _VisibleChanged(sender As Object, e As EventArgs) Handles AboutTaskPan.VisibleChanged

Dim aboutribbon As Ribbon1 = Globals.Ribbons(0) '.GetRibbon("Ribbon1")

aboutribbon.ToggleButton1.Checked = AboutTaskPan.Visible

End Sub

上述代码在单击ToggleButton1后，根据ToggleButton1被选中的状态来决定是否显示"任务面板"，同时关闭"任务面板"时，调整ToggleButton1的显示。