I implemented it:
Private Sub Main() Const BAR_NAME As String = "MenuBar" Const CTL_NAME = "Foo" ChangeCommandCaption(BAR_NAME, CTL_NAME, "Bar") End Sub Private Sub ChangeCommandCaption(ByVal cmdBarName As String, ByVal ctlName As String, ByVal caption As String) Dim bars As Microsoft.VisualStudio.CommandBars.CommandBars bars = DirectCast(DTE.CommandBars, Microsoft.VisualStudio.CommandBars.CommandBars) If bars Is DBNull.Value Then Exit Sub Dim menuBar As CommandBar = bars.Item(cmdBarName) If menuBar Is DBNull.Value Then Exit Sub Dim cmdBarCtl As CommandBarControl Try cmdBarCtl = menuBar.Controls.Item(ctlName) If cmdBarCtl Is DBNull.Value Then Exit Sub Catch ex As Exception Exit Sub End Try cmdBarCtl.Caption = caption End Sub
AngryHacker Oct 28 2018-11-11T00: 00Z
source share