VB.Net 中使用泛型实现 My.Settings 持久性的最佳方法？

Question

你能改进这个通用的吗？

我试图通过使用泛型来减少代码膨胀、减少错误并简化代码隐藏。在本例中，我将泛型应用于持久属性的声明。持久性是通过 My.Settings 实现的。这是到目前为止的代码。

' must be defined in same project as My.Settings!
Public Class MySettingsProperty(Of T)
    Implements System.ComponentModel.INotifyPropertyChanged
    Private m_Name As String
    Sub New(ByVal Name As String)
        m_Name = Name
    End Sub
    Sub New(ByVal Name As String, ByVal InitialValue As T)
        m_Name = Name
        Value = InitialValue
    End Sub
    Public Property Value As T
        Get
            Return CType(My.Settings(m_Name), T)
        End Get
        Set(ByVal value As T)
            My.Settings(m_Name) = value
            RaiseEvent PropertyChanged(Me, New     System.ComponentModel.PropertyChangedEventArgs("Value"))
        End Set
    End Property
    Private Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
End Class

用法：

Public Property Host As New MySettingsProperty(Of  String)("Host")
Host.Value = "127.0.0.1"
Debug.WriteLine(Host.Value)

优点：

1. 使用 My.Settings 进行持久化
2. 减少 Getters 和 Setters 背后的代码膨胀
3. 减少编码错误
4. 可绑定
5. 实现 INotifyPropertChanged

缺点

1. 需要将“.Value”附加到属性中。
2. 需要将 My.Settings 属性名称指定为字符串常量。
3. 类必须与 My.Settings 声明驻留在同一项目中。

Answer 1

我刚刚从 c# 到 vb 所以希望它适合：

Module SettingsHelper

    Public Function GetSetting(Of TSetting)(ByVal selector As Func(Of My.MySettings, TSetting)) As TSetting
        Return selector(My.Settings)
    End Function

    Public Sub SetSetting(ByVal action As Action(Of My.MySettings))
        action(My.Settings)
    End Sub

End Module

及用法：

Debug.WriteLine(SettingsHelper.GetSetting(Function(s) s.Setting1))

SettingsHelper.SetSetting(Sub(s) s.Setting1 = "new value")

希望这可以帮助。