Share via

Toggle Design and Source Windows Macro

  • Article

This one comes from Austin out of our mailbag.  Thanks - Josh

I got tired of using the F7, Shift-F7 key shortcuts for toggling the Design and Source code windows.  So I wrote this little macro.

It works a little differently for ASP.NET files.  When toggling to the Design window the macro will open either in Design or HTML mode depending on the users setting.  Maybe someone else will find this macro usefull.

Imports EnvDTE

Imports System.Diagnostics

Imports System.ComponentModel.Design

Public Module ToggleWindows

Sub ToggleDesignAndCodeWindows()

If (((TypeOf DTE.ActiveWindow.Object Is IDesignerHost) OrElse (TypeOf DTE.ActiveWindow.Object Is HTMLWindow)) AndAlso (DTE.Commands.Item("View.ViewCode").IsAvailable)) Then

DTE.ExecuteCommand("View.ViewCode")

Else

Dim projItem As ProjectItem

Dim activeDocFullName As String = DTE.ActiveDocument.FullName

Dim formFullName As String = activeDocFullName.Substring(0, activeDocFullName.LastIndexOf("."))

projItem = DTE.Solution.FindProjectItem(formFullName)

If (Not projItem Is Nothing) Then

Try

projItem.Open(Constants.vsViewKindPrimary).Activate()

Catch e As System.NullReferenceException

' Do nothing. Needed for asmx and ascx pages.

End Try

Else

If DTE.Commands.Item("View.ViewDesigner").IsAvailable Then

DTE.ExecuteCommand("View.ViewDesigner")

Else

Beep()

End If

End If

End If

End Sub

End Module

 Check out these instructions for more information on using macros in the ide.