CreateDC

CreateDC, CreateDCBynum

VB声明

Declare Function CreateDC& Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As DEVMODE)

Declare Function CreateDCBynum& Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Long)

说明

为专门设备创建设备场景

返回值

Long，新设备场景句柄，若出错则为零

参数表

参数

类型及说明

lpDriverName

String，用vbNullString传递null值给该参数，除非：1、用DISPLAY，是获取整个屏幕的设备场景；2、用WINSPOOL，则是访问打印驱动

lpDeviceName

String，所用专门设备的名称。该名由打印管理器分配显示

lpOutput

String，用vbNullString传递null值给该参数

lpInitData

DEVMODE，这个结构保存初始值。用CreateDCBynum传递0（NULL）值则适用默认设置

注解

在绘制之前，先要为该设备场景选定一个位图。不再需要时，该设备场景可用DeleteDC函数删除。删除前，其所有对象应回复初始状态。若有设备初始设置可用DocumentProperties API函数载入DEVMODE结构。使用屏幕设备场景（DISPLAY）时要小心，因为它会干扰其他应用程序的外观

示例：靠近屏幕左上角画一个矩形

dc& = CreateDCBynum("DISPLAY", vbNullString, vbNullString, 0)

dl& = Rectangle(dc&, 5, 5, 100, 100)

Top