CodeAttributeArgument.IsCodeType 属性

  • 参考

定义

命名空间:
EnvDTE80
程序集:
EnvDTE80.dll
程序集:

获取一个值，该值指示是否 CodeType 可以从此代码特性参数获取对象。

public:
 property bool IsCodeType { bool get(); };
public:
 property bool IsCodeType { bool get(); };
[System.Runtime.InteropServices.DispId(6)]
public bool IsCodeType { [System.Runtime.InteropServices.DispId(6)] [System.Runtime.InteropServices.TypeLibFunc(1024)] get; }
[<System.Runtime.InteropServices.DispId(6)>]
[<get: System.Runtime.InteropServices.DispId(6)>]
[<get: System.Runtime.InteropServices.TypeLibFunc(1024)>]
member this.IsCodeType : bool
Public ReadOnly Property IsCodeType As Boolean

属性值

Boolean

一个布尔值， true 如果可以获取对象，则该值为 CodeType ; 否则为 false 。

属性
DispIdAttribute TypeLibFuncAttribute

示例

' Macro code.  
Sub codeArgNameExample()  
    Dim sel As TextSelection = _  
    CType(DTE.ActiveDocument.Selection, TextSelection)  
    Dim cls As CodeClass2 = CType(sel.ActivePoint. _  
    CodeElement(vsCMElement.vsCMElementClass), CodeClass2)  
    Dim attr As CodeAttribute2  
    Dim attrArg As CodeAttributeArgument  
    Dim msg As String  

    Try  
        ' Loop through all of the attributes in the class.  
        For Each attr In cls.Attributes  
           ' Loop through all of the arguments for the attribute.  
            For Each attrArg In attr.Arguments  
                msg += "Value: " & attrArg.Value & " " & vbCr  
                ' If the argument has a name, list it.  
                If attrArg.Name <> Nothing Then  
                    msg += "Name: " & attrArg.Name & vbCr  
                End If  
                msg += "Arg start pos: " & _  
                attrArg.StartPoint.LineCharOffset & vbCr  
                msg += "Arg end pos: " & _  
                attrArg.EndPoint.LineCharOffset & vbCr  
            Next  
        Next  
        msg += "Location: " & attrArg.InfoLocation.ToString & vbCr  
        msg += "Is code type? " & attrArg.IsCodeType.ToString & vbCr  
        msg += "Code element type: " & attrArg.Kind.ToString & vbCr  
        msg += "Language: " & attrArg.Language & vbCr  
        msg += ("Name of attribute's project item: " & _  
        attrArg.ProjectItem.Name)  
        ' List the arguments for the attribute.  
        MsgBox("Attribute parameters for " & attr.Name _  
        & ": " & vbCr & msg)  
    Catch ex As System.Exception  
        MsgBox("ERROR -> " & ex.Message)  
    End Try  
End Sub

注解

如果是 true ，则可以查询接口或将其转换为 CodeType 对象。

备注

在进行了某些类型的编辑之后，代码模型元素（例如类、结构、函数、特性、委托等）的值可能变为非确定性的，这意味着不能确定它们的值始终保持不变。 有关详细信息，请参阅 "代码模型元素值在 使用代码模型查找代码时 可能发生变化" (Visual Basic) "。

适用于