vb图形图象处理0104.ppt

* * ExtCreatePen函数 用于建立一个扩展画笔 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 dwPenStyle 用于指定画笔的类型、样式、笔尖及连接属性（教材：P144） dwWidth 指定画笔的宽度 调用成功返回指向新画笔的名柄，否则返回0值； 几何画笔的宽度总是用实际坐标单位表示，装饰画笔的宽度总是1，只有几何画笔才需要设置笔尖形状和连接方式。 * * 选择一个对象放到指定的设备环境中，用新对象替换先前的相同类型的对象。 Public Declare Function SelectObject Lib gdi32 Alias SelectObject (ByVal hdc As Long, ByVal hObject As Long) As Long Hdc 设备环境的句柄 hObject 被选择的对象的句柄，该对象可以是位图、画笔、字体、笔或者区域，这些对象必须由指定的函数建立。 SelectObject函数 * * 4.2 删除画笔 建立画笔之后，如果要使用，需用SelectObject将其选入指定的设备环境。同一时刻，一个设备环境中每种类型的对象只能有一个。对象选入DC时， SelectObject返回值为设备环境中该类型原有的对象。 在删除DC前，一定要恢复初始的GDI对象。 可以用DeleteObject实现画笔的删除，该函数也可以删除其它的GDI对象，保存和恢复设备环境的操作由SaveDC和RestoreDC来实现 * * DeleteObject函数 用于删除一个对象，释放所有与该对象有关的系统资源，在对象被删除之后，指定的句柄随之失效。要删除的对象包括逻辑笔、画笔、字体、位图、区域或者调色板。 Public Declare Function DeleteObject Lib gdi32 Alias DeleteObject (ByVal hObject As Long) As Long 如果函数调用成功，返回非0值；如果指定的句柄无效或者已经被选入设备环境，则返回0值，如果一个对象当前被选入一个设备环境，再不需要删除该对象。当一个调色板画笔被删除时，与该画笔相关的位图不会被删除，该图必须单独删除。 * * SaveDC函数 将指定的设备环境状态保存到Windows设备环境堆栈，要保存的内容包括DC的映射模式、窗口和视口缩放、剪截区、所选对象列表等。 Public Declare Function SaveDC Lib gdi32 Alias SaveDC (ByVal hdc As Long) As Long 调用成功，返回标识设备环境的Long函数，否则返回0值； 说明：将指定的DC保存到内部堆栈，可多次保存设备环境状态，所保存的设备环境仅受内存大小的限制。 * * RestoreDC函数 用于从设备环境堆栈中恢复一个用SaveDC保存的设备环境。 Public Declare Function RestoreDC Lib gdi32 Alias RestoreDC (ByVal hdc As Long, ByVal nSavedDC As Long) As Long Hdc要恢复的设备环境的句柄 nSavedDC是要恢复设备环境的ID号，由SaveDC返回 函数调用成功，返回非0值，否则返回0值。 说明：堆栈可以含有多个设备环境的状态信息，如果要恢复的设备环境不在堆栈的顶部，则RestoreDC函数将删除堆栈顶部和指定设备环境之间的状态信息。 * * 4.3示例程序 使用画笔在窗体上画一个矩形。 CreatePen SelectObject Rectangle DeleteObject Private Declare Function Rectangle Lib gdi32 Alias Rectangle (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long 注意： Rectangle不使用也不改变当前位置。 示例 * * 5 画刷 图样刷：像素区包含一个由用户指定的位图 实体刷：整个区域由单一固定颜色 阴影刷：指定一个位图，以便在区域填充时产生一个交叉阴影线图样。 画刷颜