VB API第一课GetDC的调用

函数功能:

GetDC 函数用户获得指定窗口的客户区或整个屏幕的设备环境句柄,随后,你可以在 GDI 函数中使用该句柄在设备环境中绘图。

设备环境是一个不公开的数据结构,它的值供 GDI 函数内部使用。

获取设备的句柄调用GetDC,首先申明

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

参数解析:

参数 含义
hWnd 1. 指定的窗口句柄
2. 如果该值是 NULL,获得整个屏幕的设备环境



返回值:

1. 如果函数调用成功,返回值是指定窗口的客户区的设备环境句柄;

2. 如果函数调用失败,返回值是 NULL。

示例

  获取窗体的设备句柄

 

Option Explicit

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
Dim formhdc As Long
formhdc = GetDC(Form1.hwnd)
Print formhdc
End Sub

下节课字符串大小写转换

就这么简单!继续更新中。。。

posted @ 2014-10-04 17:19  Delphi爱好者2014  阅读(2059)  评论(0编辑  收藏  举报