VS.NET CodeDOM-Based Custom Tool for String Resource Management

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.1.4322.573
'
'     Changes to this file may cause incorrect behavior and will be lost if 
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On

Imports System
Imports System.Reflection
Imports System.Resources


'-----------------------------------------------------------------------------
' <autogeneratedinfo>
'     This code was generated by:
'       ResourceClassGenerator custom tool for VS.NET
'
'     It contains classes defined from the contents of the resource file:
'       C:\Development\DotNet\Essential Tools\ResourceClassGenerator\TestVB\Resources\Strings.en.resx
'
'     Generated: Wednesday, June 23, 2004 10:22 AM
' </autogeneratedinfo>
'-----------------------------------------------------------------------------
Namespace Resources.Strings
    
    '<summary>
    'Provides access to an assembly's string resources
    '</summary>
    Class ResourceFormatter
        
        Private Shared _ResourceManager As System.Resources.ResourceManager
        
        '<summary>
        'ResourceManager property with lazy initialization
        '</summary>
        '<value>An instance of the ResourceManager class.</value>
        Private Shared ReadOnly Property ResourceManager As System.Resources.ResourceManager
            Get
                If (_ResourceManager Is Nothing) Then
                    _ResourceManager = New System.Resources.ResourceManager("TestVB.Strings", System.Reflection.Assembly.GetExecutingAssembly)
                End If
                Return _ResourceManager
            End Get
        End Property
        
        '<summary>
        'Loads an unformatted string
        '</summary>
        '<param name="resourceId">Identifier of string resource</param>
        '<returns>string</returns>
        Public Overloads Shared Function GetString(ByVal resourceId As String) As String
            Return ResourceFormatter.ResourceManager.GetString(resourceId)
        End Function
        
        '<summary>
        'Loads a formatted string
        '</summary>
        '<param name="resourceId">Identifier of string resource</param>
        '<param name="objects">Array of objects to be passed to string.Format</param>
        '<returns>string</returns>
        Public Overloads Shared Function GetString(ByVal resourceId As String, ByVal args() As Object) As String
            Dim format As String = ResourceFormatter.ResourceManager.GetString(resourceId)
            Return String.Format(format, args)
        End Function
    End Class
    
    '<summary>
    'Access to resource identifier Label1
    '</summary>
    Class Label1
        
        Public Shared Function GetString() As String
            Return ResourceFormatter.GetString("Label1")
        End Function
    End Class
    
    '<summary>
    'Access to resource identifier Label2
    '</summary>
    Class Label2
        
        Public Shared Function GetString(ByVal arg0 As Object, ByVal arg1 As Object) As String
            Return ResourceFormatter.GetString("Label2", New Object() {arg0, arg1})
        End Function
    End Class
    
    '<summary>
    'Access to resource identifier Label3
    '</summary>
    Class Label3
        
        Public Shared Function GetString() As String
            Return ResourceFormatter.GetString("Label3")
        End Function
    End Class
    
    '<summary>
    'Access to resource identifier Label4
    '</summary>
    Class Label4
        
        Public Shared Function GetString() As String
            Return ResourceFormatter.GetString("Label4")
        End Function
    End Class
    
    '<summary>
    'Access to resource identifier Label5
    '</summary>
    Class Label5
        
        Public Shared Function GetString() As String
            Return ResourceFormatter.GetString("Label5")
        End Function
    End Class
End Namespace