|
|
| 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) |
|