第8章图形、文本和多媒体应用要点分析.pptxVIP

程序设计教程 第8章 图形、文本和多媒体应用 Visual Basic 彩色图像的处理方法 Animation控件、Windows Media Player控件等 绘图方法Line方法、Circle方法、PSet方法 多媒体控件（MMControl） 坐标系统、绘图的属性和事件 8.1 绘制图形 彩色位图图像处理 设置文本 多媒体应用 程序举例 8.2 8.3 8.4 8.5 8.1 绘制图形 绘制图形 图形控件 VB坐标系统和颜色 常用图形方法 绘制图形的两种基本的方法： （1）使用图形控件，如Line控件、Shape控件，无需编写代码，但只能实现简单功能； （2）使用绘图方法，如Line方法、Circle方法等。 绘制图形 图形控件 VB坐标系统和颜色 常用图形方法 1. Line控件 直线（Line）控件主要用来修饰窗体和显示直线，可以画出水平线、垂直线、对角线等，并可以改变直线的粗细、颜色和样式。 直线控件比较简单，常用属性有： （1）X1、Y1、X2、Y2属性：表示直线控件的起始点(X1, Y1)和终止点(X2, Y2)的坐标，确定两个端点的位置。 （2）BorderColor属性：设置直线的颜色。 （3）BorderStyle属性：设置直线的样式，有实线、虚线、点线、点划线等几种样式。 （4）BorderWidth属性：设置直线的宽度。 设置BorderStyle属性的效果取决于BorderWidth属性的设置。可以在运行时修改其属性，如：Line1.BorderWidth=2 ‘将直线宽度设置为2（像素） 运行时不能使用Move方法移动Line控件，但是可以通过改变X1、Y1、X2、Y2属性来移动它或调整它的大小。 绘制图形 图形控件 VB坐标系统和颜色 常用图形方法 2. Shape控件 形状(Shape)控件用于修饰窗体和显示图形，可显示矩形、长方形、椭圆、圆形、圆角矩和圆角正方形。 形状控件的常用属性如下： （1）Backcolor属性：设置图形的背景色。 （2）BackStyle属性：设置图形的背景样式是否透明。 （3）BorderStyle属性：设置图形边框的样式。 （4）FillColor属性：设置图形内部的填充颜色。 （5）FillStyle属性：设置图形的填充的方式，有水平直线、垂直直线、十字线、交叉对角线等，如表8-1所示。 （6）Shape属性：用于设置图形的样式，其取值如表8-2所示。 绘制图形 图形控件 VB坐标系统和颜色 常用图形方法 2. Shape控件 取值 描述 0 实心填充 1 透明填充 2 以水平线进行填充 3 以垂直线进行填充 4 向上对角线填充 5 向下对角线填充 6 交叉线填充 7 对角交叉线填充 取值 描述 0 矩形 1 正方形 2 椭圆形 3 圆形 4 圆角矩形 5 圆角正方形  表8-1 FillStyle属性值 表8-2 Shape属性值 绘制图形 图形控件 VB坐标系统和颜色 常用图形方法 【例8-1】编写程序显示Shape控件的6种形状及不同的填充方式. 在窗体上建立Shape控件组件Shape1（0）~Shape1（5），编写代码如下： Private Sub Form_Activate() Dim i As Integer Print Print 0 1 2 3 4 5 Shape1(0).FillStyle = 2 For i = 1 To 5 Shape1(i).Left = Shape1(i - 1).Left + 1000 确定控件位置 Shape1(i).Shape = i 使用shape属性改变控件形状 Shape1(i).FillStyle = i + 2 使用FillStyle属性改变控件填充方式 Shape1(i).Visible = True Next i End Sub 绘制图形 图形控件 VB坐标系统和颜色 常用图形方法 1. 坐标单位  取值 名称 描述 1 Twip（缇） 1英寸=1440Twips 2 Point（磅） 1磅=20Twips 3 Pixel（像素点） 监视器或打印机分辨率的最小单位 4 Character（字符） 每水平单位=120 Twips；每垂直单位=240 Twips 5 Inche（英寸） 6 Millimeter（毫米） 7 Centimeter（厘米） 1英寸=2.54厘米；1厘米=567Twips 0 用户自定义 坐标单位即坐标的刻度，通过设置对象（窗体、图片框等）的ScaleMode属性可以改变坐标系统的度量单位，缺省时为Twip（缇）。例如，Form1.ScaleMo