Question

我要创建一个辅助函数，该函数采用AssemblyCustomAttribute类型并将属性值作为字符串返回。

这是功能代码：

Public Shared Function GetAssemblyAttribute(tAttribute As Type, Optional bFirstResult As Boolean = True) As String
    Dim sRetVal As String = String.Empty

    Dim objAssembly As Assembly = Assembly.GetExecutingAssembly()
    Dim objAttributes As Object() = objAssembly.GetCustomAttributes(True)
    For Each objAttribute In objAttributes
        If objAttribute.GetType().Equals(tAttribute) Then
            sRetVal = objAttribute.Configuration
            If bFirstResult Then
                Exit For
            End If
        End If
    Next

    Return sRetVal
End Function

有什么可能，我可以识别AssemblyCustomAttribute的主要属性，然后在 option strict选项启用（没有后期绑定）的情况下将其作为字符串返回？

上面的代码有一个缺陷，即当前仅支持AssemblyConfigurationAttribute。

第二个问题是它必须与.NET Framework 2.0一起使用。这就是为什么没有OfType<>调用的原因，因为它在2.0中不存在。

作为参考，我想从AssemblyInfo.vb中获取以下属性

<Assembly: AssemblyConfiguration("Debug")>
<Assembly: AssemblyInformationalVersion("1.0.0")>

通过以下函数调用：

Me.lblAppVersion.Text = String.Format(
    "Version {0} ({1})",
    Helper.GetAssemblyAttribute((New System.Reflection.AssemblyConfigurationAttribute("")).GetType()),
    Helper.GetAssemblyAttribute((New System.Reflection.AssemblyInformationalVersionAttribute("")).GetType())
)
' Returns: "Version 1.0.0 (Debug)"

如何修改该函数，使其自动检测 primary属性，或使用提供的字符串参数作为属性名称？

Answer 1

我找到了一个快速而肮脏的解决方案。但是，我希望看到其他可能更好的解决方案。

Public Shared Function GetAssemblyAttribute(tAttribute As Type, Optional bFirstResult As Boolean = True) As String
    Dim sRetVal As String = String.Empty
    Dim objAssembly As Assembly = Assembly.GetExecutingAssembly()
    Dim objAttributes As Object() = objAssembly.GetCustomAttributes(True)
    For Each objAttribute In objAttributes
        If objAttribute.GetType().Equals(tAttribute) Then
            For Each objProperty In objAttribute.GetType().GetProperties()
                If objProperty.Name <> "TypeId" Then
                    sRetVal = objProperty.GetValue(objAttribute, Nothing)
                    If bFirstResult Then
                        Exit For
                    End If

                End If
            Next
        End If
    Next
    Return sRetVal
End Function

如何通过VB.NET应用程序动态获取AssemblyCustomAttribute的值？

1 个答案: