【学习VSTO】——任务窗格

wpxxsyzx

      office应用程序中包含许多内置任务窗格（比如 Word 中的“样式和格式”任务窗格），使用操作窗格控件可以定制自己的任务窗格，其只能应用于文档级别的项目，对于应用程序级别的项目应该使用自定义任务窗格。
      第一次向操作窗格中添加控件会使该窗格自动在运行时变为可见，关闭任务窗格后再次添加控件不会自动显示。虽然 ActionsPane 类具有 Hide 方法和 Visible 属性，但使用 ActionsPane 类本身的Hide 方法或将 Visible 属性设置为 false 仅会在操作窗格上隐藏控件；不会隐藏任务窗格，会触发 其VisibleChanged 事件，相反，用户关闭操作窗格时不会引发此事件。
      如果用户在该操作窗格可见时保存文档，则每次打开文档时该操作窗格均可见，无论该操作窗格是否包含控件（有可能出现空白的任务窗格，应该在Startup 事件处理程序中调用 ActionsPane 的 Clear 方法，以确保在打开文档时不显示操作窗格。
      文档只有一个任务窗格，可以在任务窗格中添加多个用户控件，控制在不同的情况下显示不同的用户控件来模拟多个任务窗格。
   

1. Public Class ThisWorkbook
   
2.     '使用Clear方法使任务窗格和文档分离，确保不会出现空白任务窗格
   
3.     Private Sub ThisWorkbook_Startup() Handles Me.Startup
   
4.         ActionsPane.Clear()
   
5.     End Sub
   
6.     '根据任务窗格是水平还是垂直显示，设置其上的控件的排列方式，默认是垂直排列多个控件
   
7.     Private Sub ActionsPane_OrientationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ActionsPane.OrientationChanged
   
8.         If Globals.Sheet1.CheckBox1.Checked = True Then
   
9.             If Me.ActionsPane.Orientation = Orientation.Horizontal Then
   
10.                 Me.ActionsPane.StackOrder = Microsoft.Office.Tools.StackStyle.FromLeft
    
11.             Else
    
12.                 Me.ActionsPane.StackOrder = Microsoft.Office.Tools.StackStyle.FromTop
    
13.             End If
    
14.         End If
    
15.     End Sub
    
16. End Class
    
17. 
    
18. Public Class Sheet1
    
19.     Private acp1 As ActionsPaneControl1
    
20.     Private acp2 As ActionsPaneControl2
    
21.     Private Sub Sheet1_Startup() Handles Me.Startup
    
22.         acp1 = New ActionsPaneControl1
    
23.         acp2 = New ActionsPaneControl2
    
24.     End Sub
    
25.     '在选中其他单元格区域和NamedRange控件所在区域时显示不同的用户控件来模拟多个任务窗格
    
26.     Private Sub Sheet1_SelectionChange(ByVal Target As Microsoft.Office.Interop.Excel.Range) Handles Me.SelectionChange
    
27.         With Globals.ThisWorkbook.ActionsPane.Controls
    
28.             If Target.Address = NamedRange1.InnerObject.Address Then
    
29.                 'Remove方法从任务窗格中移除用户控件
    
30.                 If .Contains(acp1) = True Then .Remove(acp1)
    
31.                 If .Contains(acp2) = False Then .Add(acp2)
    
32.             Else
    
33.                 If .Contains(acp2) = True Then .Remove(acp2)
    
34.                 If .Contains(acp1) = False Then .Add(acp1)
    
35.             End If
    
36.         End With
    
37.         Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True
    
38.     End Sub
    
39.     '还可以使用下面的方法影藏或显示不同的用户控件来模拟多个任务窗格，InnerObject返回宿主控件的本机对象
    
40.     'Private Sub Sheet1_SelectionChange(ByVal Target As Microsoft.Office.Interop.Excel.Range) Handles Me.SelectionChange
    
41.     '    With Globals.ThisWorkbook.ActionsPane
    
42.     '        If Target.Address = NamedRange1.InnerObject.Address Then
    
43.     '            .Controls("ActionsPaneControl1").Visible = False
    
44.     '            .Controls("ActionsPaneControl2").Visible = True
    
45.     '        Else
    
