三角形の内部を塗りつぶすのには？ (ID:75979)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Kenjiさんの補足として。 私はPictureboxをつかって、さらにボタンを作って。 Private Sub Command1_Click() Form1.Picture1.Line (0, 10)-(800, 10), &HFF0000 Form1.Picture1.Line (0, 10)-(400, 500), &HFF0000 Form1.Picture1.Line (400, 500)-(800, 10), &HFF0000 'サンプル PaintRegion Picture1, 0, 10, 400, 500, 800, 10 End Sub hRgn = CreatePolygonRgn(Point(0), nPoint, WINDING) 文の上に Form1.Picture1.FillColor = RGB(255, 0, 0) '塗りつぶし Form1.Picture1.FillStyle = vbFSSolid を２行追加して、テスト完です。