registeredentities.vb

讲解visual studio的应用

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.88
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System
Imports System.Configuration

Namespace Generated
    
    Public Class CompaniesElement
        Inherits System.Configuration.ConfigurationElement
        
        <System.Configuration.ConfigurationProperty("CompanyName", DefaultValue:="Random Inc", IsKey:=true, IsRequired:=true)>  _
        Public Property CompanyName() As String
            Get
                Return CType(MyBase.Item("CompanyName"),String)
            End Get
            Set
                MyBase.Item("CompanyName") = value
            End Set
        End Property
        
        <System.Configuration.ConfigurationProperty("RegisteredDate", DefaultValue:="31/1/2005", IsKey:=false, IsRequired:=false)>  _
        Public Property RegisteredDate() As String
            Get
                Return CType(MyBase.Item("RegisteredDate"),String)
            End Get
            Set
                MyBase.Item("RegisteredDate") = value
            End Set
        End Property
    End Class
    
    <System.Configuration.ConfigurationCollectionAttribute(GetType(CompaniesElement))>  _
    Public Class CompaniesCollection
        Inherits System.Configuration.ConfigurationElementCollection
        
        Protected Overrides Function CreateNewElement() As System.Configuration.ConfigurationElement
            Return New CompaniesElement
        End Function
        
        Protected Overrides Function GetElementKey(ByVal element As System.Configuration.ConfigurationElement) As Object
            Return CType(element,CompaniesElement).CompanyName
        End Function
        
        Public Sub Add(ByVal element As CompaniesElement)
            Me.BaseAdd(element)
        End Sub
        
        Public Sub Remove(ByVal key As String)
            Me.BaseRemove(key)
        End Sub
        
        Public Sub Clear()
            Me.BaseClear
        End Sub
    End Class
    
    Public Class RegisteredEntitiesSection
        Inherits System.Configuration.ConfigurationSection
        
        <System.Configuration.ConfigurationProperty("Companies")>  _
        Public ReadOnly Property Companies() As CompaniesCollection
            Get
                Return CType(MyBase.Item("Companies"),CompaniesCollection)
            End Get
        End Property
    End Class
End Namespace