# API绘图函数EXTFloodFill( ),请教小吴我的程式是否漏了什社么宣告?(SOS)

Posted by 小无尾雄 on August 13, 1998 at 17:52:39:

我想利用此函数做话填图的动做
但却无法达成,是否有为设定之处
请大家帮帮忙...TKS!
API 函数宣告如下:
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

程式如下:
(已在Form1载入一图档)
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.FillStyle = 0
Form1.FillColor =vRED
Call ExtFloodFill(Form1.hdc, X, Y, vRED, 1)
End Sub

Follow Ups:

- Re: API绘图函数EXTFloodFill( ),请教小吴我的程式是否漏了什社么宣告?(SOS) ming 21:10:57 8/15/98 (0)