'------------------------------------------------------------------------------ ' ' This code was generated by a tool. ' Runtime Version:4.0.30319.237 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' _ Partial Public NotInheritable Class ThisAddIn Inherits Microsoft.Office.Tools.AddIn Implements Microsoft.VisualStudio.Tools.Office.IOfficeEntryPoint Friend WithEvents CustomTaskPanes As Microsoft.Office.Tools.CustomTaskPaneCollection Friend WithEvents VstoSmartTags As Microsoft.Office.Tools.SmartTagCollection _ Friend WithEvents Application As Microsoft.Office.Interop.Excel.Application ''' _ Public Sub New() MyBase.New("AddIn", "ThisAddIn") End Sub ''' _ Protected Overrides Sub Initialize() MyBase.Initialize() Me.Application = Me.GetHostItem(Of Microsoft.Office.Interop.Excel.Application)(GetType(Microsoft.Office.Interop.Excel.Application), "Application") Globals.ThisAddIn = Me Global.System.Windows.Forms.Application.EnableVisualStyles() Me.InitializeCachedData() Me.InitializeControls() Me.InitializeComponents() Me.InitializeData() End Sub ''' _ Protected Overrides Sub FinishInitialization() Me.OnStartup() End Sub ''' _ Protected Overrides Sub InitializeDataBindings() Me.BeginInitialization() Me.BindToData() Me.EndInitialization() End Sub ''' _ Private Sub InitializeCachedData() If (Me.DataHost Is Nothing) Then Return End If If Me.DataHost.IsCacheInitialized Then Me.DataHost.FillCachedData(Me) End If End Sub ''' _ Private Sub InitializeData() End Sub ''' _ Private Sub BindToData() End Sub ''' _ Private Sub StartCaching(ByVal MemberName As String) Me.DataHost.StartCaching(Me, MemberName) End Sub ''' _ Private Sub StopCaching(ByVal MemberName As String) Me.DataHost.StopCaching(Me, MemberName) End Sub ''' _ Private Function IsCached(ByVal MemberName As String) As Boolean Return Me.DataHost.IsCached(Me, MemberName) End Function ''' _ Private Sub BeginInitialization() Me.BeginInit() Me.CustomTaskPanes.BeginInit() Me.VstoSmartTags.BeginInit() End Sub ''' _ Private Sub EndInitialization() Me.VstoSmartTags.EndInit() Me.CustomTaskPanes.EndInit() Me.EndInit() End Sub ''' _ Private Sub InitializeControls() Me.CustomTaskPanes = New Microsoft.Office.Tools.CustomTaskPaneCollection(Me.ItemProvider, Me.HostContext, "CustomTaskPanes", Me, "CustomTaskPanes") Me.VstoSmartTags = New Microsoft.Office.Tools.SmartTagCollection(Me.ItemProvider, Me.HostContext, "VstoSmartTags", Me, "VstoSmartTags") End Sub ''' _ Private Sub InitializeComponents() End Sub ''' _ Private Function NeedsFill(ByVal MemberName As String) As Boolean Return Me.DataHost.NeedsFill(Me, MemberName) End Function ''' _ Protected Overrides Sub OnShutdown() Me.VstoSmartTags.Dispose() Me.CustomTaskPanes.Dispose() MyBase.OnShutdown() End Sub End Class ''' _ Partial Friend NotInheritable Class Globals ''' Private Sub New() MyBase.New() End Sub Private Shared _ThisAddIn As ThisAddIn Private Shared _ThisRibbonCollection As ThisRibbonCollection Friend Shared Property ThisAddIn() As ThisAddIn Get Return _ThisAddIn End Get Set If (_ThisAddIn Is Nothing) Then _ThisAddIn = value Else Throw New System.NotSupportedException() End If End Set End Property Friend Shared ReadOnly Property Ribbons() As ThisRibbonCollection Get If (_ThisRibbonCollection Is Nothing) Then _ThisRibbonCollection = New ThisRibbonCollection() End If Return _ThisRibbonCollection End Get End Property End Class ''' _ Partial Friend NotInheritable Class ThisRibbonCollection Inherits Microsoft.Office.Tools.Ribbon.RibbonReadOnlyCollection End Class