Как поместить картинку на кнопку средствами WinAPI

[XairOn]

Здравствуйте господа, подскажите пожалуйста, как можно поместить картинку на кнопку вместо текста
я пробовал вот так:

Код: Выделить всё

Option Explicit

Private Const IMAGE_BITMAP As Long = 0
Private Const BM_SETIMAGE As Long = &HF7&
Private Const LR_LOADFROMFILE As Long = &H10

Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As Long) As Long

Dim img As Long

Private Sub Form_Load()
    img = LoadImage(App.hInstance, "c:\kartinka.bmp", IMAGE_BITMAP, 42, 45, LR_LOADFROMFILE)
    SendMessage Command1.hwnd, BM_SETIMAGE, IMAGE_BITMAP, img
End Sub


этот код почему-то у меня не работает. Помогите пожалуйста разобраться в чем тут дело.

[GSerg]

Почему не устраивает помещать картинку на кнопку средствами VB?

[XairOn]

2 GSerg Потому что я пишу интерфейс на чистом API (и честно говоря вообще на Си) так что воспользоваться стандартными средствами не представляется возможным.

[AlexBlack]

Лови событие WM_PAINT
Отрисовывай кнопку через олдвинпроц или через WM_PRINT
Потом рисуешь свою картинку через GDI

[XairOn]

2 AlexBlack Нет уж спасибо, всё гораздо проще, просто при создании кнопки нужно указать стиль BS_BITMAP Только вот тут другая проблема возникает, кнопка теряет стиль оформления XP и становится плоской, как-то это не красиво смотрится, когда весь интерфейс программы имеет стиль XP и среди этого всего, какая-то плоская, серая кнопка (