J'essaye de dessiner une image de type "dossier" en utilisant un GraphicsPath.GraphicsPath AddLine crée un chemin inattendu
Ma fonction pour créer le chemin est le suivant:
Public Function FolderRect(ByRef r As Rectangle) As System.Drawing.Drawing2D.GraphicsPath
Dim p As New System.Drawing.Drawing2D.GraphicsPath
Dim iTabWidth As Integer = 30
Dim iTabHeight As Integer = 12
With p
Call p.AddLine(r.Left, r.Top, r.Left + iTabWidth, r.Top)
Call p.AddLine(r.Left + iTabWidth, r.Top, r.Left + iTabWidth, r.Top + iTabHeight)
Call p.AddLine(r.Left + iTabWidth, r.Top + iTabHeight, r.Right, r.Top + iTabHeight)
Call p.AddLine(r.Right, r.Top + iTabHeight, r.Right, r.Bottom)
Call p.AddLine(r.Right, r.Bottom, r.Left, r.Bottom)
Call p.AddLine(r.Left, r.Bottom, r.Left, r.Top)
Call p.CloseFigure()
End With
Return p
End Function
Le code semble bon pour moi, mais le résultat est pas ce que je pensais:
(j'ai créé le version "correcte" en utilisant un éditeur d'image).
Cela peut-il être un bug dans le GraphicsPath?
C'est ce que les PathPoints ressemblent:
J'ai mal lu. Je pensais que vous étiez après le regard incliné/biseauté. Si j'utilise votre code, j'obtiens des onglets carrés. Je ne vois pas comment cela va créer des biseaux – Plutonix
Ne le répare pas, ça a l'air génial. –
Essayez-le en dessinant les dernières lignes à la place de p.CloseFigure() il ne peut pas le fermer comme vous le souhaitez. –