/ Snippet Library - View Code

Visual Basic / VB IDE / VB Add-Ins / Adding Commands to Menus

Snippet details

ID: 474

Viewed: 1047

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

' Example code of to add menu items to VB's popup Menus

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight All' ' ' create all the user interface items On Error GoTo CreateMenuItems_Error ' create the menu items in the code window and code break window With VBInstance.CommandBars("Code Window").Controls Set MenuItem1 = .Add(msoControlButton) MenuItem1.Caption = "&Append To Clipboard" MenuItem1.BeginGroup = True Set MenuHandler1 = VBInstance.Events.CommandBarEvents(MenuItem1) Set MenuItem2 = .Add(msoControlButton) MenuItem2.Caption = "Clipboard &History" Set MenuHandler2 = VBInstance.Events.CommandBarEvents(MenuItem2) End With With VBInstance.CommandBars("Code Window (Break)").Controls Set MenuItem3 = .Add(msoControlButton) MenuItem1.Caption = "&Append To Clipboard" MenuItem1.BeginGroup = True Set MenuHandler3 = VBInstance.Events.CommandBarEvents(MenuItem3) Set MenuItem4 = .Add(msoControlButton) MenuItem4.Caption = "Clipboard &History" Set MenuHandler4 = VBInstance.Events.CommandBarEvents(MenuItem4) End With Exit Sub CreateMenuItems_Error: MsgBox "Unable To create necessary menu items", vbCritical

No Reviews to show