Draw proportional triangle inside control

数学是不是我的专业，因为这是一个多VB的问题，我用C＃标签标记它太数学问题。

我需要帮助绘制自定义用户控件的工作区（客户端矩形）内的三角形，但我不能设置正确的坐标（我无法尝试计算正确的坐标做操作与Me.Left，Me.Right，Me.Top和Me.Bottom ...），这里是有关的代码来绘制矩形:,但反正我不知道我是否使用兽的方法（因为该控件的客户端矩形区域）。

    Dim ptsArray As PointF() =
        {
            New PointF(0, 0),
            New PointF(0, 0),
            New PointF(0, 0),
            New PointF(0, 0)
        }

    Dim gp As New Drawing2D.GraphicsPath(Drawing2D.FillMode.Alternate)
    gp.AddLines(ptsArray)
    gp.CloseFigure()

    e.Graphics.FillPath(Brushes.Red, gp)
    e.Graphics.DrawLines(Pens.Black, ptsArray)

如果这是我的控制：

矩形的结果应该是这样的，因为你会看到矩形尊重控制的比例/尺寸：

Answer 1:

下面是如何画一个三角形的例子。 请注意，您还需要采取笔的宽度成方程。 此外，您还需要绘制path ，而不是线。

pt1:顶级中锋， pt2:底部-右， pt3:底部-左侧。

Using pen As New Pen(Brushes.Red, 10)

    Dim rect As Rectangle = Me.ClientRectangle
    Dim pt1 As New PointF(CSng(rect.Left + (rect.Width / 2)), (rect.Top + pen.Width))
    Dim pt2 As New PointF((rect.Right - pen.Width), (rect.Bottom - pen.Width))
    Dim pt3 As New PointF((rect.Left + pen.Width), (rect.Bottom - pen.Width))

    Using path As New Drawing2D.GraphicsPath(FillMode.Winding)
        path.AddLines({pt1, pt2, pt3, pt1})
        path.CloseFigure()
        e.Graphics.DrawPath(pen, path)
    End Using

End Using

文章来源: Draw proportional triangle inside control