Картинка в кнопке (как в Nero Express)

[Олег Козлов]

В общем, такая ситуация:

В своей программе использую XP-шный стиль (ну, Manifest-файл толкаю в ресурсы и использую модуль:
Option Explicit
Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type

Private Declare Function InitCommonControlsEx _
Lib "comctl32.dll" _
(iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200

Sub Main()
Call InitCommonControlsXP: frm_main.Show
End Sub

Public Function InitCommonControlsXP() As BooleanOn Error Resume Next
Dim iccex As tagInitCommonControlsEx
With iccex
.lngSize = Len(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
InitCommonControlsXP = CBool(Err = 0)
End Function

Так вот, чтобы в кнопку вставить помимо текста еще и картинку, то надо установить свойство Style кнопки в Графический. Но тогда у кнопки пропадает стиль XP. Можно ли это сделать без потери стиля (см. Nero Express - там XP-шные кнопки с картинками).

[GSerg]

Замечания по коду.

• Инициализировать надо ICC_STANDARD_CLASSES, а не ICC_USEREX_CLASSES
• Err.Number при вызове API не изменяется. Поэтому правильно будет

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

  InitCommonControlsXP = InitCommonControlsEx(iccex) <> 0

В остальном - в MSDN чётко написано, что стиль XP для VB6 не поддерживается, всё использование на свой страх и риск. Так что рисуй, к примеру, сам, через OWNERDRAW...

[Олег Козлов]

Ну, а как это сделать?

[hCORe]

http://www.mvps.org/emorcillo/en/code/vb6/graphicalbuttonxp.shtml

[fort]

Хм... Тут вот есть готовый контрол... в нем есть вариант ХР кнопок с картинками...
http://www.vbstreets.ru/VB/Sources/Downloads_GetFile.aspx?id=65831