PageRenderTime 17ms CodeModel.GetById 1ms app.highlight 12ms RepoModel.GetById 1ms app.codeStats 0ms

/Visual Studio 2008/VBVstoExcelWorkbook/ThisWorkbook.Designer.vb

#
Visual Basic | 212 lines | 154 code | 29 blank | 29 comment | 0 complexity | fa0a7845abc782acfbaad5890c79b2c0 MD5 | raw file
  1'------------------------------------------------------------------------------
  2' <auto-generated>
  3'     This code was generated by a tool.
  4'     Runtime Version:2.0.50727.1873
  5'
  6'     Changes to this file may cause incorrect behavior and will be lost if
  7'     the code is regenerated.
  8' </auto-generated>
  9'------------------------------------------------------------------------------
 10
 11Option Strict Off
 12Option Explicit On
 13
 14
 15
 16'''
 17<Microsoft.VisualStudio.Tools.Applications.Runtime.StartupObjectAttribute(0),  _
 18 Global.System.Security.Permissions.PermissionSetAttribute(Global.System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")>  _
 19Partial Public NotInheritable Class ThisWorkbook
 20    Inherits Microsoft.Office.Tools.Excel.Workbook
 21    Implements Microsoft.VisualStudio.Tools.Office.IOfficeEntryPoint
 22    
 23    Friend WithEvents ActionsPane As Microsoft.Office.Tools.ActionsPane
 24    
 25    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0")>  _
 26    Friend WithEvents ThisApplication As Microsoft.Office.Interop.Excel.Application
 27    
 28    '''
 29    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 30     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
 31    Public Sub New()
 32        MyBase.New("ThisWorkbook", "ThisWorkbook")
 33    End Sub
 34    
 35    '''
 36    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 37     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
 38     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
 39    Protected Overrides Sub Initialize()
 40        MyBase.Initialize
 41        Me.ThisApplication = Me.GetHostItem(Of Microsoft.Office.Interop.Excel.Application)(GetType(Microsoft.Office.Interop.Excel.Application), "Application")
 42        Globals.ThisWorkbook = Me
 43        Global.System.Windows.Forms.Application.EnableVisualStyles
 44        Me.InitializeCachedData
 45        Me.InitializeControls
 46        Me.InitializeComponents
 47        Me.InitializeData
 48    End Sub
 49    
 50    '''
 51    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 52     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
 53     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
 54    Protected Overrides Sub FinishInitialization()
 55        Me.OnStartup
 56    End Sub
 57    
 58    '''
 59    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 60     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
 61     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
 62    Protected Overrides Sub InitializeDataBindings()
 63        Me.BeginInitialization
 64        Me.BindToData
 65        Me.EndInitialization
 66    End Sub
 67    
 68    '''
 69    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 70     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
 71     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
 72    Private Sub InitializeCachedData()
 73        If (Me.DataHost Is Nothing) Then
 74            Return
 75        End If
 76        If Me.DataHost.IsCacheInitialized Then
 77            Me.DataHost.FillCachedData(Me)
 78        End If
 79    End Sub
 80    
 81    '''
 82    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 83     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
 84     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
 85    Private Sub InitializeData()
 86    End Sub
 87    
 88    '''
 89    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 90     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
 91     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
 92    Private Sub BindToData()
 93    End Sub
 94    
 95    '''
 96    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 97     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
 98     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
 99    Private Sub StartCaching(ByVal MemberName As String)
100        Me.DataHost.StartCaching(Me, MemberName)
101    End Sub
102    
103    '''
104    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
105     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
106     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
107    Private Sub StopCaching(ByVal MemberName As String)
108        Me.DataHost.StopCaching(Me, MemberName)
109    End Sub
110    
111    '''
112    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
113     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
114     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
115    Private Function IsCached(ByVal MemberName As String) As Boolean
116        Return Me.DataHost.IsCached(Me, MemberName)
117    End Function
118    
119    '''
120    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
121     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
122     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
123    Private Sub BeginInitialization()
124        Me.BeginInit
125        Me.ActionsPane.BeginInit
126    End Sub
127    
128    '''
129    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
130     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
131     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
132    Private Sub EndInitialization()
133        Me.ActionsPane.EndInit
134        Me.EndInit
135    End Sub
136    
137    '''
138    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
139     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
140     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
141    Private Sub InitializeControls()
142        Me.ActionsPane = New Microsoft.Office.Tools.ActionsPane(Me.ItemProvider, Me.HostContext, "ActionsPane", Me, "ActionsPane")
143    End Sub
144    
145    '''
146    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
147     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
148     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
149    Private Sub InitializeComponents()
150    End Sub
151    
152    '''
153    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
154     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
155     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
156    Private Function NeedsFill(ByVal MemberName As String) As Boolean
157        Return Me.DataHost.NeedsFill(Me, MemberName)
158    End Function
159    
160    '''
161    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
162     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _
163     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _
164    Protected Overrides Sub OnShutdown()
165        Me.ActionsPane.Dispose
166        MyBase.OnShutdown
167    End Sub
168End Class
169
170'''
171<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
172 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0")>  _
173Partial Friend NotInheritable Class Globals
174    
175    '''
176    Private Sub New()
177        MyBase.New
178    End Sub
179    
180    Private Shared _ThisWorkbook As ThisWorkbook
181    
182    Private Shared _ThisRibbonCollection As ThisRibbonCollection
183    
184    Friend Shared Property ThisWorkbook() As ThisWorkbook
185        Get
186            Return _ThisWorkbook
187        End Get
188        Set
189            If (_ThisWorkbook Is Nothing) Then
190                _ThisWorkbook = value
191            Else
192                Throw New System.NotSupportedException
193            End If
194        End Set
195    End Property
196    
197    Friend Shared ReadOnly Property Ribbons() As ThisRibbonCollection
198        Get
199            If (_ThisRibbonCollection Is Nothing) Then
200                _ThisRibbonCollection = New ThisRibbonCollection
201            End If
202            Return _ThisRibbonCollection
203        End Get
204    End Property
205End Class
206
207'''
208<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
209 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0")>  _
210Partial Friend NotInheritable Class ThisRibbonCollection
211    Inherits Microsoft.Office.Tools.Ribbon.RibbonReadOnlyCollection
212End Class