Declare Function DrawState Lib "user32" Alias "DrawStateA" ( _ ByVal hDC As Long, ByVal hBrush As Long, _ ByVal lpDrawStateProc As Long, ByVal lParam As Long, _ ByVal wParam As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal flags As Long) As Long
DrawState выводит картинку с использованием различных визуальных эффектов, например в виде состояния недоступной картинки.
DST_BITMAP = &H4 | Растровое изображение. Дескриптор растрового изображения передается в параметр lParam |
DST_COMPLEX | Изображение определяется приложением при помощи функции обратного вызова |
DST_ICON | Изображение является значком. Дескриптор значка передается в параметр lParam |
DST_PREFIXTEXT | Изображением является текст, содержащий акселератор (&) |
DST_TEXT | Изображением является текст |
' Добавим на форму Picturebox с картинкой и кнопку
Private Const DST_BITMAP = &H4
Private Const DSS_NORMAL = &H0
Private Const DSS_UNION = &H10
Private Const DSS_DISABLED = &H20
Private Const DSS_MONO = &H80
Picture1.Cls
DrawState Picture1.hDC, 0, 0, Picture1.Picture, _
0, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _
DST_BITMAP Or DSS_UNION