《[VB] chp11 绘图》由会员分享，可在线阅读，更多相关《[VB] chp11 绘图（52页珍藏版）》请在金锄头文库上搜索。
1、第十一章 绘 图 11-51第十一章 绘 图11-1 绘图基本观念在VB2005中绘图包含下列几个基本程序：1.建立或取得Graphics对象 ( 绘图对象 )，一般就是俗称画布。2.定义画笔，提供绘图指令在绘图对象 ( 画布 ) 上绘画。3.利用Graphics对象的DrawLine、DrawString、DrawImage等方法绘制各种的图形。4.释放Graphics对象所占用的系统资源。11-2 绘图基本指令11-2-1 绘图对象的建立 建立绘图对象 (CreateGraphics ) Graphics使用CreateGraphics。语法Dim 绘图对象 As Graphics = 控
2、制组件. CreateGraphics 目的利用Graphics对象所绘制的图形显示在控制组件上。例1如设绘图对象g，其控制组件为窗体。Dim g As Graphics = Me.CreateGraphics例2如设绘图对象g1，其控制组件为图片方块 (PictureBox1)。Dim g1 As Graphics = PictureBox1.CreateGraphics11-2-2 画 笔画笔 (Pen ) 如绘画使用的画笔，提供绘图指令在绘图对象上绘画，画笔有二个特性：一为颜色，二为粗细。语法Dim 画笔变数 As New System.Drawing.Pen(Color.颜色, 粗细)
3、目的设定画笔的颜色与粗细。例如设画笔变量p1，其颜色为蓝色与粗细为2。Dim p1 As New System.Drawing.Pen(Color.Blue, 2)11-2-3 画 线DrawLine是在绘图对象上绘出一直线，画线 (DrawLine) 就必须用到画笔，并且赋予起始点坐标及终点坐标。语法绘图对象.DrawLine ( 画笔变数, x1, y1, x2, y2)目的依设定画笔的颜色与粗细，在绘图对象上绘出一直线。说明1.直线颜色与粗细由画笔决定。2.x1,y1是直线的起始点坐标。3.x2,y2是直线的终点坐标。例如在窗体上 (50,50) 至 (50,250) 划一直线，画笔颜色
4、为蓝色与粗细为2。Dim g As Graphics = Me.CreateGraphicsDim p1 As New System.Drawing.Pen(Color.Blue, 2)g.DrawLine(p1, 50, 50, 50, 250)说明1.定义画布绘图对象为窗体。2.定义画笔的颜色与粗细。3.利用画笔在画布上由 (50,50) 至 (50,200) 划一直线【注】程序可将三行叙述合并为一行，其叙述如下：Me.CreateGraphics.DrawLine(p1, 40, 30, 250, 30)11-2-4 清 除Clear是将绘图对象上内容清除 (Clear ) 为指定的颜色
5、。语法绘图对象. Clear ( 颜色 )目的设定绘图对象清除为指定的颜色。例将图片方块 (PictureBox1)，清除为白色。PictureBox1.CreateGraphics.Clear (Color.White)11-2-5 移 除Dispose是将绘图对象从内存中移除 (Dispose )。语法绘图对象.Dispose()例Dim g As Graphics = Me.CreateGraphicsg.Dispose()实例11_02_01将图片方块 (PictureBox1)，清除为白色。1.在窗体上以蓝色粗细为2号画笔划一直线。2.在图片方块上以红色粗细为3号画笔划一直线。3.设
6、一清除按钮，当按下该钮时，窗体清除为黄色，图片方块清除为白色。题目说明1.当按画线钮时，于窗体与图片方块各画一条线，显示结果如图11-1所示：图11-1 按画线钮时显示2.当按清除钮时，显示结果如如图11-2所示：图11-2 按清除钮时显示程序内容Private Sub Button1_Click(ByVal) Handles Button1.Click Dim g As Graphics = Me.CreateGraphics Dim p1 As New System.Drawing.Pen(Color.Blue, 2) 设定画笔p1 g.DrawLine(p1, 40, 30, 250,
7、30) 在窗体上画线 Dim p2 As New System.Drawing.Pen(Color.Red, 3) 设定画笔p2 PictureBox1.CreateGraphics.DrawLine(p2, 40, 30, 150, 30) 在图片方块上画线 End Sub Private Sub Button2_Click(ByVal) Handles Button2.Click PictureBox1.CreateGraphics.Clear(Color.White) 窗体清除为黄色 Me.CreateGraphics.Clear(Color.Yellow) 图片方块清除为白色 End
8、Sub Private Sub Button3_Click(ByVal) Handles Button3.Click EndEnd Sub11-3 绘图指令11-3-1 画字符串 (DrawString )DrawString是在绘图对象上显示字符串。语法绘图对象.DrawString(字符串, New Font(字型名称, 字体大小), Brushes.颜色, x1,y1)目的设定在绘图对象上显示字符串。说明x1,y1是字符串的左上角坐标位置。实例11_03_01如在窗体上 (30,20) 处显示绘图指令测试，字型名称为标楷体，颜色为红色与字体大小为24。程序内容Private Sub Bu
9、tton1_Click(ByVal) Handles Button1.Click Dim g As Graphics = Me.CreateGraphics g.DrawString(绘图指令测试, New Font(标楷体, 24), Brushes.Red, 30, 20) End Sub结果X1(30)Y1(20)图11-3 画字符串11-3-2 画矩形 (DrawRectangle ) DrawRectangle是在绘图对象上绘一矩形或正方形。语法绘图对象. DrawRectangle (画笔变数, x1, y1, x2, y2)目的设定在绘图对象上绘一矩形或正方形。说明1.矩形的边框
10、颜色与粗细由画笔决定。2.x1,y1是矩形的左上角坐标位置。3.x2,y2矩形的宽与高 ( 当x2,y2相同时为正方形 )。实例11_03_02如在窗体上 (50, 70) 处画一大小为 (100, 80) 的矩形，边框颜色为蓝色与粗细为3。程序内容Private Sub Button1_Click(ByVal) Handles Button1.Click Dim g As Graphics = Me.CreateGraphics Dim p1 As New System.Drawing.Pen(Color.Blue, 3) g.DrawRectangle(p1, 50, 70, 100, 8
11、0)End Sub 结果X1(50)Y1(70)X2(100)Y2(80)图11-4 画矩形11-3-3 画椭圆形DrawEllipse是在绘图对象上绘一椭圆形 (DrawEllipse ) 或圆形。语法绘图对象. DrawEllipse ( 画笔变数, x1, y1, x2, y2)目的设定在绘图对象上绘一椭圆形或圆形。说明1.椭圆形或圆形的边框颜色与粗细由画笔决定。2.x1,y1是椭圆形或圆形的左上角坐标位置。3.x2,y2椭圆形或圆形的宽与高 ( 当x2,y2相同时为正圆形 )。实例11_03_03例如在窗体上 (50, 70) 处画一大小为 (100, 80) 的椭圆形，边框颜色为黑色
12、与粗细为2。程序内容Private Sub Button1_Click(ByVal) Handles Button1.Click Dim g As Graphics = Me.CreateGraphics Dim p2 As New System.Drawing.Pen(Color.Black, 2) g.DrawEllipse(p2, 50, 70, 100, 80)End Sub结果X1(100)Y2(80)X1(50)Y1(70)图11-5 画椭圆 ( 外框矩形说明用 )11-3-4 画圆弧DrawArc是在绘图对象上绘一圆弧 (DrawArc )。语法绘图对象. (DrawArc (
13、画笔变数, x1, y1, x2, y2,起始角度,终止角度 ) )目的设定在绘图对象上绘一圆弧。说明1.圆弧的边框颜色与粗细由画笔决定。2.x1,y1是圆弧的左上角坐标位置。3.x2,y2圆弧的宽与高。4.角度以一圆周为360度计。5.终止角度其为正数时表顺时针方向绘图，负数时表逆时针方向绘图。实例11_03_04如在窗体上 (50, 70) 处画一大小为 (100, 80) 的顺时针方向120度的圆弧，边框颜色为黑色与粗细为3。程序内容Private Sub Button1_Click(ByVal.) Handles Button1.Click Dim g As Graphics = Me.CreateGraphics Dim p2 As New System.Drawing.Pen(Color.Black, 3) g.DrawArc(p2, 50, 70, 100, 80, 0, 120) End Sub结果X2(100)Y2(80)X1(50)Y1(70)图11-6 画圆弧 ( 外框矩形与椭圆说明用 )11-3-5 画饼形图DrawPie是在绘图对象上绘一饼形图。语法绘图对象. DrawPie ( 画笔变数, x1, y1, x2, y2,起始角度,终止角度 )目的设定在绘图对象上绘一饼形图。说明1.饼形图的边框颜色与粗细由画笔决定。2.x1,y1是
