DTE.ExecuteCommand("View.CommandWindow")

Public Sub TrackProjectItem()
  If (DTE.ActiveDocument Is Nothing) Then
    Return
  End If

  Dim solution As Solution = DTE.Solution

  If solution.IsOpen = False Then
    Return
  End If

'Bug correction:
solution.FindProjectItem(DTE.ActiveDocument.FullName).ExpandView() 

  Dim FileName As String = DTE.ActiveDocument.FullName

  Dim SolutionExplorerPath As String

  Dim foundItem As UIHierarchyItem = _
    FindItem(FileName, SolutionExplorerPath)

  If foundItem Is Nothing Then
    Return
  End If

  Dim holdWindow As Window = DTE.ActiveWindow

  'Activate the Solution Explorer window:
  DTE.Windows.Item(Constants.vsWindowKindSolutionExplorer) _
    .Activate()

  'Select the Selected Node:
  foundItem.Select(vsUISelectionType.vsUISelectionTypeSelect)

  holdWindow.Activate()
End Sub


Public Function FindItem(ByVal fileName As String, _
                         ByRef solutionExplorerPath As String) _
                         As UIHierarchyItem

  If (String.IsNullOrEmpty(fileName)) Then _
    Throw New ArgumentException("fileName")

  ' Get the the Solution Explorer Window:
  Dim solutionExplorer As UIHierarchy = _
    CType( _
      DTE.Windows.Item(Constants.vsext_wk_SProjectWindow).Object,  _
      UIHierarchy)

  Return FindItem(solutionExplorer.UIHierarchyItems.Item(1), _
                    fileName, _
                    solutionExplorerPath)

End Function

