''' <summary>
''' 绘制带箭头的直线
''' </summary>
Private Sub DrawArrowLine()
Dim g As Graphics = grpVipLevelSet.CreateGraphics()
Dim pen As Pen = New Pen(Color.Black, 1)
g.DrawLine(pen, 20, 40, 20, 230)
g.DrawLine(pen, 15, 215, 20, 230)
g.DrawLine(pen, 25, 215, 20, 230)
End Sub
绘制带箭头的直线
最新推荐文章于 2024-05-02 11:39:35 发布