Visual Basic 2005程序设计 教学课件 作者 丁爱萍 第11章 多媒体程序设计.pptVIP

第11章 多媒体程序设计 11.1 图形和图像 11.1.1 绘图基础 绘制图形需要创建Graphics对象和Pen对象。 1. 创建Graphics对象 创建Graphics对象，最常用的方法是在窗体的Paint事件中编写代码。Paint事件是在绘制窗体时发生。例如： Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Dim myGraphics1 As System.Drawing.Graphics = e.Graphics End Sub 绘制图形时，可以调用Graphics对象的方法。常用的方法 ： 2. 创建Pen对象 绘制图形时，除创建Graphics对象，还必须创建Pen对象。Pen对象用于绘制线条、勾勒形状轮廓或呈现其他几何表示形式，存储要绘制项的属性，并且将Pen对象作为参数之一传递给绘制方法。例如： Dim myPen As New Pen(Brushes.DeepSkyBlue) 创建完Pen对象，也可以使用Pen对象的属性。 常用的属性 11.1.2 在窗体上绘图 1. 绘制直线 绘制直线需要创建Graphics对象和Pen对象。 Graphics对象提供进行绘制直线的DrawLine方法。其常用语法格式如下： Graphics.DrawLines (Pen, Point[]) 或 Graphics. DrawLines (Pen,〈起点坐标〉,〈终点坐标〉) 说明：指明直线的起点坐标（即起点列、行坐标）和终点坐标（即终点列、行坐标）。 Pen对象设定线条的样式，如直线的颜色、宽度和线型。 【例11-1】在窗体上绘制3条直线。一条从点（20，20）到（20，200），宽度为5的红色虚直线；一条从点（40，30）到（200，30），宽度为8的蓝色直线；一条从点（40，50）到（250，200），宽度为3的绿色直线。 （1）编写事件代码。 Imports System.Drawing.Drawing2D 引用System.Drawing命名空间 Public Class Form1 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _ System.Windows.Forms.PaintEventArgs) Handles Me.Paint 第1条直线 Dim redPen As New Pen(Color.Red) 创建Pen对象，并设置直线颜色 Dim myGraphics1 As Graphics = Me.CreateGraphics() 创建Graphics对象 redPen.DashStyle = DashStyle.Dash 设置直线样式为虚线 redPen.Width = 5 设置直线宽度 myGraphics1.DrawLine(redPen, 20, 20, 20, 200) 绘制直线 第2条直线 Dim p1 As Point = New Point(40, 30) 创建Point对象数组，设置直线起点和终点 Dim p2 As Point = New Point(200, 30) Dim bluePen As New Pen(Color.Blue, 8) 创建Pen对象，并设置直线颜色和宽度 Dim myGraphics2 As Graphics = Me.CreateGraphics() bluePen.StartCap = LineCap.RoundAnchor 设置直线起点样式 bluePen.EndCap = LineCap.ArrowAnchor 设置直线终点样式 myGraphics2.DrawLine(bluePen, p1, p2) 第3条直线 Dim greenPen As New Pen(Color.Green, 3) Dim myGraphics3 As Graphics = Me.CreateGraphics() myGraphics3.SmoothingMode = Smoothin