在vs中获得当前所有快捷键代码

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  =   1
        exists  =   False

         For   Each  owp  In  ow.OutputWindowPanes
             If  owp.Name  =   " Macro Output "   Then
                exists  =   True
                 Exit   For

             End   If
            i  =  i  +   1
         Next

         If  exists  Then
            owp  =  ow.OutputWindowPanes.Item(i)
         Else
            owp  =  ow.OutputWindowPanes.Add( " Macro Output " )
         End   If

        owp.Clear()

         '  Output 1 line per command
         For   Each  cmd  In  DTE.Commands
             Dim  binding  As   Object
             Dim  shortcuts  As   String

            shortcuts  =   ""


             For   Each  binding  In  cmd.Bindings
                 Dim  b  As   String
                 Dim  sArray()  As   String
                b  =  binding
                shortcuts  =  shortcuts  +  b  +   "   "
             Next

            shortcuts  =  shortcuts.Trim()

             If   Not  cmd.Name.Trim().Equals( "" )  Then

                owp.OutputString(cmd.Name  +  vbTab  +  shortcuts  +  vbCrLf)
             Else
                owp.OutputString(cmd.Guid.ToString()  +   " : "   +  cmd.ID.ToString()  +  vbTab  +  shortcuts  +  vbCrLf)
             End   If

         Next     
End Sub