推荐订阅源

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 = FalseFor Each owp In ow.OutputWindowPanes
            If owp.Name = "Macro Output" Then
                exists = True
                Exit ForEnd If
            i = i + 1
        NextIf 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 IfNext    
End Sub