如何使用FileCodeModel在VB中检测枚举值的属性

Imports EnvDTE
Imports EnvDTE80

Public Sub CheckEnumValueAttributes()
    ' 获取当前活动的项目
    Dim project As Project = DTE.ActiveDocument.ProjectItem.ContainingProject

    ' 获取项目的FileCodeModel
    Dim fileCodeModel As FileCodeModel = project.CodeModel

    ' 遍历项目中的所有代码元素
    For Each codeElement As CodeElement In fileCodeModel.CodeElements
        ' 检查是否为枚举类型
        If codeElement.Kind = vsCMElement.vsCMElementEnum Then
            Dim enumCodeElement As CodeEnum = DirectCast(codeElement, CodeEnum)

            ' 遍历枚举类型的成员
            For Each member As CodeElement In enumCodeElement.Members
                ' 检查成员是否有属性
                If member.Attributes.Count > 0 Then
                    ' 输出成员的属性信息
                    For Each attribute As CodeAttribute In member.Attributes
                        Console.WriteLine("枚举成员: " & member.Name & "，属性: " & attribute.FullName)
                    Next
                End If
            Next
        End If
    Next
End Sub

CheckEnumValueAttributes()