关闭

HOW TO:程序集内读取内嵌默认资源

标签: stringresourcesfunctionobjectclassinteger
1383人阅读 评论(0) 收藏 举报
分类:
Author:水如烟

当用Reflector查看程序集资源时,我们通常都会看到三个类SR,SRCategoryAttribute和SRDescriptionAttribute,来读取当前程序集的资源信息。
在这里,所谓的默认我指的是在Framework2.0里。默认的资源名称一般是[RootNameSpace].Resources.resources。
三个类的代码在各程序集中基本是一样的,但因为各自的资源有异,它的Resourcemanager定义为Private,而其它的变量和方法,基本上是Shared。再一点,它只服务于本程序集,所以多用Friend限制作用范围。代码有些技巧,稍增改,如下:

SR.VB
Imports System.Resources, System.Globalization

Friend NotInheritable Class SR

    
'如是特殊名称,在这修改。默认的为[RootNameSpace].Resources.resources
    Friend Sub New()
        
Dim localAssembly As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly
        
Dim baseName As String = Nothing
        
For Each resourceName As String In localAssembly.GetManifestResourceNames
            
If System.Text.RegularExpressions.Regex.IsMatch(resourceName, ".Resources.resources$")  Then
                baseName 
= resourceName
                
Exit For
            
End If
        
Next
        
Me.m_resources = New ResourceManager(baseName, localAssembly)
    
End Sub

    
Private Shared Function GetLoader() As SR
        
If SR.loader Is Nothing Then
            
SyncLock SR.InternalSyncObject
                
If SR.loader Is Nothing Then
                    SR.loader 
= New SR
                
End If
            
End SyncLock
        
End If
        
Return loader
    
End Function

    
Public Shared Function GetObject(ByVal name As StringAs Object
        SR.GetLoader()
        
If SR.loader Is Nothing Then
            
Return Nothing
        
End If

        
Return SR.Resources.GetObject(name, SR.Culture)
    
End Function

    
Public Shared Function GetString(ByVal name As StringAs String
        SR.GetLoader()
        
If SR.loader Is Nothing Then
            
Return Nothing
        
End If

        
Return SR.Resources.GetString(name, SR.Culture)
    
End Function

    
Public Shared Function GetString(ByVal name As StringByVal ParamArray args As Object()) As String
        SR.GetLoader()
        
If SR.loader Is Nothing Then
            
Return Nothing
        
End If

        
Dim Result As String
        Result 
= SR.Resources.GetString(name, SR.Culture)
        
If ((args Is NothingOrElse (args.Length <= 0)) Then
            
Return Result
        
End If

        
Dim argsCount As Integer = 0
        
Do While argsCount < args.Length
            
Dim argString As String = TryCast(args(argsCount), String)
            
If (Not argString Is NothingAndAlso (argString.Length > 1024Then
                args(argsCount) 
= (argString.Substring(01021& "")
            
End If
            argsCount 
+= 1
        
Loop

        
Return String.Format(CultureInfo.CurrentCulture, Result, args)
    
End Function


    
Private Shared ReadOnly Property Culture() As CultureInfo
        
Get
            
Return Nothing '取本地CultureInfo
        End Get
    
End Property

    
Private Shared ReadOnly Property InternalSyncObject() As Object
        
Get
            
If (SR.s_InternalSyncObject Is NothingThen
                
Dim tmpObj As New Object
                System.Threading.Interlocked.CompareExchange(SR.s_InternalSyncObject, tmpObj, 
Nothing)
            
End If
            
Return SR.s_InternalSyncObject
        
End Get
    
End Property

    
Public Shared ReadOnly Property Resources() As ResourceManager
        
Get
            
Return SR.loader.m_resources
        
End Get

    
End Property


    
Private Shared loader As SR
    
Private Shared s_InternalSyncObject As Object

    
Private m_resources As ResourceManager

    
'Friend Const Text1 As String = "Text1"
End Class

SRCategoryAttribute.VB
Imports System.ComponentModel

<AttributeUsage(AttributeTargets.All)> _
Friend NotInheritable Class SRCategoryAttribute
    
Inherits CategoryAttribute

    
Public Sub New(ByVal category As String)
        
MyBase.New(category)
    
End Sub

    
Protected Overrides Function GetLocalizedString(ByVal value As StringAs String
        
Return SR.GetString(value)
    
End Function
End Class

SRDescriptionAttribute.VB
Imports System.ComponentModel

<AttributeUsage(AttributeTargets.All)> _
Friend NotInheritable Class SRDescriptionAttribute
    
Inherits DescriptionAttribute

    
Private replaced As Boolean

    
Public Sub New(ByVal description As String)
        
MyBase.New(description)
    
End Sub

    
Public Overrides ReadOnly Property Description() As String
        
Get
            
If Not Me.replaced Then
                
Me.replaced = True
                
MyBase.DescriptionValue = SR.GetString(MyBase.Description)
            
End If
            
Return MyBase.Description
        
End Get
    
End Property

End Class
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:780770次
    • 积分:11369
    • 等级:
    • 排名:第1370名
    • 原创:352篇
    • 转载:0篇
    • 译文:0篇
    • 评论:241条
    微软中文