基于VBGDI入门之使用Graphics对象绘制线图.docxVIP

GDI+入门之使用 Graphics 对象绘制线图在实际应用 GDI+入门之使用 Graphics 对象绘制线图 在实际应用中，很多图形是由点和线构成的， 的 Graphics 方法，我们可以使用这些重载了的方法组合出丰富的图案来。 类提供了很多画线图的 下面我们就来了解下这些绘线图的方法。 一、DrawLine 方法 该方法绘制一条连接由坐标对指定的两个点的线条，所以我们需要指定这两个点的坐标， 如下所示： DrawLine(pen,x1,y1,x2,y2)或者 DrawLine(pen,Point1, Point2) 下面示例将在 PictureBox 控件表面绘制一条直线： Dim g As Graphics = Me.PictureBox1.CreateGraphics Dim mpen As New Pen(Color.Red) g.DrawLine(mpen, 0, 80, 0, 160) 也可以使用如下代码来实现一样的效果： Dim g As Graphics = Me.PictureBox1.CreateGraphics Dim mpen As New Pen(Color.Red) Dim p1 As Point = New Point(0, 80) Dim p2 As Point = New Point(0, 160) g.DrawLine(mpen, p1, p2) 当然，我们也可以使用 DrawLine 方法画出更加复杂的图形，如下代码所示： Dim g As Graphics = Me.PictureBox1.CreateGraphics Dim mpen As New Pen(Color.Red) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 运行后效果如下图一所示：图一： 运行后效果如下图一所示： 图一：使用 DrawLine 方法画复杂图形 Dim i As Integer For i = 0 To 160 Step 10 g.DrawLine(mpen, 0, 80, i, 0) g.DrawLine(mpen, 0, 80, i, 160) g.DrawLine(mpen, 160, 80, 160 - i, 160) g.DrawLine(mpen, 160, 80, 160 - i, 0) Next End Sub 二、DrawLines 方法 该方法绘制一系列连接一组 Point 结构的线段，它按顺序把每个点都连接起来，构成一段 曲线，DrawLines 的形式如下： DrawLines(Pen, Point()) Point()参数就是一个由一系列的点构成的数组。 如下代码所示，我们要在 PictureBox 控件中绘制一条由四个不同的坐标点构成的曲线： 运行效果如下图二所示：图二 运行效果如下图二所示： 图二：使用 DrawLines 方法画曲线 Dim g As Graphics = Me.PictureBox1.CreateGraphics Dim mpen As New Pen(Color.Red) Dim Points As PointF() = {New PointF(0.0F, 0.0F), New PointF(10.0F, 15.0F), New PointF(20.0F, 20.0F), New PointF(50.0F, 100.0F)} g.DrawLines(mpen, points) End Sub 如图曲线的起点、两个折点、终点就是我们 Pionts 变量中指定的四个点。该方法比较适用 于连接如股票的波动线等由大量的点构成的波动曲线。 三、DrawEllipse 方法 使用 DrawEllipse 方法可以绘制一个由边框定义的椭圆，该边框是由椭圆的左上角坐标， 高度以及宽度决定的。 DrawEllipse 方法的常用形式：DrawEllipse(x,y,width,height) x,y 为椭圆的左上角坐标点，width 为椭圆的矩形宽，height 为椭圆的矩形高 如下代码所示，我们在 PictureBox 控件中绘制一个红色的椭圆： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 运行效果如下图三所示：图三： 运行效果如下图三所示： 图三：使用 DrawEllipse 方法画椭圆 Dim g As Graphics