悍途户外鞋:用RECT可不可以画出一个矩形来?能给点代码吗?
来源:百度文库 编辑:高校问答 时间:2024/06/06 13:23:20
''/////////////绘制任意直线
Dim g As Graphics = e.Graphics
Dim mypen As Pen = New Pen(Color.Red, 2)
'g.DrawLine(mypen, 100, 100, 10, 10)
'/////////////绘制矩形(任意直线构成的封闭图形)
Dim point1 As PointF = New PointF(100.0F, 100.0F)
Dim point2 As PointF = New PointF(200.0F, 100.0F)
Dim point3 As PointF = New PointF(200.0F, 250.0F)
Dim point4 As PointF = New PointF(150.0F, 300.0F)
Dim point5 As PointF = New PointF(100.0F, 200.0F)
Dim curvepoints As PointF() = {point1, point2, point3, point4, point5}
Dim b As Brush
g.DrawPolygon(New Pen(Color.Blue, 2), curvepoints)