PageRenderTime 45ms CodeModel.GetById 15ms RepoModel.GetById 0ms app.codeStats 0ms

/Visual Studio 2008/VBVstoExcelWorkbook/ThisWorkbook.vb

#
Visual Basic | 44 lines | 19 code | 7 blank | 18 comment | 0 complexity | b1e6c13f310f2a6ccd31b57dbe248fa4 MD5 | raw file
  1. '/************************************* Module Header **************************************\
  2. '* Module Name: ThisWorkbook.vb
  3. '* Project: VBVstoExcelWorkbook
  4. '* Copyright (c) Microsoft Corporation.
  5. '*
  6. '* The VBVstoExcelWorkbook provides the examples on how to customize Excel
  7. '* Workbooks by using the ListObject and the document Actions Pane.
  8. '*
  9. '* This source is subject to the Microsoft Public License.
  10. '* See http://www.microsoft.com/opensource/licenses.mspx#Ms-PL.
  11. '* All other rights reserved.
  12. '*
  13. '* History:
  14. '* * 11/4/2009 6:00 PM Tim Li Created
  15. '\******************************************************************************************/
  16. #Region "Using directives"
  17. Imports System
  18. Imports System.Collections.Generic
  19. Imports System.Data
  20. Imports System.Linq
  21. Imports System.Text
  22. Imports System.Windows.Forms
  23. Imports System.Xml.Linq
  24. Imports Microsoft.VisualStudio.Tools.Applications.Runtime
  25. Imports Excel = Microsoft.Office.Interop.Excel
  26. Imports Office = Microsoft.Office.Core
  27. #End Region
  28. Public Class ThisWorkbook
  29. Private Sub ThisWorkbook_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
  30. ' Adds the CourseQueryPane to the ActionsPane.
  31. ' To toggle the ActionsPane on/off, click the View tab in Excel Ribbon,
  32. ' then in the Show/Hide group, toggle the Document Actions button.
  33. Me.ActionsPane.Controls.Add(New CourseQueryPane())
  34. End Sub
  35. Private Sub ThisWorkbook_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
  36. End Sub
  37. End Class