PageRenderTime 47ms CodeModel.GetById 16ms RepoModel.GetById 0ms 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. #Region "Imports 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 Sheet1
  29. Private Sub Sheet1_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
  30. End Sub
  31. Private Sub Sheet1_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
  32. End Sub
  33. Friend Sub UpdateCourseList(ByVal studentName As String)
  34. ' Update the title.
  35. Me.Range("A1", "A1").Value2 = "Course List for " + studentName
  36. 'Update the DataTable.
  37. CourseListTableAdapter.FillCourseList(SchoolDataSet.CourseList, studentName)
  38. End Sub
  39. End Class