Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
作ったプログラムがうまくいきません、アドバイスお願いします。
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=10147#CommentId20330
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
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イベントを使うが、書き方はほぼ同じ。