Функция CreateDC

Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" ( _
    ByVal lpszDriver As String, _
    ByVal lpszDevice As String, _
    ByVal lpszOutput As Long, _
    lpInitData As Long) As Long

CreateDC создает контекст устройства для заданного устройства, используя его имя. После окончании работы с контекстом устройства удалите его функцией DeleteDC.

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

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

Параметры

lpszDriver

Обычно используется пустая строка. Также допустимо использование "DISPLAY" для получения контекста устройства экрана. Можно использовать "WINSPOOL" для получения контекста устройства принтера

lpszDevice

Имя устройства. Назначается и выводится диспетчером печати

lpszOutput

Зарезервировано. Установите равным 0

lpInitData

Структура DEVMODE, содержащая параметры для инициализации устройства. Для стандартной инициализации используйте 0

Пример

' Выводим прямоугольник в верхнем левом углу экрана
Dim retval As Long
Dim dl As Long

retval = CreateDC("DISPLAY", "", 0, 0)
dl = Rectangle(retval, 5, 5, 100, 100)
DeleteDC retval

Смотри также

DeleteDC

Категория

Устройства