Solved

Fill the area outside a Polygon (opposite of Graphics.FillPolygon)

Posted on 2009-03-31
4
869 Views
Last Modified: 2013-12-17
The code snippet below will draw a polygon and then fill the area inside of that polygon.  I would like to draw a polygon (an array of points) and fill the area OUTSIDE of that polygon with a color - basically blank the area outside of a polygon with a color

Thanks
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _

      System.Windows.Forms.PaintEventArgs) Handles _

      MyBase.Paint

    Dim polypoints() As Point
 

    ' Draw a polygon.

    polypoints = New Point() { _

        New Point(20, 110), _

        New Point(90, 150), _

        New Point(90, 100), _

        New Point(20, 150) _

    }

    e.Graphics.FillPolygon(Brushes.Red, polypoints)

    e.Graphics.DrawPolygon(Pens.Green, polypoints)

  End Sub

Open in new window

0
Comment
Question by:tedunni
  • 2
4 Comments
 
LVL 14

Expert Comment

by:jjardine
ID: 24033807
Could you not just draw a box or rectangle over the entire screen and fill it with your color, then draw the polygon and fill it as white?
0
 

Author Comment

by:tedunni
ID: 24033891
What I receive first is a bitmap image with colors and shapes already on it.  I also receive the polygon as an input.  I then take that bitmap and then draw a polygon on it.  At that point I want to color the area outside of the polygon.  

I don't believe I can do what you are suggesting jjardine because I would lose the image data that is inside the polygon.
0
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 250 total points
ID: 24034376
Here is a simple example...
Imports System.Drawing.Drawing2D

Public Class Form1
 

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        Dim polypoints() As Point
 

        ' Draw a polygon.

        polypoints = New Point() { _

            New Point(25, 100), _

            New Point(275, 350), _

            New Point(275, 100), _

            New Point(25, 350) _

        }
 

        Dim gp As New GraphicsPath

        gp.AddPolygon(polypoints)

        Dim rgn As New Region(gp)

        e.Graphics.ExcludeClip(rgn)

        e.Graphics.FillRectangle(Brushes.Red, Me.ClientRectangle)

    End Sub
 

End Class

Open in new window

FillOutsidePolygon.jpg
0
 

Author Closing Comment

by:tedunni
ID: 31565067
Thanks, another perfect solution.
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

Recently while returning home from work my wife (another .NET developer) was murmuring something. On further poking she said that she has been assigned a task where she has to serialize and deserialize objects and she is afraid of serialization. Wha…
Welcome my friends to the second instalment and follow-up to our Minify and Concatenate Your Scripts and Stylesheets (http://www.experts-exchange.com/Programming/Languages/.NET/ASP.NET/A_4334-Minify-and-Concatenate-Your-Scripts-and-Stylesheets.html)…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now