Создайте новый макрос VS и добавьте этот код:
Sub ToggleEmacsKeyBindings()
Dim emacsSchemeName As String = "Emacs"
Dim defaultSchemeName As String = "(Default)"
Dim props As EnvDTE.Properties = DTE.Properties("Environment", "Keyboard")
Dim propsItem As EnvDTE.Property = props.Item("SchemeName")
Dim previousScheme As String = propsItem.Value
If propsItem.Value = emacsSchemeName Then
propsItem.Value = defaultSchemeName
ElseIf propsItem.Value = defaultSchemeName Then
propsItem.Value = emacsSchemeName
End If
MsgBox("Previous Scheme: " + previousScheme + Environment.NewLine + Environment.NewLine + "New Scheme: " + propsItem.Value)
End Sub
Затем вы можете назначить сочетание клавиш для этого макроса , чтобы быстрее и легче переключаться между Emacs
и 'Default'
схема клавиатуры.
(Примечание. Это работает в VS 2005 и не тестировалось в VS 2008, но должно работать. Это также работает в VS 2010 с установленным расширением эмуляции Emacs ..)