Visual Studio: ¿hay algún clic en el interruptor entre las pestañas y la sangría de espacios?

Question

Soy miembro de varios equipos diferentes y (por supuesto;) algunos equipos prefieren pestañas en espacios y viceversa.

¿Hay alguna solución más fácil de usar que cargar el perfil del usuario a través del menú-> Herramientas ... que tiene 10 clics de largo?

Observé los parámetros de la línea de comandos devenv.exe si hay alguno para cargar un perfil de usuario en particular para tener dos lanzadores * .lnk separados de Visual Studio, pero no existe ese parámetro.

Luego traté de grabar macro, pero VS solo puede grabar el comando Tools.ImportandExportSettings y no puede registrar todos los pasos del siguiente asistente.

Thx por sugerencias, Petr

Answer 1

Uso InsTabsOff y InsTabsOn comandos de Productivity Power Tools extensión.

Answer 2

Hay una macro en este blog entry por James Alexander para alternar rápidamente entre pestañas y espacios dentro de Visual Studio. A continuación, solo agregue un comando de la barra de herramientas que se asigna a la macro y tiene su solución de un solo clic.

Public Sub ToggleTabs() 
    If DTE.ActiveDocument.Language = "CSharp" Then 
     Dim currentSetting As Boolean = DTE.Properties("TextEditor", "CSharp").Item("InsertTabs").Value 
     DTE.Properties("TextEditor", "CSharp").Item("InsertTabs").Value = Not currentSetting 
    End If 

    If DTE.ActiveDocument.Language = "SQL" Then 
     Dim currentSQLSetting As Boolean = DTE.Properties("TextEditor", "SQL").Item("InsertTabs").Value 
     DTE.Properties("TextEditor", "SQL").Item("InsertTabs").Value = Not currentSQLSetting 
    End If 

    If DTE.ActiveDocument.Language = "HTML" Then 
     Dim currentHTMLSetting As Boolean = DTE.Properties("TextEditor", "HTML").Item("InsertTabs").Value 
     DTE.Properties("TextEditor", "HTML").Item("InsertTabs").Value = Not currentHTMLSetting 
    End If 

    If DTE.ActiveDocument.Language = "JScript" Then 
     Dim currentJScriptSetting As Boolean = DTE.Properties("TextEditor", "JScript").Item("InsertTabs").Value 
     DTE.Properties("TextEditor", "JScript").Item("InsertTabs").Value = Not currentJScriptSetting 
    End If 

End Sub