1、在使用这个API函数之前应该先创建一个画笔，比如下面的brushs :=======createbrush indirect VB声明Declare函数CreatePatternBrush Lib" GDI32 "别名" CreatePatternBrush "(byval hbit map As long)表示用指定画笔图案的位图创建画笔，返回值为Long。

2、如果执行成功，将返回新画笔的句柄。

(资料图片)

3、否则，返回零参数表hBitmap Long的参数类型和描述，指向位图的句柄。

4、如果指定了单色位图，文本和背景颜色将在图案中标注。

5、如果不再需要，请使用DeleteObject函数删除画笔。

6、还可以参考CreateBrush函数，其参数对应于LOGBRUSH结构的字段========CreateDiBPatternbrush，CreateDIBPatternBrushPt VB声明声明函数CreateDiBPatternBrushLib " GDI 32 "(byval hpackeddib as Long，byvalsage as long)声明函数create dibatternbrushpt lib " GDI 32 "(lppackeddib as any，Byvalsage as Long)显示用与设备无关的位图创建画笔，从而指定画笔样式(图案)并返回如果执行成功，将返回一个指向画笔的句柄。

7、零故障参数表的参数类型及说明hpackeddib、lppackedddiblong和hPackedDIB是指向一个内存块的全局内存句柄。

8、该内存块包含一个BITMAPINFO结构，后跟一个与设备无关的位图。

9、LpPackedDIB是具有相同配置的内存块的地址。

10、如果指定了单色DIB，将忽略DIB颜色，而使用文本和背景色wUsage Long，以下常量之一：DIB_PAL_COLORS DIB颜色表，包含当前逻辑调色板的索引DIB_RGB_COLORS DIB颜色表，包含32位RGB颜色值批注。

11、编译win32应用程序时，最好使用createdibatternbrush PT======CreateHatchbrush VB声明函数CreateHatchbrush lib" GDI32 "别名" CreateHatchbrush" (byval nindex为lo Ng，ByVal crColor为Long)只要Long表示创建带阴影图案的画笔(阴影图案见注释)返回值Long。

12、如果执行成功，将返回新画笔的句柄。

13、否则，它返回零。

14、注意，不需要的时候，用DeleteObject清除笔刷参数表nIndex Long的参数类型和描述，指定一个阴影类型crColor Long如下图所示，指定笔刷的RGB前景色标注//(图片我不能粘贴，可以自行搜索以下，共有六个常量， 下面的： hs _ horizontal hs _ vertical hs _ cross hs _ f diagonal hs _ b diagonal hs _ diag cross)=====CreatePatternBrush VB声明Declare函数CreatePatternBrush H" gdi32 "别名" create pattern brush "(byval hbit map as Long)只要表示用指定画笔图案的位图创建画笔， 如果执行成功，将返回新画笔的句柄。

15、否则，返回零参数表hBitmap Long的参数类型和描述，指向位图的句柄。

16、如果指定了单色位图，文本和背景颜色将在图案中标注。

17、一旦不再需要画笔，记得用DeleteObject函数删除它。

18、不要在这个函数中使用创建为DIB分区的位图======然后选择画笔：===。

本文到此结束，希望对大家有所帮助。

关键词：