systemsettingssection.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 42 行

Imports Microsoft.Practices.Mobile.Configuration

Public Class SystemSettingsItemElement
    Inherits ConfigurationElement
    <ConfigurationProperty("Name", IsRequired:=True)> _
    Public ReadOnly Property Name() As String
        Get
            Return DirectCast(Me("Name"), String)
        End Get
    End Property

    <ConfigurationProperty("Value", IsRequired:=True)> _
    Public ReadOnly Property Value() As String
        Get
            Return DirectCast(Me("Value"), String)
        End Get
    End Property
End Class

Public Class SystemSettingsItemElementCollection
    Inherits ConfigurationElementCollection
    Protected Overloads Overrides Function CreateNewElement() As ConfigurationElement
        Return New SystemSettingsItemElement()
    End Function

    Protected Overloads Overrides Function GetElementKey(ByVal element As ConfigurationElement) As Object
        Dim e As SystemSettingsItemElement = DirectCast(element, SystemSettingsItemElement)
        Return e.Name
    End Function
End Class

Public Class SystemSettingsSection
    Inherits ConfigurationSection
    <ConfigurationProperty("SystemSettingsItems")> _
    Public ReadOnly Property SystemSettingsItems() As SystemSettingsItemElementCollection
        Get
            Return DirectCast((Me("SystemSettingsItems")), SystemSettingsItemElementCollection)
        End Get
    End Property
End Class