投稿者 cupid  (社会人) 投稿日時 2011/4/8 21:05:07
ポリゴン塗りつぶしごときに、APIを使うなんて方向性を間違えている。
桑原桑原。

VB.Netでは次の様にやるのが常道。
   Dim g As Graphics = Me.CreateGraphics
   nhokan = 0
   Dim arc(nhokan) As Point
   For lp = 0 To nhokan - 1
     arc(lp).X = .....
     arc(lp).Y = .....
   Next
   arc(nhokan).X = arc(0).X
   arc(nhokan).Y = arc(0).Y
' - 中塗り - 
   Dim myBrush As SolidBrush = New SolidBrush(Color.FromArgb(96, 224, 192, 240))
   g.FillPolygon(myBrush, arc)
   myBrush.Dispose()
' - 外周 - 
   Dim pen1 As New Pen(Color.FromArgb(190, 140, 210), 2)
   g.DrawPolygon(pen1, arc)
   pen1.Dispose()
   g.Dispose()

g を定義しないでやる場合は、Paintイベントを使うが、書き方はほぼ同じ。