GraphicsPath AddLine創建意外路徑

Question

我正在嘗試使用GraphicsPath繪製「文件夾」，如圖像。

我的函數來創建的路徑是：

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 

代碼看起來我的權利，但結果不是我所期待的：

（我創建的使用圖像編輯器的「正確」版本）。

這可能是GraphicsPath中的一個錯誤嗎？

這是PathPoints樣子：

這是 「R」 的模樣：

Answer 1

圖形路徑幾乎可以肯定是正確的。您可以通過查看圖形路徑的PathPoints屬性來驗證這一點。

繪製圖形路徑時可能會出現一些舍入誤差。嘗試使路徑與目標位圖的大小相同。