Checker/Settings.vb - master - AstroJohn/MailRobot

Checker/Settings.vb
47 строк2 KB
AstroJohn
1st commit
11 сен 2024, 13:31
11 сен 2024, 13:310f57dc5
Namespace My

    ' Этот класс позволяет обрабатывать определенные события в классе параметров:
    ' Событие SettingChanging возникает перед изменением значения параметра.
    ' Событие PropertyChanged возникает после изменения значения параметра.
    ' Событие SettingsLoaded возникает после загрузки значений параметров.
    ' Событие SettingsSaving возникает перед сохранением значений параметров.
    Partial Public NotInheritable Class MySettings
        Inherits Global.System.Configuration.ApplicationSettingsBase

        Private Shared userOverrides() As String = _
        { _
            "MSSQL_Conn", _
            "MySQL_Conn" _
        }

        Private Shared userOverrideSuffix As String = "_UserOverride"

        Public Sub SetUserOverride(ByVal [property] As String, _
                                   ByVal value As String)
            Me([property]) = value
        End Sub

        Private Sub userOverride_SettingsLoaded(ByVal sender As Object, _
                ByVal e As System.Configuration.SettingsLoadedEventArgs) _
            Handles Me.SettingsLoaded
            Dim userProperty As String
            For Each appProperty As String In userOverrides
                userProperty = appProperty & userOverrideSuffix
                If CType(Me(userProperty), String).Length > 0 Then
                    Me(appProperty) = Me(userProperty)
                End If
            Next
        End Sub

        Private Sub userOverride_SettingsSaving(ByVal sender As Object, _
                ByVal e As System.ComponentModel.CancelEventArgs) _
            Handles Me.SettingsSaving
            Dim userProperty As String
            For Each appProperty As String In userOverrides
                userProperty = appProperty & userOverrideSuffix
                Me(userProperty) = Me(appProperty)
            Next
        End Sub
    End Class

End Namespace