精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标题: CreateDC(设备场景)(转载)
发信站: 哈工大紫丁香 (2000年09月07日18:35:33 星期四), 转信

【以下文字转载自 cnTemp 讨论区】
【原文由 catchy 所发表】
发信人: yucheng (无话可说), 信区: VisualBasic
发信站: BBS 水木清华站 (Sun Apr 2 23:50:26 2000) WWW-POST

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函
数删除。删除前，其所有对象应回复初始状态。若有设备初始设置可用DocumentProperti
es API函数载入DEVMODE结构。使用屏幕设备场景（DISPLAY）时要小心，因为它会干扰其
他应用程序的外观

示例：靠近屏幕左上角画一个矩形
dc& = CreateDCBynum("DISPLAY", vbNullString, vbNullString, 0)
dl& = Rectangle(dc&, 5, 5, 100, 100)

--

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: casi.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.247.254]

VB 版 (精华区)