[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 381
  • Last Modified:

FloodFill Api

is it possible to floodfill an area bounded by more than one colour ?
Please give an example please
0
never
Asked:
never
1 Solution
 
mrmickCommented:
Add the declare and use the procedure below...

Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long

Sub FloodFill(PicObj As PictureBox, FillColor As Long, x As Long, y As Long)
Const FLOODFILLBORDER& = 0  'The fill area is bounded by the
                            'color specified by the FillColor
                            'parameter.

Const FLOODFILLSURFACE& = 1 'The fill area is defined by the
                            'color that is specified by FillColor.
                            'Filling continues outward in all
                            'directions as long as the color is
                            'encountered. This style is useful for
                            'filling areas with multicolored
                            'boundaries.

   Dim RC As Long 'Return Code

   PicObj.FillStyle = vbSolid ' = 0
   PicObj.FillColor = FillColor
   RC = ExtFloodFill(PicObj.hDC, x, y, 0&, FLOODFILLSURFACE)

End Sub

0

Featured Post

Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now