46.     '            .Controls("ActionsPaneControl2").Visible = False
    
47.     '            .Controls("ActionsPaneControl1").Visible = True
    
48.     '        End If
    
49.     '    End With
    
50.     '    Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True
    
51.     'End Sub
    
52.     'Private Sub Sheet1_Startup() Handles Me.Startup
    
53.     '    Globals.ThisWorkbook.ActionsPane.Controls.Add(acp1)
    
54.     '    Globals.ThisWorkbook.ActionsPane.Controls.Add(acp2)
    
55.     'End Sub
    
56.         '使用Controls的Add方法向任务窗格添加用户控件，使同时显示多个控件，以测试调整任务窗格位置时，这些控件的排列方式
    
57.     Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    
58.         With Globals.ThisWorkbook.ActionsPane.Controls
    
59.             If CheckBox1.Checked = True Then
    
60.                 If .Contains(acp1) = False Then .Add(acp1)
    
61.                 If .Contains(acp2) = False Then .Add(acp2)
    
62.             End If
    
63.         End With
    
64.         'DisplayDocumentActionTaskPane属性控制是否显示任务窗格
    
65.         Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True
    
66.     End Sub
    
67.     '使用CommandBars对象调整任务窗格的尺寸，"Task Pane"代表任务窗格
    
68.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
69.         With Globals.ThisWorkbook.Application.CommandBars("Task Pane")
    
70.             If .Position = Microsoft.Office.Core.MsoBarPosition.msoBarLeft Or _
    
71.                 .Position = Microsoft.Office.Core.MsoBarPosition.msoBarRight Then
    
72.                 .Width = .Width * 1.2
    
73.             Else
    
74.                 .Height = .Height * 1.2
    
75.             End If
    
76.         End With
    
77.     End Sub
    
78.     '使用CommandBars对象调整任务窗格的位置，"Task Pane"代表任务窗格
    
79.     Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
    
80.         With Globals.ThisWorkbook.Application.CommandBars("Task Pane")
    
81.             If .Position = Microsoft.Office.Core.MsoBarPosition.msoBarLeft Or _
    
82.                 .Position = Microsoft.Office.Core.MsoBarPosition.msoBarRight Then
    
83.                 .Position = Microsoft.Office.Core.MsoBarPosition.msoBarTop
    
84.             Else
    
85.                 .Position = Microsoft.Office.Core.MsoBarPosition.msoBarLeft
    
86.             End If
    
87.         End With
    
88.     End Sub
    
89.     '从工作表向任务窗格写入数据
    
90.     Private Sub NamedRange1_Change(ByVal Target As Microsoft.Office.Interop.Excel.Range) Handles NamedRange1.Change
    
91.         Globals.ThisWorkbook.ActionsPane.Controls("ActionsPaneControl2").Controls("TextBox1").Text = Target.Value2
    
92.         MessageBox.Show("可以看到文本框的内容和NamedRange控件的内容同步")
    
93.     End Sub
    
94.     '通过判断用户单击了那个控件，动态添加或移除任务窗格中的控件
    
95.     Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click, Button4.Click
    
96.         If CType(sender, System.Windows.Forms.Button) Is Button3 Then
    
97.             Globals.ThisWorkbook.ActionsPane.Controls.Add(btn)
    
98.             btn.Text = "这是动态添加的按钮"
    
99.         Else
    
100.             Globals.ThisWorkbook.ActionsPane.Controls.Remove(btn)
     
101.         End If
     
102.     End Sub
     
103.     '动态添加的控件的事件
     
104.     Private Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn.Click
     
105.         MessageBox.Show("这是动态添加的按钮")
     
106.     End Sub
     
107. End Class
     
108. Public Class ActionsPaneControl2
     
109.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
110.         Globals.Sheet1.range("a2").Value = "A"
     
111.     End Sub
     
112. End Class

复制代码

vs2010,office2010

lishiyun

学习了，感谢啊，我也是用VB，感觉用VB的人真心不多啊。楼主可发个vsto+Ribbon（xml）的版本

VBA万岁

用C#方法制作见以下网页：
演练：使用功能区设计器创建自定义选项卡

bjjdghyf

谢谢，学习了你的经验。请问能制作多个窗格独立显示吗？