VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
 

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)