Visual Basic.NET编程PPT电子课件教案-第17章 图形和图像精选.pptVIP

第17章 图形和图像 17.1 图形、图像 17.2 PictureBox控件 17.3 Graphics类 17.4 简单动画例子 17.5 时钟秒针转动例子 17.1 图形、图像 图形：矢量方式，如.dwg、MetaFile等。 例子：一条直线用起点和终点的坐标表示，圆用圆心坐标和半径表示。用另外的数据表示线的颜色、粗细等。 优点：存储小，显示快，特别适合工程用图。 缺点： 不适合显示艺术图像。 图像：点阵方式，如.bmp、.ico、.gif、.jpg等。 例子：将图片中每个点用坐标和颜色值来表示。 优点：逼真、细腻，色彩丰富，特别适合显示艺术图像。 缺点：存储大，显示慢，不适合工程用图。 17.2 PictureBox控件 功能：用于显示图形、图像。 重要属性：表17-1 使用方法： 添加：使用工具箱添加控件。 静态设置属性Image：按属性右边的“…”小按钮，选择图像即可。 动态设置属性Image： PictureBox1.Image=New Bitmap(文件名) PictureBox1.Image=New MetaFile(文件名) 17.3 Graphics类 功能：用于绘制图形、显示图像/文字。 使用方法： 1、定义：定义Graphics对象 Dim g As Graphics 2、创建：对象初始化（创建） g=Me.CreateGraphics ’表示在窗体上绘图 g=PictureBox1.CreateGraphics ’表示在PictureBox1上绘图 17.3 Graphics类 3、工具：使用Pen、Font、XXXBrush、DrawXXX、FillXXX等等工具绘制图形、显示图像/文字。 4、Pen：设定线条颜色、宽度、虚实式样、阴影、端点式样等，表17-5。 Dim p As New Pen(System.Drawing.Color.Red，3) 定义红色的实线，宽度为3。 5、Font：设定字体、大小、颜色等，17.2.9节。 Dim f As New Font(”宋体”，16，FontStyle.Bold) 定义宋体字体，大小为16，粗体。 17.3 Graphics类 6、XXXBrush ：设定填充颜色、式样，17.2.8节 Dim b As New SolidBrush(System.Drawing.Color.Blue) 定义实填充，颜色为黑色。 7、BitMap：设定图像文件名 Dim bm As New Bitmap(图像文件名) 8、DrawXXX ：绘制/显示，表17-8。 g.DrawImage(im，10，20) 显示图像文件，左上角坐标（10，20）。 g.DrawLine(p，10，20，190，200) 直线从(10，20)到(190，200)，线条设定使用p。 g.DrawString(”Hello”，f，b，10，20) 显示Hello，起点坐标（10，20），字体用f，文字内部填充使用b。 17.3 Graphics类 8、FillXXX ：填充图形内部，表17-8。 g.FillRectangle(b，60，60，90，100) 填充左上角为(60，60)，右下角为(90，100)的矩形，填充式样使用b。 例子： 新建项目，增加控件PictureBox1，增加控件Button1，将上述1-8的代码放在Button1的“Click”事件处理过程中。 运行时按Button1，出现图形效果。 将窗口最小化或覆盖，重新显示时图形不出现。 17.3 Graphics类 Paint事件：每次窗体重新被显示时发生的事件。 Paint()处理过程：每次窗体重新被显示时被执行的代码。 例子： 将上述例子中的代码放在窗体Form1或PictureBox1的Paint事件处理过程中。 效果：图像一闪就消失。 修改：将g = Me.CreateGraphics 或 g = PictureBox1.CreateGraphics 改成g = e.Graphics 效果：图像正常显示。 17.4 简单动画例子 原理： 将原图形消去，用背景色重画或使用Graphics的Clear()成员函数清除。 在新位置再画图形。 例子： 1、新建项目，在Form1的Paint事件处理过程中增加如下代码。 Dim g As Graphics g = e.Graphics Dim p As New Pen(System.Drawing.Color.Red, 3) g.DrawLine(p, 10, 20, 190, 200) 17.4 简单动画例子 2、增加控件Button1，将下属代码放在Button