vb2008請教如何在不規則圖形上填色

Question

請教各位VB界的先進
請問要怎麼樣才能在不規則的圖型上填滿顏色
我目前只有做到將圖片放入Form1中(沒有使用picturebox)
因為圖片中有許多不規則的圖形需要填色
但看了很多書都沒有類似的說明
有上網看到說:以一個點或線為主，然後向四周填色(但我完全不知道怎麼樣寫這段程式)
因此上網請教各位
PS不是不將程式碼放上來，是我根本不知道怎麼寫

Answer 1

可以用這種方法:
試試看囉

    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim p1 As New Point(100, 50)
        Dim p2 As New Point(10, 80)
        Dim p3 As New Point(160, 90)
        Dim p4 As New Point(100, 50)
        Dim ps(3) As Point
        ps(0) = p1
        ps(1) = p2
        ps(2) = p3
        ps(3) = p4
        Dim g As Graphics = Me.CreateGraphics
        g.FillPolygon(Brushes.Black, ps)
    End Sub

或是:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p1 As New Point(100, 50)
        Dim p2 As New Point(10, 80)
        Dim p3 As New Point(160, 90)
        Dim p4 As New Point(100, 50)
        Dim ps(3) As Point
        ps(0) = p1
        ps(1) = p2
        ps(2) = p3
        ps(3) = p4
        Dim g As Graphics
        g = Me.PictureBox1.CreateGraphics()
        g.FillPolygon(Brushes.Black, ps)
    End Sub

這種方法是先宣告一個陣列,包含4個點,再用FillPolygon方法填滿圖形
其中點和顏色可以自行決定
如果是曲線,可以改用FillColsedCurve
注意:如果不在PAINT事件寫程式,視窗最小化了以後圖形就會消失 

---

如果你對這方面沒有興趣,那就不要強迫自己做這方面的事.

Answer 2

參考MSDN

GraphicsPath
http://msdn.microsoft.com/zh-tw/library/system.drawing.drawing2d.graphicspath.addpath.aspx
Graphics.FillPath
http://msdn.microsoft.com/zh-tw/library/system.drawing.graphics.fillpath.aspx

for example

 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        ' Creates a symetrical triangle and adds an inverted triangle.
        ' Create the first path - right side up triangle.
        Dim myArray As Point() = {New Point(30, 30), New Point(60, 60), _
        New Point(0, 60), New Point(30, 30)}
        Dim myPath As New GraphicsPath
        myPath.AddLines(myArray)
        ' Create the second path - inverted triangle.
        Dim myArray2 As Point() = {New Point(30, 30), New Point(0, 0), _
        New Point(60, 0), New Point(30, 30)}
        Dim myPath2 As New GraphicsPath
        myPath2.AddLines(myArray2)
        ' Add the second path to the first path.
        myPath.AddPath(myPath2, True)
        ' Draw the combined path to the screen.
        Dim myPen As New Pen(Color.Black, 2)
        e.Graphics.FillPath(Brushes.Red, myPath)
    End Sub

---

請注意討論區相關規則，良好的討論環境需要大家共同努力、遵守

• 請注意發問的禮貌
• 張貼文章應注意事項及應提供資訊
• 提問時請詳細提供相關資料、平台，嚴禁內容為"一行文"、"注音文"

Answer 3

http://tlcheng.twbbs.org/TLCheng/Net/NetList.aspx?Action=Function&Module=39&Function=284

---

論壇是網友平等互助 保證解答請至 微軟技術支援服務

Answer 4

有關floodfill好像在VB2008中不能使用
不過還是謝謝您!!

Answer 5

謝謝各位先進提供的方式，終於解答我的疑問了!!
再次謝謝你們阿!!

Answer 6

有關floodfill好像在VB2008中不能使用
不過還是謝謝您!!

那篇是給 VBNET 用的~ 你確認那篇不能用嗎？

這篇有講到那個網址的東西，還有說原因跟如何繞路走：
http://tlcheng.spaces.live.com/blog/cns!145419920BFD55A7!4515.entry

---

論壇是網友平等互助 保證解答請至 微軟技術支援服務