PageRenderTime 6ms CodeModel.GetById 1ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/Visual Studio 2008/VBVstoExcelWorkbook/Sheet1.vb

#
Visual Basic | 48 lines | 22 code | 9 blank | 17 comment | 1 complexity | ffbbaff98423b19b869b508437a42164 MD5 | raw file
 1'/************************************* Module Header **************************************\
 2'* Module Name:  Sheet1.vs
 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 "Imports 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 Sheet1
32
33    Private Sub Sheet1_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
34
35    End Sub
36
37    Private Sub Sheet1_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
38
39    End Sub
40
41    Friend Sub UpdateCourseList(ByVal studentName As String)
42        ' Update the title.
43        Me.Range("A1", "A1").Value2 = "Course List for " + studentName
44
45        'Update the DataTable.
46        CourseListTableAdapter.FillCourseList(SchoolDataSet.CourseList, studentName)
47    End Sub
48End Class