Сообщение WM_GETICON

Сообщение WM_GETICON посылается окну для получения дескриптора большого и маленького значка, ассоциированного с заданным окном. Система выводит большой значок в списке при нажатии ALT+TAB, а маленький значок в заголовке формы

Возвращаемое значение

Параметры

wParam

Тип значка. Может принимать следующие значения

ICON_BIG = 1	Большой значок
ICON_SMALL = 0	Маленький значок
ICON_SMALL2	Whistler: Retrieves the small icon provided by the application. If the application does not provide one, the system uses the system-generated icon for that window

lParam

Не используется - установите равным 0

Пример

' Получим дескриптор выбранного значка
' и отобразим его в списке Alt-Tab
' при этом в заголовке формы будет отображаться другой значок
' Установите на форме PictureBox  и присвойте
' свойству Picture любой значок
' Добавьте на форму кнопку Command1

Private nRet         As Long
Private nMainhWnd    As Long

Private Sub Form_Load()
    nRet =  GetWindowLong(Me.hWnd, GWL_HWNDPARENT)
    Do While nRet
       nMainhWnd = nRet
       nRet = GetWindowLong(nMainhWnd, GWL_HWNDPARENT)
    Loop
End Sub

Private Sub Command1_Click()
Dim hIcon As Long
    
' Установим значок для формы
Set Me.Icon = Picture1.Picture
'  Получим дескриптор большого значка
hIcon = SendMessage(Me.hWnd, WM_GETICON, ICON_BIG, ByVal 0)
' Установим другой значок для формы
Set Me.Icon = LoadPicture("d:\addon\icons\Box.ICO")
' Пошлем полученный дескриптор основному окну
SendMessage nMainhWnd, WM_SETICON, ICON_BIG, ByVal hIcon
End Sub

Смотри также

Категория