Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Nov 5, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Add Your Icon to the Add-Ins Menu

Say you've written a cool add-in for the VB design environment. It's got its own menu item in the Add-Ins menu, and when you click on it, your add-in launches with a snazzy icon on its titlebar. Wouldn't it be great if you could have that icon displayed next to your add-in's menu item, too? Well, you can. Convert the icon to a 16-by-16 bitmap (because icons won't work in this process) and either add the bitmap to your app's resource file or drop it into an invisible Image control on your main form. This code assumes you're using an Image control. Use this in your Connect class's AddToAddInCommandBar method:
Dim cbMenuCommandBar As Office.CommandBarButton
Dim cbMenu As Object
' See if we can find the Add-Ins menu
Set cbMenu = VBInstance.CommandBars("Add-Ins")
If Not cbMenu Is Nothing Then
	' Add it to the command bar
	Set cbMenuCommandBar = cbMenu.Controls.Add(1)
	' Set the caption
	cbMenuCommandBar.Caption = "My Add-in"
	' Paste an image
	Clipboard.SetData frmAddIn.imgMenuPic.Picture
	Set AddToAddInCommandBar = cbMenuCommandBar
End If
Ben Baird
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date