How do I use a custom bitmap for a toolbar button? (C++, Win32 Api)?

Question

I am using C++ and the Windows Api. How do I load and set the image for a toolbar button.

Answer 1

SUMMARY
This article demonstrates how to use Command bars and WIN32 application programming interfaces (APIs) to add a transparent icon to a custom menu or toolbar command.
MORE INFORMATION
The following Visual Basic sample demonstrates how to convert an icon to a bitmap using the current user's system color settings for the background of the icon, and then add the bitmap to a custom menu command or toolbar button: Public Declare Function DrawIconEx Lib "user32"
(ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal
hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long,
ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long,
ByVal diFlags As Long) As Long
Public Declare Function CreateIC Lib "gdi32" Alias "CreateICA"
(ByVal lpDriverName As String, ByVal lpDeviceName As String,
ByVal lpOutput As String, ByVal lpInitData As String) As Long
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

'The call to the below function adds an item to the Tools menu using a
'bitmap in a resource file with the resource ID of 102. This ID number
'should be changed to match the ID of your bitmap if you are using
'resource file.
'All items added to resource files have a resource identifier number.

'You can replace the resource file with a bitmap from any source.

AddIconToCommandBar "Tools", 102

Public Sub AddIconToCommandBar(BarName As String, IconId As Integer)
Dim cbMenu As CommandBar
Dim cbButton As CommandBarButton
Dim oBMP As StdPicture
Dim oICO As StdPicture
' Set to the commandbar you want to add to:
Set cbMenu = Application.CommandBars(BarName)
If Not cbMenu Is Nothing Then
Set cbButton = cbMenu.Controls.Add(msoControlButton)
If Not cbButton Is Nothing Then
' Get the existing face.
cbButton.CopyFace
Set oBMP = Clipboard.GetData
' Load the icon from the resource file.
Set oICO = LoadResPicture(IconId, vbResIcon)
' Copy the icon over the existing face to preserve the background color.

CopyIconToBmp oICO, oBMP
Clipboard.Clear
Clipboard.SetData oBMP, ccCFBitmap
Clipboard.SetData oBMP, ccCFDIB
' Draw the icon on the menu.
cbButton.PasteFace
'cbButton.BeginGroup = True
cbButton.Caption = MENUCAPTION

End If ' cbButton
End If ' cbMenu
End Sub

Private Sub CopyIconToBmp(oIcon As StdPicture, oBMP As StdPicture)
Dim Rc As Long
Dim hdc As Long
Dim hdcMem As Long
Dim hBmOld As Long
hdc = CreateIC("DISPLAY", vbNullChar, vbNullChar, vbNullChar)
hdcMem = CreateCompatibleDC(hdc)
hBmOld = SelectObject(hdcMem, oBMP.Handle)
Rc = DrawIconEx(hdcMem, 0, 0, oIcon.Handle, 16, 16, 0, 0, DI_NORMAL)
SelectObject hdcMem, hBmOld
DeleteDC hdc
DeleteDC hdcMem
End Sub




APPLIES TO
• Microsoft Outlook 97 Standard Edition
• Microsoft Outlook 98 Standard Edition
• Microsoft Outlook 2000 Standard Edition
• Microsoft Visual Basic 6.0 Professional Edition
• Microsoft Visual Basic 6.0 Enterprise Edition
http://www.codeguru.com/cpp/w-p/win32/
http://www.codeguru.com/Cpp/controls/buttonctrl/bitmapbuttons/article.php/c5181/