在DLL执行中获取App.config中的值

今天在一个自己的Windows Service项目里通过反射执行DLL中的方法，该方法在执行时使用DLL项目的配置参数(保存在app.config里)。在CodeProject上有个很老的办法(原文地址 http://www.codeproject.com/KB/dotnet/dllappconfig.aspx?msg=2823743 )：

Imports System.IO Imports System.Reflection Imports System.Configuration Friend Class DllConfig Implements IDisposable Dim oldConfig As String Dim libCompat As Boolean Dim newConfig As String = "Project.dll.config" Friend Sub New() libCompat = Assembly.GetAssembly(GetType(ConfigurationSettings)).GetName.Version.ToString().CompareTo("2.0.0.0") = 0 oldConfig = AppDomain.CurrentDomain.GetData("APP_CONFIG_FILE").ToString Switch(Directory.GetCurrentDirectory + "/" + newConfig) End Sub Protected Sub Switch(ByVal config As String) If libCompat Then AppDomain.CurrentDomain.SetData("APP_CONFIG_FILE", config) Dim fiInit As FieldInfo = GetType(System.Configuration.ConfigurationSettings).GetField("_configurationInitialized", BindingFlags.NonPublic Or BindingFlags.Static) Dim fiSystem As FieldInfo = GetType(System.Configuration.ConfigurationSettings).GetField("_configSystem", BindingFlags.NonPublic Or BindingFlags.Static) If ((fiInit IsNot Nothing) And (fiSystem IsNot Nothing)) Then fiInit.SetValue(Nothing, False) fiSystem.SetValue(Nothing, Nothing) End If End If End Sub Public Function ConnectionString() As String Dim str As String Using New DllConfig str = ConfigurationManager.AppSettings("ConnectionString") End Using Return str End Function Public Function MaxNumber() As String Dim str As String Using New DllConfig str = My.Settings.Item("MaxNumber") End Using Return str End Function Private disposedValue As Boolean = False ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not Me.disposedValue Then If disposing Then ' TODO End If Switch(oldConfig) End If Me.disposedValue = True End Sub #Region " IDisposable Support " Public Sub Dispose() Implements IDisposable.Dispose Dispose(True) GC.SuppressFinalize(Me) End Sub #End Region End Class

在Switch以后通过 My.Settings.Item 可以获取项目中自定义的值，保存在App.config中。