PageRenderTime 18ms CodeModel.GetById 12ms app.highlight 3ms RepoModel.GetById 1ms 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
17#Region "Imports directives"
18Imports System
19Imports System.Collections.Generic
20Imports System.ComponentModel
21Imports System.Drawing
22Imports System.Data
23Imports System.Linq
24Imports System.Text
25Imports System.Windows.Forms
26#End Region
27
28
29Public Class CourseQueryPane
30
31    Private Sub CourseQueryPane_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
32        ' Fill the student names list.
33        studentListTableAdapter.FillStudentList(SchoolDataSet.StudentList)
34    End Sub
35
36    Private Sub cmdQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdQuery.Click
37        'Update course list for selected student.
38        Globals.Sheet1.UpdateCourseList(cboName.Text.Trim())
39    End Sub
40End Class