ms-help://MS.MSDNQTR.v90.en/dv_vssettings/html/bbfc1243-fa27-45df-9c4b-6bca181132d6.htm
Sub GetAllCommands()
Dim getCommandsWithSCOnly As Boolean
Dim cmd As Command
Dim cmdCollection As Commands
Dim ow As OutputWindow = DTE.Windows.Item(Constants.vsWindowKindOutput).Object
Dim owp As OutputWindowPane
Dim exists As Boolean
Dim i As Integer
i
= 1owp.Clear()
' Output 1 line per commandshortcuts
= ""For Each binding In cmd.Bindingsshortcuts
= shortcuts.Trim()If Not cmd.Name.Trim().Equals("") Thenowp.OutputString(cmd.Name
+ vbTab + shortcuts + vbCrLf)此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。