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

Posted by ming on August 15, 1998 at 21:10:57:

In Reply to: 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
加上 Call Form1.Point(X,Y)在使用ExtFloodFill之前
请看松岗出版Visual Basic入门与应用(赖阿福)的11章

Follow Ups: