PageRenderTime 25ms CodeModel.GetById 0ms RepoModel.GetById 0ms 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. 

  2. ' <auto-generated>

    3. 

  3. '     This code was generated by a tool.

    4. 

  4. '     Runtime Version:2.0.50727.1873

    5. 

  5. '

    6. 

  6. '     Changes to this file may cause incorrect behavior and will be lost if

    7. 

  7. '     the code is regenerated.

    8. 

  8. ' </auto-generated>

    9. 

  9. '------------------------------------------------------------------------------

    10. 

  10. 

    11. 

  11. Option Strict Off

    12. 

  12. Option Explicit On

    13. 

  13. 

    14. 

  14. 

    15. 

  15. 

    16. 

  16. '''

    17. 

  17. <Microsoft.VisualStudio.Tools.Applications.Runtime.StartupObjectAttribute(0),  _

    18. 

  18.  Global.System.Security.Permissions.PermissionSetAttribute(Global.System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")>  _

    19. 

  19. Partial Public NotInheritable Class ThisWorkbook

    20. 

  20.     Inherits Microsoft.Office.Tools.Excel.Workbook

    21. 

  21.     Implements Microsoft.VisualStudio.Tools.Office.IOfficeEntryPoint

    22. 

  22.     

    23. 

  23.     Friend WithEvents ActionsPane As Microsoft.Office.Tools.ActionsPane

    24. 

  24.     

    25. 

  25.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0")>  _

    26. 

  26.     Friend WithEvents ThisApplication As Microsoft.Office.Interop.Excel.Application

    27. 

  27.     

    28. 

  28.     '''

    29. 

  29.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    30. 

  30.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    31. 

  31.     Public Sub New()

    32. 

  32.         MyBase.New("ThisWorkbook", "ThisWorkbook")

    33. 

  33.     End Sub

    34. 

  34.     

    35. 

  35.     '''

    36. 

  36.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    37. 

  37.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    38. 

  38.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    39. 

  39.     Protected Overrides Sub Initialize()

    40. 

  40.         MyBase.Initialize

    41. 

  41.         Me.ThisApplication = Me.GetHostItem(Of Microsoft.Office.Interop.Excel.Application)(GetType(Microsoft.Office.Interop.Excel.Application), "Application")

    42. 

  42.         Globals.ThisWorkbook = Me

    43. 

  43.         Global.System.Windows.Forms.Application.EnableVisualStyles

    44. 

  44.         Me.InitializeCachedData

    45. 

  45.         Me.InitializeControls

    46. 

  46.         Me.InitializeComponents

    47. 

  47.         Me.InitializeData

    48. 

  48.     End Sub

    49. 

  49.     

    50. 

  50.     '''

    51. 

  51.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    52. 

  52.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    53. 

  53.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    54. 

  54.     Protected Overrides Sub FinishInitialization()

    55. 

  55.         Me.OnStartup

    56. 

  56.     End Sub

    57. 

  57.     

    58. 

  58.     '''

    59. 

  59.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    60. 

  60.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    61. 

  61.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    62. 

  62.     Protected Overrides Sub InitializeDataBindings()

    63. 

  63.         Me.BeginInitialization

    64. 

  64.         Me.BindToData

    65. 

  65.         Me.EndInitialization

    66. 

  66.     End Sub

    67. 

  67.     

    68. 

  68.     '''

    69. 

  69.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    70. 

  70.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    71. 

  71.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    72. 

  72.     Private Sub InitializeCachedData()

    73. 

  73.         If (Me.DataHost Is Nothing) Then

    74. 

  74.             Return

    75. 

  75.         End If

    76. 

  76.         If Me.DataHost.IsCacheInitialized Then

    77. 

  77.             Me.DataHost.FillCachedData(Me)

    78. 

  78.         End If

    79. 

  79.     End Sub

    80. 

  80.     

    81. 

  81.     '''

    82. 

  82.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    83. 

  83.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    84. 

  84.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    85. 

  85.     Private Sub InitializeData()

    86. 

  86.     End Sub

    87. 

  87.     

    88. 

  88.     '''

    89. 

  89.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    90. 

  90.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    91. 

  91.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    92. 

  92.     Private Sub BindToData()

    93. 

  93.     End Sub

    94. 

  94.     

    95. 

  95.     '''

    96. 

  96.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    97. 

  97.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    98. 

  98.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

    99. 

  99.     Private Sub StartCaching(ByVal MemberName As String)

    100. 

  100.         Me.DataHost.StartCaching(Me, MemberName)

    101. 

  101.     End Sub

    102. 

  102.     

    103. 

  103.     '''

    104. 

  104.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    105. 

  105.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    106. 

  106.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

    107. 

  107.     Private Sub StopCaching(ByVal MemberName As String)

    108. 

  108.         Me.DataHost.StopCaching(Me, MemberName)

    109. 

  109.     End Sub

    110. 

  110.     

    111. 

  111.     '''

    112. 

  112.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    113. 

  113.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    114. 

  114.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

    115. 

  115.     Private Function IsCached(ByVal MemberName As String) As Boolean

    116. 

  116.         Return Me.DataHost.IsCached(Me, MemberName)

    117. 

  117.     End Function

    118. 

  118.     

    119. 

  119.     '''

    120. 

  120.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    121. 

  121.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    122. 

  122.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    123. 

  123.     Private Sub BeginInitialization()

    124. 

  124.         Me.BeginInit

    125. 

  125.         Me.ActionsPane.BeginInit

    126. 

  126.     End Sub

    127. 

  127.     

    128. 

  128.     '''

    129. 

  129.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    130. 

  130.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    131. 

  131.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    132. 

  132.     Private Sub EndInitialization()

    133. 

  133.         Me.ActionsPane.EndInit

    134. 

  134.         Me.EndInit

    135. 

  135.     End Sub

    136. 

  136.     

    137. 

  137.     '''

    138. 

  138.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    139. 

  139.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    140. 

  140.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    141. 

  141.     Private Sub InitializeControls()

    142. 

  142.         Me.ActionsPane = New Microsoft.Office.Tools.ActionsPane(Me.ItemProvider, Me.HostContext, "ActionsPane", Me, "ActionsPane")

    143. 

  143.     End Sub

    144. 

  144.     

    145. 

  145.     '''

    146. 

  146.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    147. 

  147.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    148. 

  148.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    149. 

  149.     Private Sub InitializeComponents()

    150. 

  150.     End Sub

    151. 

  151.     

    152. 

  152.     '''

    153. 

  153.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    154. 

  154.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    155. 

  155.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

    156. 

  156.     Private Function NeedsFill(ByVal MemberName As String) As Boolean

    157. 

  157.         Return Me.DataHost.NeedsFill(Me, MemberName)

    158. 

  158.     End Function

    159. 

  159.     

    160. 

  160.     '''

    161. 

  161.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    162. 

  162.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0"),  _

    163. 

  163.      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)>  _

    164. 

  164.     Protected Overrides Sub OnShutdown()

    165. 

  165.         Me.ActionsPane.Dispose

    166. 

  166.         MyBase.OnShutdown

    167. 

  167.     End Sub

    168. 

  168. End Class

    169. 

  169. 

    170. 

  170. '''

    171. 

  171. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    172. 

  172.  Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0")>  _

    173. 

  173. Partial Friend NotInheritable Class Globals

    174. 

  174.     

    175. 

  175.     '''

    176. 

  176.     Private Sub New()

    177. 

  177.         MyBase.New

    178. 

  178.     End Sub

    179. 

  179.     

    180. 

  180.     Private Shared _ThisWorkbook As ThisWorkbook

    181. 

  181.     

    182. 

  182.     Private Shared _ThisRibbonCollection As ThisRibbonCollection

    183. 

  183.     

    184. 

  184.     Friend Shared Property ThisWorkbook() As ThisWorkbook

    185. 

  185.         Get

    186. 

  186.             Return _ThisWorkbook

    187. 

  187.         End Get

    188. 

  188.         Set

    189. 

  189.             If (_ThisWorkbook Is Nothing) Then

    190. 

  190.                 _ThisWorkbook = value

    191. 

  191.             Else

    192. 

  192.                 Throw New System.NotSupportedException

    193. 

  193.             End If

    194. 

  194.         End Set

    195. 

  195.     End Property

    196. 

  196.     

    197. 

  197.     Friend Shared ReadOnly Property Ribbons() As ThisRibbonCollection

    198. 

  198.         Get

    199. 

  199.             If (_ThisRibbonCollection Is Nothing) Then

    200. 

  200.                 _ThisRibbonCollection = New ThisRibbonCollection

    201. 

  201.             End If

    202. 

  202.             Return _ThisRibbonCollection

    203. 

  203.         End Get

    204. 

  204.     End Property

    205. 

  205. End Class

    206. 

  206. 

    207. 

  207. '''

    208. 

  208. <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    209. 

  209.  Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "9.0.0.0")>  _

    210. 

  210. Partial Friend NotInheritable Class ThisRibbonCollection

    211. 

  211.     Inherits Microsoft.Office.Tools.Ribbon.RibbonReadOnlyCollection

    212. 

  212. End Class

    213. 

  213.