dessiner un polygoneRésolu

Question

bonjour,

je cherche &#224; dessiner un polygone, pour cela, j'ai cr&#233;er cette
proc&#233;dure qui marche bien tant que le point de d&#233;part est (0,0) mais si
je veux le placer ailleurs, le point (0,0) est rajouter au tableau de
points servant &#224; dessiner la figure. Si vous avez une id&#233;e, merci.



Sub dessine_baseB(ByVal g As 
Graphics, ByVal fond As Color, ByVal x0 As Integer, ByVal y0 As Integer, ByVal cote As Integer) 

        Dim br As 
New SolidBrush(fond) 



        Dim tab(6) As 
Point 

        tab(0) = New 
Point(x0, y0) 

        tab(1) = 
New Point(x0 + cote, y0) 

        tab(2) = New Point(x0 + cote, y0 
+ cote) 

        tab(3) = New 
Point(x0 + 2 * (cote / 3), y0 + cote) 

        tab(4) = New Point(x0 + 2 * (cote / 3), y0 
+ 2 * (cote / 3)) 

        tab(5) = 
New Point(x0, y0 + (cote / 3)) 



        g.FillPolygon(br, tab) 

        br.Dispose() 



End 
Sub 








dans le load :

Dim bitmap As New 
System.Drawing.Bitmap(90, 200) 

      
  

Dim g As Graphics = 
Graphics.FromImage(bitmap) 



dessine_baseB(g, System.Drawing.Color.SpringGreen, 0, 0, 40) : pas de 
pb 

dessine_baseB(g, 
System.Drawing.Color.SpringGreen, 30, 30, 40) : ins&#232;re le point (0;0) comme origine du polygone

jesusonline · Accepted Answer

je pense que tu auras pus de succ&#233;s sur vbfrance.com 

bon courage :p


<HR>
Cyril - MCP ASP.net
Webmaster de : Hoshimi.CodeS-SourceS.fr

sev622 · Answer

ok. merci

Dessiner un polygone

2 réponses

Votre réponse

Discussions similaires