PageRenderTime 152ms CodeModel.GetById 27ms RepoModel.GetById 0ms app.codeStats 0ms

/Visual Studio 2008/VBVstoExcelWorkbook/CourseQueryPane.vb

#
Visual Basic | 40 lines | 18 code | 5 blank | 17 comment | 0 complexity | f96dc6cd8f9d586cef59a5d32929c633 MD5 | raw file
  1. '/************************************* Module Header **************************************\
  2. '* Module Name: CourseQueryPane.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 "Imports directives"
  17. Imports System
  18. Imports System.Collections.Generic
  19. Imports System.ComponentModel
  20. Imports System.Drawing
  21. Imports System.Data
  22. Imports System.Linq
  23. Imports System.Text
  24. Imports System.Windows.Forms
  25. #End Region
  26. Public Class CourseQueryPane
  27. Private Sub CourseQueryPane_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  28. ' Fill the student names list.
  29. studentListTableAdapter.FillStudentList(SchoolDataSet.StudentList)
  30. End Sub
  31. Private Sub cmdQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdQuery.Click
  32. 'Update course list for selected student.
  33. Globals.Sheet1.UpdateCourseList(cboName.Text.Trim())
  34. End Sub
  35. End Class