查人人中国名人网西安酒店宾馆按摩骚扰:用RECT可不可以画出一个矩形来？能给点代码吗？
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/03 06:56:01
''/////////////绘制任意直线
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)