Switch between Header and CPP File for Visual Studio .NET

��Option Strict Off

Option Explicit Off



Imports EnvDTE

Imports System.Diagnostics



Public Module Opac



    Function WalkProjectItemsAndOpen(ByRef items As ProjectItems, ByRef name As String) As Boolean

        Dim item As ProjectItem



        If ReferenceEquals(items, Nothing) Then

            Return False

        End If



        For Each item In items

            Dim sub_items As ProjectItems

            sub_items = item.SubProject

            If Not sub_items Is Nothing Then

                If WalkProjectItemsAndOpen(sub_itemsm, name) Then

                    Return True

                End If

            End If

            If item.Name = name Then

                'MsgBox("Found " + name + " in project " + items.ContainingProject.UniqueName)

                Dim op As ItemOperations

                op = DTE.ItemOperations

                op.OpenFile(item.FileNames(0), Constants.vsViewKindTextView)

                Return True

            End If

        Next

        Return False

    End Function



    Sub Swap_H_CPP()

        Dim proj As Project

        Dim doc As Document

        Dim name As String



        doc = DTE.ActiveDocument

        name = doc.Name



        If name.EndsWith(".h") Then

            name = name.Replace(".h", ".cpp")

        ElseIf name.EndsWith(".cpp") Then

            name = name.Replace(".cpp", ".h")

        End If





        For Each proj In DTE.Solution.Projects

            If WalkProjectItemsAndOpen(proj.ProjectItems, name) Then

                Exit Sub

            End If

        Next



        Beep()



    End Sub



End Module