用绘制图形的

2021-09-06 来源：黑龙江租房网

Protected Overrides Sub onpaint(ByVal e As intEventArgs)

注释：/////////////绘制任意直线

Dim g As Graphics = aphics

Dim mypen As Pen = New Pen(d, 2)

awLine(mypen, 100, 100, 10, 10)

注释：/////////////绘制矩形(任意直线构成的封闭图形)

年初又是放贷高峰 Dim point1 As PointF = New PointF(100F, 100F)

Dim point2 As PointF = New PointF(200F, 100F)

Dim point3 As PointF = New PointF(200F, 200F)

Dim point4 As PointF = New PointF(100F, 200F)

Dim curvepoints As PointF() = {point1, point2, point3, point4}

awPolygon(New Pen(ue, 2), curvepoints)

注释：////////////文本表示

Dim FFamily As FontFamily = New FontFamily(\"Arial\")

Dim font As Font = New Font(FFamily, \"20\", ld, alic,

xel)

Dim text As String = \"I love you!\"

Dim solidbrush As SolidBrush = New SolidBrush(d)

Dim pr As PointF = New PointF(100, 10)

awString(text, font, solidbrush, pr)

注释：////////////平面绘制

Dim rec As RectangleF = New RectangleF(10, 10, 200, 100)

awPie(mypen, rec, 150, 150)

注释：///////////封闭图形，0.7应该是个圆

awClosedCurve(mypen, curvepoints, 0.7,

ternate)

注释：///////////大家自己试试看吧

awArc(mypen, 300, 300, 200, 200, 100, 100)

awCurve(mypen, curvepoints)

awBezier(mypen, 50, 50, 100, 50, 100, 100, 50, 100)

awBeziers(mypen, curvepoints)

注释：//////////这可是一个圆

Dim rec1 As RectangleF = New RectangleF(10, 10, 100, 100)

awEllipse(mypen, rec1)

注释：//////////这是一个椭圆

Dim rec2 As RectangleF = New RectangleF(10, 10, 200, 100)

awEllipse(mypen, rec2)

End Sub