CodeClass2.Collection 属性
定义
重要
一些信息与预发行产品相关，相应产品在发行之前可能会进行重大修改。 对于此处提供的信息，Microsoft 不作任何明示或暗示的担保。
获取代码类中所含的集合。
public:
property EnvDTE::CodeElements ^ Collection { EnvDTE::CodeElements ^ get(); };[System.Runtime.InteropServices.DispId(2)]
public EnvDTE.CodeElements Collection { [System.Runtime.InteropServices.DispId(2)] [System.Runtime.InteropServices.TypeLibFunc(1024)] get; }[<System.Runtime.InteropServices.DispId(2)>]
[<get: System.Runtime.InteropServices.DispId(2)>]
[<get: System.Runtime.InteropServices.TypeLibFunc(1024)>]
member this.Collection : EnvDTE.CodeElementsPublic ReadOnly Property Collection As CodeElements属性值
CodeClass 对象的集合。
实现
- 属性
示例
[Visual Basic]
Sub CollectionExample(ByVal dte As DTE2)
' Before running this example, open a code document from a project
' and place the insertion point inside a class definition.
Try
' Retrieve the CodeClass at the insertion point.
Dim sel As TextSelection = _
CType(dte.ActiveDocument.Selection, TextSelection)
Dim cls As CodeClass = _
CType(sel.ActivePoint.CodeElement( _
vsCMElement.vsCMElementClass), CodeClass)
Dim elem As CodeElement
Dim peers As String
' List all peer elements of the CodeClass.
For Each elem In cls.Collection
If Not (elem Is cls) And Not IsNothing(elem.Name) Then
peers &= elem.Name & " (" & elem.Kind.ToString() & _
")" & vbCrLf
End If
Next
MsgBox(cls.Name & " has the following peer elements:" & _
vbCrLf & vbCrLf & peers)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
[C#]
public void CollectionExample(DTE2 dte)
{
// Before running this example, open a code document from a project
// and place the insertion point inside a class definition.
try
{
// Retrieve the CodeClass at the insertion point.
TextSelection sel =
(TextSelection)dte.ActiveDocument.Selection;
CodeClass cls =
(CodeClass)sel.ActivePoint.get_CodeElement(
vsCMElement.vsCMElementClass);
string peers = "";
// List all peer elements of the CodeClass.
foreach (CodeElement elem in cls.Collection)
{
if ((elem != cls) && (elem.Name != null))
peers += elem.Name + " (" + elem.Kind.ToString()
+ ")\n";
}
MessageBox.Show(cls.Name +
" has the following peer elements:\n\n" + peers);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}
注解
备注
在进行了某些类型的编辑之后，代码模型元素（例如类、结构、函数、特性、委托等）的值可能变为非确定性的，这意味着不能确定它们的值始终保持不变。 有关详细信息，请参阅 "代码模型元素值在 使用代码模型查找代码时 可能发生变化" (Visual Basic) "。