katamari.wankuma.com

Dim foo = Options.GetString("Foo", "foo")
Options.SetString("Foo", "bar")

Const Foo As String = "Foo"
Const FooDefaultValue As String = "foo"

Dim foo = Options.GetString(FooPluginOptions.Foo.Name, FooPluginOptions.Foo.DefaultValue)
Options.SetString(FooPluginOptions.Foo.Name, "bar")

Public NotInheritable Class FooPluginOptions
    Public Shared ReadOnly Foo As New Item(Of String)("foo")
    Public Shared ReadOnly Bar As New Item(Of Integer)(100)

    ' （略 見てはいけない部分）

End Class

Public NotInheritable Class Item(Of T)
    Private _name As String
    Public ReadOnly Property Name() As String
        Get
            Return _name
        End Get
    End Property

    Private _defaultValue As T
    Public ReadOnly Property DefaultValue() As T
        Get
            Return _defaultValue
        End Get
    End Property

    Public Sub New(ByVal defaultValue As T)
        _defaultValue = defaultValue
    End Sub

    Public Overrides Function ToString() As String
        Return _name
    End Function
End Class

Shared Sub New()
    Dim fieldsInfo = GetType(BasePropertyItems).GetFields( _
        BindingFlags.DeclaredOnly Or _
        BindingFlags.GetField Or _
        BindingFlags.Instance Or _
        BindingFlags.Public Or _
        BindingFlags.Static Or _
        BindingFlags.FlattenHierarchy)

    For Each info In fieldsInfo
        Dim item = info.GetValue(Nothing)
        item.GetType.InvokeMember( _
            "_name", _
            BindingFlags.SetField Or BindingFlags.NonPublic Or BindingFlags.Instance, _
            Nothing, _
            item, _
            New Object() {info.Name}, _
            Nothing, Nothing, Nothing)
    Next
End Sub