在VB中如何对封闭图形着色？

Question

试试这个api
Public Declare Function ExtFloodFill Lib "gdi32" Alias "ExtFloodFill" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long
参数含义如下：
hdc -- long 指向设备场景的句柄
X,Y -- long 开始填充的一个点，用逻辑坐标
crColor --long 要使用的边界颜色
wFillType -- long 欲执行填充的类型
          FLOODFILLBORDER:  X,Y不能有颜色crColor,且必需在剪切区内
          FLOODFILLSURFACE: 指定点向外填充（边框采用多种颜色采用这种）
另： 该函数只队光栅设备有效。
    也可参考  FLOODFILL

Answer 1

我来告诉你FLOODFILL函数：
Public Declare Function FloodFill Lib "gdi32" Alias "FloodFill" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
HDC：用来描绘图形的DC
X，Y：坐标位置
CRCOLOR：封闭区域的边框颜色