VSTO外接程序项目只用1个文件实现Ribbon CustomUI和CustomTaskpane定制【VB.Net版】

 1 Imports Microsoft.Office.Core
 2 Public Class ThisAddIn
 3 
 4     Private Sub ThisAddIn_Startup() Handles Me.Startup
 5         CreateCTP()
 6     End Sub
 7 
 8     Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
 9         DisposeCTP()
10     End Sub
11     Protected Overrides Function CreateRibbonExtensibilityObject() As IRibbonExtensibility
12         Return New Ribbon1()
13     End Function
14 End Class
15 
16 <System.Runtime.InteropServices.ComVisible(True)>
17 Public Class Ribbon1
18     Implements IRibbonExtensibility
19     Public R As IRibbonUI
20     Public Function GetCustomUI(RibbonID As String) As String Implements IRibbonExtensibility.GetCustomUI
21         Dim xml As XElement
22         xml = <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnLoad">
23                   <ribbon startFromScratch="false">
24                       <tabs>
25                           <tab id="Tab1" label="RibbonXmlEditor">
26                               <group id="Group1" label="Author:ryueifu">
27                                   <button id="Button1" label="CTP" imageMso="C" onAction="Button1_Click"/>
28                                   <button id="Button2" label="UnLoad" imageMso="U" onAction="Button2_Click"/>
29                               </group>
30                           </tab>
31                       </tabs>
32                   </ribbon>
33               </customUI>
34         Return xml.ToString()
35     End Function
36     Public Sub OnLoad(ribbon As IRibbonUI)
37         R = ribbon
38         R.ActivateTab(ControlID:="Tab1")
39     End Sub
40     Public Sub Button1_Click(control As IRibbonControl)
41         ctp.Visible = Not ctp.Visible
42     End Sub
43     Public Sub Button2_Click(control As IRibbonControl)
44         Dim ThisCOM As COMAddIn
45         ThisCOM = Globals.ThisAddIn.Application.COMAddIns.Item(Index:=My.Application.Info.AssemblyName)
46         ThisCOM.Connect = False
47     End Sub
48 End Class
49 
50 Public Module Module1
51     Public uc As System.Windows.Forms.UserControl
52     Public ctp As Microsoft.Office.Tools.CustomTaskPane
53     Public Sub CreateCTP()
54         uc = New Windows.Forms.UserControl
55         ctp = Globals.ThisAddIn.CustomTaskPanes.Add(control:=uc, title:="CTP")
56         With ctp
57             .DockPosition = MsoCTPDockPosition.msoCTPDockPositionRight
58             .Visible = True
59         End With
60     End Sub
61     Public Sub DisposeCTP()
62         ctp.Dispose()
63     End Sub
64 End Module