VB中的GDI编程-2 画笔
画笔对象
画笔对象Pen用于在设备环境DC上绘制形状的轮廓线，比如矩形、圆及多边形等，形状的轮廓有线条类型、粗细及颜色三个属性，我们都需要在Pen对象进行体现。在GDI的API函数中，操作画笔时，我们有以下比较常用的函数：
1 Public Declare Function CreatePen Lib "gdi32" Alias "CreatePen" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long 2 Public Declare Function CreatePenIndirect Lib "gdi32" Alias "CreatePenIndirect" (lpLogPen As LOGPEN) As Long 3 Public Declare Function ExtCreatePen Lib "gdi32" Alias "ExtCreatePen" (ByVal dwPenStyle As Long, ByVal dwWidth As Long, lplb As LOGBRUSH, ByVal dwStyleCount As Long, lpStyle As Long) As Long 4 Public Declare Function SelectObject Lib "gdi32" Alias "SelectObject" (ByVal hdc As Long, ByVal hObject As Long) As Long
| 函数 | 功能 |
|---|---|
| CreatePen | 根据提供线条类型、宽度、颜色创建一个画笔对象 |
| CreatePenIndirect | 根据一个逻辑字体结构创建一个画笔 |
| ExtCreatePen | 建立扩展画笔 |
| SelectObject | 把画笔选入设备环境 |
我们通过Create一类的创建画笔函数创建完一个画笔后，必须要将其选入设备环境DC中，使用的函数是SelectObject，此时在设备环境上绘制图形，其轮廓才会依据该画笔显示。当画笔使用完成后，我们需要再调用一次SelectObject，将设备环境DC中原有的画笔恢复，最后还需要使用DeleteObject将其删除。
