Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
Represents all of the projects of a given kind.
Namespace:  EnvDTE
Assembly:  EnvDTE (in EnvDTE.dll)
Syntax
'Declaration
<GuidAttribute("E3EC0ADD-31B3-461F-8303-8A5E6931257A")> _
Public Interface Projects _
    Inherits IEnumerable
[GuidAttribute("E3EC0ADD-31B3-461F-8303-8A5E6931257A")]
public interface Projects : IEnumerable
[GuidAttribute(L"E3EC0ADD-31B3-461F-8303-8A5E6931257A")]
public interface class Projects : IEnumerable
[<GuidAttribute("E3EC0ADD-31B3-461F-8303-8A5E6931257A")>]
type Projects =  
    interface 
        interface IEnumerable 
    end
public interface Projects extends IEnumerable
The Projects type exposes the following members.
Properties
| Name | Description | |
|---|---|---|
| .gif) | Count | Gets a value indicating the number of objects in the Projects collection. | 
| .gif) | DTE | Gets the top-level extensibility object. | 
| .gif) | Kind | Gets a GUID String indicating the kind or type of the object. | 
| .gif) | Parent | Gets the immediate parent object of a Projects collection. | 
| .gif) | Properties | Gets a collection of all properties that pertain to the Projects collection. | 
Top
Methods
| Name | Description | |
|---|---|---|
| .gif) | GetEnumerator | Gets an enumerator for items in the collection. | 
| .gif) | Item | Returns an indexed member of a Projects collection. | 
Top
Remarks
The Projects collection represents all projects of the same kind in the current instance of the integrated development environment (IDE). Typically, this collection is late-bound to the DTE object.
Examples
Sub ProjectsExample()
    ' Before running, be sure you have one or more projects
    ' loaded in the solution.
    Dim prj As Project
    Dim prjs As Projects
    Dim msg As String
    ' Go through all of the projects in the solution and display
    ' their names and types.
    prjs = DTE.Solution.Projects
    For Each prj In prjs
        msg += "NAME: " & prj.Name & "TYPE: " & prj.Kind & vbCr
    Next
    MsgBox(msg)
End Sub