Функция GetObject

Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, _ 
  ByVal nCount As Long, lpObject As Any) As Long
  

GetObjectAPI получает информацию о заданном графическом объекте

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

В успешном случае функция возвращает число байт, загруженных в буфер (если lpvObject - действительный указатель) или необходимое число байт для загрузки в буфер (если lpvObject - NULL). В случае ошибки возвращается 0. Для получения кода ошибки используйте GetLastError

Параметры

hObject

Описатель графического объекта (перо, кисть, шрифт, растр, палитра)

nCount

Количество получаемых байт данных. Как правило, совпадает с размером структуры, определяемой lpObject

lpObject

Структура для данных графического объекта. Это могут быть структуры BITMAP, EXTLOGPEN, LOGPEN, LOGBRUSH, LOGFONT

Пример

' Получим глубину цвета, используемой системой

Dim bm As BITMAP

AutoRedraw = True
' Инициализируем структуру BITMAP
' и  ищем поле, задающее глубину цвета
GetObjectAPI Image, Len(bm), bm
MsgBox "Система использует " & _
        Format$(bm.bmBitsPixel) & _
        " бита на пиксел"

Смотри также

GetBitmapBits

Категория

Устройства