PageRenderTime 12ms CodeModel.GetById 1ms app.highlight 5ms RepoModel.GetById 2ms 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
17#Region "Using directives"
18Imports System
19Imports System.Collections.Generic
20Imports System.Data
21Imports System.Linq
22Imports System.Text
23Imports System.Windows.Forms
24Imports System.Xml.Linq
25Imports Microsoft.VisualStudio.Tools.Applications.Runtime
26Imports Excel = Microsoft.Office.Interop.Excel
27Imports Office = Microsoft.Office.Core
28#End Region
29
30
31Public Class ThisWorkbook
32
33    Private Sub ThisWorkbook_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
34        ' Adds the CourseQueryPane to the ActionsPane.
35        ' To toggle the ActionsPane on/off, click the View tab in Excel Ribbon,
36        ' then in the Show/Hide group, toggle the Document Actions button.
37        Me.ActionsPane.Controls.Add(New CourseQueryPane())
38    End Sub
39
40    Private Sub ThisWorkbook_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
41
42    End Sub
43
44End Class