Visual Studio窗口管理器

你可以看看我的博客, Save and Change Tool Layout in Visual Studio ,它提供了列出和切换窗口布局的功能。

你的问题在 same page 你问的地方:-)

仅作记录:

若要使其在2008年正常工作,请添加 新的hostapplication元素 windowmanager2005.addin文件。文件 通常在 “%appdata%\Microsoft\msenvshared\addins”。 在新元素中更改版本 将是9.0(与2008年相比),并且应该可以工作 2008年和2005年。

<HostApplication>
  <Name>Microsoft Visual Studio</Name>
  <Version>9.0</Version>
</HostApplication>

你应该联系rw on CodePlex . 他声称在visual studio 2008中工作。退房 this item .

下面的宏可以帮您完成这个任务。我做了上面提到的windowmanager,重新编译它以用于visualstudio2008,但我仍然发现它有点不稳定。另外,我不使用windowmanager中的“自动应用布局”功能,因此这些宏对于我从双监视器工作切换到仅笔记本工作非常有用。

Sub DualMonitorConfiguration_Save()
    SaveWindowConfiguration("Dual Monitor Layout")
End Sub

Sub DualMonitorConfiguration_Load()
    LoadWindowConfiguration("Dual Monitor Layout")
End Sub

Sub LaptopOnlyConfiguration_Save()
    SaveWindowConfiguration("Laptop Only Layout")
End Sub

Sub LaptopOnlyConfiguration_Load()
    LoadWindowConfiguration("Laptop Only Layout")
End Sub

Private Sub SaveWindowConfiguration(ByVal configName As String)
    Dim selectedConfig As WindowConfiguration
    selectedConfig = FindWindowConfiguration(configName)
    If selectedConfig Is Nothing Then
        selectedConfig = DTE.WindowConfigurations.Add(configName)
    End If

    selectedConfig.Update()
    DTE.StatusBar.Text = "Window configuration saved: " & configName
End Sub

Sub LoadWindowConfiguration(ByVal configName As String)
    Dim selectedConfig As WindowConfiguration
    selectedConfig = FindWindowConfiguration(configName)
    If selectedConfig Is Nothing Then
        MsgBox("Window Configuration """ & configName & """ not found.")
    Else
        selectedConfig.Apply()
        DTE.StatusBar.Text = "Window configuration applied: " & configName
    End If
End Sub

Private Function FindWindowConfiguration(ByVal name As String) As WindowConfiguration
    Dim selectedLayout As WindowConfiguration

    For Each config As WindowConfiguration In DTE.WindowConfigurations
        If config.Name = name Then
            Return config
        End If
    Next

    Return Nothing
End Function