ListBox CodeSample - Populating with Employees from Northwind SQL sample database

From Visual WebGui Wiki

Jump to: navigation, search
 This article will have a few sections added to it soon, based on the following article type skeleton: NewCodeSampleTemplate


Overview

This codesample demonstrates how you databind a ListBox to the Employees table in Northwind sample database.

Please note that this code is allmost identical to the designer generated code after performing the same operation in designer.

VB.NET Code 

Imports Gizmox.WebGui.Forms
Public Class Form2
 
    Friend WithEvents lbEmployee As Gizmox.WebGui.Forms.ListBox
    Friend WithEvents NorthWindDataset1 As NorthWindDataset
    Friend WithEvents EmployeesTableAdapter1 As NorthWindDatasetTableAdapters.EmployeesTableAdapter
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.lbEmployee = New Gizmox.WebGui.Forms.ListBox
        Me.NorthWindDataset1 = New NorthWindDataset
        Me.EmployeesTableAdapter1 = New NorthWindDatasetTableAdapters.EmployeesTableAdapter
        CType(Me.NorthWindDataset1, System.ComponentModel.ISupportInitialize).BeginInit()
 
        Me.NorthWindDataset1.DataSetName = "NorthWindDataset"
        Me.NorthWindDataset1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
 
        Me.EmployeesTableAdapter1.ClearBeforeFill = True
 
        Me.lbEmployee.BorderStyle = Gizmox.WebGui.Forms.BorderStyle.Fixed3D
        Me.lbEmployee.DataSource = Me.NorthWindDataset1
        Me.lbEmployee.DisplayMember = "Employees.FirstName"
        Me.lbEmployee.Location = New System.Drawing.Point(28, 46)
        Me.lbEmployee.Name = "cboEmployee"
        Me.lbEmployee.Size = New System.Drawing.Size(121, 300)
        Me.lbEmployee.TabIndex = 0
        Me.lbEmployee.Text = "System.Data.DataViewManagerListItemTypeDescriptor"
        Me.lbEmployee.ValueMember = "Employees.EmployeeID"
 
        Me.Controls.Add(Me.lbEmployee)
        CType(Me.NorthWindDataset1, System.ComponentModel.ISupportInitialize).EndInit()
 
        Me.EmployeesTableAdapter1.Fill(Me.NorthWindDataset1.Employees)
 
        AddHandler lbEmployee.SelectedIndexChanged, AddressOf cboEployee_SelectedIndexChanged
 
    End Sub
 
    Private Sub cboEployee_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Me.lbEmployee.SelectedItem IsNot Nothing Then
            Dim eRow As NorthWindDataset.EmployeesRow = Me.lbEmployee.SelectedItem.Row
            MessageBox.Show("You selected " + eRow.FirstName)
        End If
    End Sub
 
End Class

C# Code

The conversion of this code to C# has not been completed yet.

Please feel free to contribute and add contents to the Wiki

Free conversion of simple code snippets can be found at http://www.developerfusion.com/tools/convert/vb-to-csharp/
Retrieved from "http://wiki.visualwebgui.com/pages/index.php/ListBox_CodeSample_-_Populating_with_Employees_from_Northwind_SQL_sample_database"
Personal tools