Question

我在VBA中有这个代码（以简化版本显示）：

Sub TheMenu()
    Dim Obj As CommandBar
    Set Obj = Application.CommandBars.Add(Position:=msoBarPopup, MenuBar:=False, Temporary:=True)
    Obj.Controls.Add(Type:=msoControlButton).Caption = "Button1"
    Obj.Controls.Add(Type:=msoControlButton).Caption = "Button2"
    Obj.ShowPopup
End Sub

我希望在VB.NET中创建一些等价的东西（意思是“看起来相似但有类似用途”，我不需要更多）。你知道这样做的吗？

我在VS2015中使用，这是一个使用.NET framework 4.6.1的“Windows Forms应用程序”项目。

Answer 1

您可以按照以下示例进行操作：

Public Class Connect
   Implements Extensibility.IDTExtensibility2
   Implements IDTCommandTarget

   Private Const MY_COMMAND_NAME As String = "MyCommand"

   Private applicationObject As EnvDTE.DTE
   Private addInInstance As EnvDTE.AddIn
   Private myStandardCommandBarControl As CommandBarControl
   Private myToolsCommandBarControl As CommandBarControl
   Private myCodeWindowCommandBarControl As CommandBarControl
   Private myTemporaryToolbar As CommandBar
   Private myTemporaryCommandBarPopup As CommandBarPopup

   Public Sub OnConnection(ByVal application As Object, ByVal connectMode _
      As Extensibility.ext_ConnectMode, ByVal addInInst As Object, _
      ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnConnection

      Dim myCommand As Command
      Dim standardCommandBar As CommandBar
      Dim menuCommandBar As CommandBar
      Dim toolsCommandBar As CommandBar
      Dim codeCommandBar As CommandBar
      Dim toolsCommandBarControl As CommandBarControl
      Dim myCommandBarButton As CommandBarButton
      Dim position As Integer

      Try

         applicationObject = CType(application, EnvDTE.DTE)
         addInInstance = CType(addInInst, EnvDTE.AddIn)

         Select Case connectMode

            Case ext_ConnectMode.ext_cm_AfterStartup, ext_ConnectMode.ext_cm_Startup

               ' Try to retrieve the command, just in case it was already created
               Try
                  myCommand = applicationObject.Commands.Item(addInInstance.ProgID & "." & "MyCommand")
               Catch
               End Try

               ' Add the command if it does not exists
               If myCommand Is Nothing Then

                  myCommand = applicationObject.Commands.AddNamedCommand(addInInstance, _
                     "MyCommand", "MyCommand", "Executes the command for MyAddin", True, 59, Nothing, _
                     vsCommandStatus.vsCommandStatusSupported Or vsCommandStatus.vsCommandStatusEnabled)

               End If

               ' Retrieve some built-in command bars
               standardCommandBar = applicationObject.CommandBars.Item("Standard")
               menuCommandBar = applicationObject.CommandBars.Item("MenuBar")
               toolsCommandBar = applicationObject.CommandBars.Item("Tools")
               codeCommandBar = applicationObject.CommandBars.Item("Code Window")

               ' Add a button to the built-in "Standard" toolbar
               myStandardCommandBarControl = myCommand.AddControl(standardCommandBar, _
                  standardCommandBar.Controls.Count + 1)

               myStandardCommandBarControl.Caption = MY_COMMAND_NAME

               ' Change the button style, which must be done casting the control to a button
               myCommandBarButton = DirectCast(myStandardCommandBarControl, CommandBarButton)
               myCommandBarButton.Style = MsoButtonStyle.msoButtonIcon

               ' Add a button to the built-in "Tools" menu
               myToolsCommandBarControl = myCommand.AddControl(toolsCommandBar, toolsCommandBar.Controls.Count + 1)
               myToolsCommandBarControl.Caption = MY_COMMAND_NAME

               ' Add a button to the built-in "Code Window" context menu
               myCodeWindowCommandBarControl = myCommand.AddControl(codeCommandBar, codeCommandBar.Controls.Count + 1)
               myCodeWindowCommandBarControl.Caption = MY_COMMAND_NAME

               ' Add a new toolbar with a button on it
               myTemporaryToolbar = applicationObject.CommandBars.Add("MyTemporaryToolbar", _
                  MsoBarPosition.msoBarTop, System.Type.Missing, True)

               ' Change the button style, which must be done casting the control to a button
               myCommandBarButton = DirectCast(myCommand.AddControl(myTemporaryToolbar), CommandBarButton)
               myCommandBarButton.Style = MsoButtonStyle.msoButtonIcon

               ' Make visible the toolbar
               myTemporaryToolbar.Visible = True

               ' Calculate the position of a new command bar popup by the "Tools" menu
               toolsCommandBarControl = DirectCast(toolsCommandBar.Parent, CommandBarControl)
               position = toolsCommandBarControl.Index + 1

               ' Add a new command bar popup with a button on it
               myTemporaryCommandBarPopup = DirectCast(menuCommandBar.Controls.Add( _
                  MsoControlType.msoControlPopup, System.Type.Missing, System.Type.Missing, _
                  position, True), CommandBarPopup)

               myTemporaryCommandBarPopup.CommandBar.Name = "MyTemporaryCommandBarPopup"
               myTemporaryCommandBarPopup.Caption = "My menu"
               myCommand.AddControl(myTemporaryCommandBarPopup.CommandBar)
               myTemporaryCommandBarPopup.Visible = True

         End Select

      Catch e As System.Exception
         System.Windows.Forms.MessageBox.Show(e.ToString)
      End Try

   End Sub

   Public Sub OnDisconnection(ByVal RemoveMode As Extensibility.ext_DisconnectMode, _
      ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnDisconnection

      Try

         If Not (myStandardCommandBarControl Is Nothing) Then
            myStandardCommandBarControl.Delete()
         End If

         If Not (myCodeWindowCommandBarControl Is Nothing) Then
            myCodeWindowCommandBarControl.Delete()
         End If

         If Not (myToolsCommandBarControl Is Nothing) Then
            myToolsCommandBarControl.Delete()
         End If

         If Not (myTemporaryToolbar Is Nothing) Then
            myTemporaryToolbar.Delete()
         End If

         If Not (myTemporaryCommandBarPopup Is Nothing) Then
            myTemporaryCommandBarPopup.Delete()
         End If

      Catch e As System.Exception
         System.Windows.Forms.MessageBox.Show(e.ToString)
      End Try

   End Sub

   Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnBeginShutdown
   End Sub

   Public Sub OnAddInsUpdate(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnAddInsUpdate
   End Sub

   Public Sub OnStartupComplete(ByRef custom As System.Array) Implements _
      Extensibility.IDTExtensibility2.OnStartupComplete
   End Sub

   Public Sub Exec(ByVal cmdName As String, ByVal executeOption As vsCommandExecOption, _
      ByRef varIn As Object, ByRef varOut As Object, ByRef handled As Boolean) Implements IDTCommandTarget.Exec

      handled = False

      If (executeOption = vsCommandExecOption.vsCommandExecOptionDoDefault) Then

         If cmdName = addInInstance.ProgID & "." & MY_COMMAND_NAME Then

            handled = True
            System.Windows.Forms.MessageBox.Show("Command executed.")

         End If

      End If

   End Sub

   Public Sub QueryStatus(ByVal cmdName As String, ByVal neededText As vsCommandStatusTextWanted, _
      ByRef statusOption As vsCommandStatus, ByRef commandText As Object) Implements IDTCommandTarget.QueryStatus

      If neededText = EnvDTE.vsCommandStatusTextWanted.vsCommandStatusTextWantedNone Then

         If cmdName = addInInstance.ProgID & "." & MY_COMMAND_NAME Then
            statusOption = CType(vsCommandStatus.vsCommandStatusEnabled + _
               vsCommandStatus.vsCommandStatusSupported, vsCommandStatus)
         Else
            statusOption = vsCommandStatus.vsCommandStatusUnsupported
         End If

      End If

   End Sub

End Class

VB.NET相当于CommandBars

1 个答案: