mainform.vb

来自「讲解visual studio的应用」· VB 代码 · 共 18 行

Imports System.Configuration

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim registered As RegisteredEntities = _
            CType(configurationmanager.GetSection("RegisteredEntities"), RegisteredEntities)

        For Each co As Company In registered.Companies
            Me.lstCompanies.Items.Add(co)

        Next
        Me.lstCompanies.DisplayMember = "CompanyName"

       
    End Sub
End Class