学步园

Imports System.Resources</p> <p>Public Function GetString(ByVal Key As String) As String</p> <p> Const NAME_SPACE As String = "GSDN.Common"</p> <p> Dim resourceMgrIns As ResourceManager<br /> Dim value As String</p> <p> resourceMgrIns = New ResourceManager( _<br /> NAME_SPACE & ".Resources", _<br /> GetType(My.Resources.Resources).Assembly)</p> <p> value = resourceMgrIns.GetString(Key)</p> <p> Return value</p> <p>End Function