Public Function FindItem(ByVal item As UIHierarchyItem, _
                         ByVal fileName As String, _
                         ByRef solutionExplorerPath As String) _
                         As UIHierarchyItem

  If (item Is Nothing) Then _
    Throw New ArgumentNullException("item")
  If (String.IsNullOrEmpty(fileName)) Then _
    Throw New ArgumentException("fileName")


  Dim TypeName As String = _
    Microsoft.VisualBasic.Information.TypeName(item.Object)

  If TypeName = "ProjectItem" Then
    'Only check for filenames if the the node
    ' is a project Item, and not a 
    'SolutionClass or Project
    Dim projectitem As EnvDTE.ProjectItem = _
      CType(item.Object, EnvDTE.ProjectItem)

    For i As Integer = 1 To projectitem.FileCount
      If projectitem.FileNames(CType(i, Short)) = fileName Then
        
        'Found! this is the node...
        Dim pathParts As New List(Of String)

        Dim sb As New System.Text.StringBuilder()
        Dim parentItem As UIHierarchyItem = item
        Do Until (parentItem Is Nothing)
          pathParts.Insert(0, parentItem.Name)

          Dim x As UIHierarchyItems = _
          parentItem.UIHierarchyItems

          Try
            parentItem = _
              CType(parentItem.Collection.Parent, UIHierarchyItem)

            'This doesn't work: just gives back self
            'and creates eternal loop:
            'parentItem = parentItem.UIHierarchyItems.Parent
          Catch
            'Oops...the Parent is a ProjectItem,
            'so cast fails...
            parentItem = Nothing
          End Try
        Loop

        solutionExplorerPath = _
                  String.Join("\", pathParts.ToArray())
                Return item
            End If
        Next i
    End If

    'If it wasn't this node, then lets look at children:
    For Each childItem As UIHierarchyItem In item.UIHierarchyItems
      Dim result As UIHierarchyItem = _
        FindItem(childItem, fileName, solutionExplorerPath)

        If Not (result Is Nothing) Then
          'Found it! great...get out...
          'recursively passing back node till we are out:
          Return result
        End If
    Next

End Function

'Collapse All Nodes in the SolutionExplorer
'using using Depth first algorithm
Sub CollapseAllNodes()
    ' Get the the Solution Explorer Window:
    Dim solutionExplorer As UIHierarchy = _
      DTE.Windows.Item(Constants.vsext_wk_SProjectWindow).Object

    ' Check if there is any open solution
    If (solutionExplorer.UIHierarchyItems.Count = 0) Then
        'No Solution -- nothing to collapse:
        Return
    End If


    'Get the Solution Node:
    Dim uiSolutionNode As UIHierarchyItem = _
     solutionExplorer.UIHierarchyItems.Item(1)


    Try

        'Turn off updating for a second:
        solutionExplorer.DTE.SuppressUI = True

        DeepCollapseNode(uiSolutionNode)


        uiSolutionNode.UIHierarchyItems.Expanded = True

    Catch
        '...
    Finally
        'Turn updating back on:
        solutionExplorer.DTE.SuppressUI = False
    End Try
End Sub


'Collapses all items, starting from deep back up to top:
Public Sub DeepCollapseNode(ByVal node As UIHierarchyItem)
    If (node Is Nothing) Then _
      Throw New System.ArgumentException(node)

    'Go down to deepest part first:
    For Each childItem As UIHierarchyItem In node.UIHierarchyItems
        DeepCollapseNode(childItem)
    Next

    'Collapse only if expanded, and has children:
    If (node.UIHierarchyItems.Count > 0) And _
        node.UIHierarchyItems.Expanded = True Then
        node.UIHierarchyItems.Expanded = False
    End If
End Sub

Function GetActiveClass() As CodeClass
    Dim currentProject As Project

    Dim codeElement As CodeElement


    Dim result As CodeClass

    'Get the active document:
    Dim activeDocument As EnvDTE.Document = _
     DTE.ActiveDocument

    If (activeDocument Is Nothing) Then _
      Return Nothing

    'to get to its ProjectItem property:
    Dim currentItem As ProjectItem _
      = activeDocument.ProjectItem

    ' Get the current currentDocSelection
    ' within the active document:
    Dim currentDocSelection As TextSelection = _
      CType(DTE.ActiveDocument.Selection, TextSelection)

    ' And within the active selection, figure 
    ' out where the current cursor location
    Dim currentDocPoint As TextPoint _
      = currentDocSelection.ActivePoint


    Try
        Dim currentItemFileCodeModel As FileCodeModel _
          = currentItem.FileCodeModel

        ' Try to read the current location,
        ' as a code element. 
        'Note that it can be many things at once 
        ' (a property AND a class at same time...get it?)
        result = _
          CType( _
            currentItemFileCodeModel.CodeElementFromPoint( _
              currentDocPoint, vsCMElement.vsCMElementClass),  _
            CodeClass)

    Catch ex As Exception
        'Bummer...Not a class file?
        result = Nothing
    End Try

    Return result
End Function

Function GetActiveProject() As Project


    'Get the active document:
    Dim activeDocument As EnvDTE.Document = _
     DTE.ActiveDocument

    If (activeDocument Is Nothing) Then _
      Return Nothing


    'to get to its ProjectItem property:
    Dim currentItem As ProjectItem _
      = activeDocument.ProjectItem


    'in order to get to its ContainingProject
    Dim result As Project _
      = currentItem.ContainingProject

    Return result
End Function

Public Function GetCodeElementLanguage( _
  ByVal codeElement As CodeElement) As String

    If (codeElement Is Nothing) Then _
      Throw New ArgumentException("codeElement")


    Select Case codeElement.Language
        Case "{B5E9BD33-6D3E-4B5D-925E-8A43B79820B4}"
            Return "VB"
        Case "{B5E9BD34-6D3E-4B5D-925E-8A43B79820B4}"
            Return "CS"
        Case "{B5E9BD32-6D3E-4B5D-925E-8A43B79820B4}"
            Return "VC++" 'Unmanaged?
        Case "{B5E9BD36-6D3E-4B5D-925E-8A43B79820B4}"
            Return "VC++" 'Managed?
        Case Else
            Return "UNKNOWN"
    End Select
End Function

Public Function GetAllCodePropertiesInCodeClass( _
  ByVal codeClass As CodeClass) As CodeProperty()

    If (codeClass Is Nothing) Then _
      Throw New ArgumentException("codeClass")

    Dim result As New List(Of CodeProperty)()

    'Loop through all members of a class
    'getting only the CodeElements that are of the 
    'right type:
    For Each codeElement As CodeElement In CodeClass.Members
        If codeElement.Kind = vsCMElement.vsCMElementProperty Then
            result.Add(codeElement)
        End If
    Next

    Return result.ToArray()
End Function

'Invoked by: AutoAttributesControlProperty
Private Function SuggestDescriptionAttributeValue( _ 
  ByVal codeProperty As CodeProperty) As String
  
  If (codeProperty Is Nothing) Then _ 
    Throw New ArgumentException("codeProperty")

  Dim result As String
    
  'Right...So how would one automatically 
  'develop text with which to describe a property?
  'Turns out that its probably not necessary to
  'generate text (cf: DocGhost), but just use whatever
  'we can find already there...

  'One place I would look for one is try to 
  'reuse the description that was probably 
  'already put on the property by the programmer...

  'Did the Property have a comment already associated to it?
  If (codeProperty.DocComment <> String.Empty) Then
    'Yes...the Property has an associated comment...
    'so, theoretically, it should 
    'be an Xml document that can be parsed...
    'So load it up!
    Dim xmlDoc As XmlDocument = New XmlDocument()
    xmlDoc.LoadXml(codeProperty.DocComment)

    'And look for a node called summary:
    Dim xmlNode As XmlNode = xmlDoc.SelectSingleNode("//summary")

    If Not (xmlNode Is Nothing) Then
      'If there was a node, then we want the inner text
      'we don't want any para tags or other stuff 
      'in the DescriptionAttribute:      
      result = xmlNode.InnerText

      'And we don't want newlines that will cause havoc
      'with the built in Xml documentation:
      result = _
      result.Replace(Environment.NewLine, "")
    End If
  End If

  Return result
End Function

public string MyVar {
  get {
    return _MyVar;
  }
  set {
    _MyVar = value;
  }
}
private string _MyVar;

'Invoked by: AutoAttributesControlProperty
Private Function FindFieldBackingProperty(ByVal codeProperty As CodeProperty) _ 
  As CodeVariable
  
  If (codeProperty Is Nothing) Then _ 
    Throw New ArgumentException("codeProperty")

  Dim propName As String = codeProperty.Name

  'To find fields, we need to find the 
  'class that is parent to the given property:
  Dim codeClass As CodeClass = codeProperty.Parent

  For Each tmp As CodeElement In codeClass.Members
    If Not TypeOf (tmp) Is CodeVariable Then
      Continue For
    End If

    'The common way of naming a backing field
    'is to use the same name, just different case, or 
    'start it with an underscore:
    If tmp.Name.Equals( _ 
        propName, _ 
        StringComparison.InvariantCultureIgnoreCase) _ 
      Or _
        tmp.Name.Equals( _ 
        "_" & propName, StringComparison.InvariantCultureIgnoreCase) _ 
    Then
        'Found it:
        Return CType(tmp, CodeVariable)
    End If
  Next

  Return Nothing
End Function