Visual Studio: Jeder Klick zwischen Tabs und Leerzeichen Einrückung wechseln?

Question

Ich bin Mitglied in verschiedenen Teams und (natürlich;) einige Teams bevorzugen Tabs über Leerzeichen und umgekehrt.

Gibt es eine benutzerfreundlichere Lösung als das Laden des Benutzerprofils über Menü-> Tools ... welches 10 Klicks lang ist?

Ich schaute auf devenv.exe Befehlszeilenparameter, wenn es für das Laden bestimmter Benutzerprofilen gibt es zwei separate * .lnk Launcher von Visual Studio, aber es gibt keinen solchen Parameter.

Dann habe ich versucht, Makro aufzunehmen, aber VS ist in der Lage, nur den Befehl Tools.ImportandExportSettings aufzuzeichnen und kann nicht alle Schritte des folgenden Assistenten aufzeichnen.

Thx für Anregungen, Petr

Answer 1

Verwenden InsTabsOff und InsTabsOn Befehle von Productivity Power Tools Erweiterung.

Answer 2

Es ist ein Makro in diesen blog entry von James Alexander, um schnell zwischen Tabs und Leerzeichen innerhalb von Visual Studio zu wechseln. Fügen Sie dann einfach einen Symbolleistenbefehl hinzu, der dem Makro zugeordnet ist, und Sie haben Ihre Ein-Klick-Lösung.

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