第1章熟悉VB集成环境并设计第个VB应用程序ppt课件

1、 坐标系统概述运用VB作图运用图片定时器控件第六章 图像与多媒体6.2 运用 Visual Basic作图 一、绘图属性1.用AutoRedraw创建耐久的图形每个窗体和图片框都具有AutoRedraw属性。1当AutoRedraw为默许值False时，VB会把图形输出到屏幕，而不输出到内存。2当AutoRedraw为True时，VB会把图形输出并保管在内存中。留意：运转时，只需当AutoRedraw为True时，才可以用Cls方法去除。举例:6.2 运用 Visual Basic作图 2、运用CurrentX、CurrentY设置当前坐标1窗体或图形框或打印机的CurrentX、Curren

2、tY属性给出这些对象在绘图时的当前坐标。2这两个属性在设计阶段不能运用。当坐标系确定后，坐标值(x，y)表示对象上的绝对坐标位置。3假设坐标值前加上关键字Step，那么坐标值(x，y)表示对象上的相对坐标位置，即从当前坐标分别平移x、y个单位，其绝对坐标值为(CurrentX+x，CurrentY+y)4运用CLS方法后，CurrentX、CurrentY属性值为0。 3、用DrawWidth和DrawStyle属性设置 线宽与线型 窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。DrawWidth属性以像素为单位来度量，最小值为1。例6.2 用DrawWid

3、th属性改动直线宽度。6.2 运用 Visual Basic作图 窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的外形。6.2 运用 Visual Basic作图 留意：只需当DrawWidth设置为1时，DrawStyle属性才会产生如上图所示的各种效果。 4、填充与颜色 由Fillstyle、Fillcolor这两个属性决议封锁图形的填充方式。1Fillcolor指定填充图案的颜色，默许的颜色与Forecolor一样。2FillStyle属性取值07，用来指定填充的图案，共有8种内部图案。6.2 运用 Visual Basic作图 留意：假设FillStyle设置为1透明

4、，那么忽略FillColor属性，但Form对象除外。6.2.2 画点案例18：在窗体上画一幅群星闪烁的画面。1案例效果演示2案例分析1、画点Pset方法例：1.Pset(500,1000),RGB(255,0,0) 2.Pset(500,1000),BackColor 擦除该点格式：对象.Pset (x,y),Color参数阐明: X,Y:确定画点的位置 单精度,可以是常量或变量和表达式 Color:设置点的颜色缺省时,点的颜色为ForeColor6.2.2 画点6.2.2 画点3案例实现 演示Private Sub TIMER1_TIMER()Dim i As IntegerDim x,

5、y As Single For I = 1 To 100 X = Int(Rnd * 6000) Y = Int(Rnd * 6000) PSet (X, Y), vbYellow Next IEnd Sub直线格式：对象. LineStep(x1,y1)-Step(x2,y2),Color参数阐明: X1,Y1:画线的起点, 省略:当前坐标为起始坐标。 X2,Y2:直线的终点 Color:设置直线的颜色 缺省时,为ForeColorStep:表示后面的坐标相对于当前坐标的偏移量6.2.3 画直线和矩形举例:Private Sub Command1_Click()Line (1000, 100

6、0)-(2000, 2000)Line -(300, 3000)Picture1.Line (100, 500)-Step(2000, 2000)Picture1.Line (1500, 1500)-Step(200, 200), vbBlueEnd Sub如何改动直线的粗细和线型?6.2.3 画直线和矩形DrawWidth属性: 指定线的宽度(以磅为单位。DrawStyle属性: 指定线型。矩形格式：对象. LineStep(x1,y1)-Step(x2,y2),Color,BF参数阐明: X1,Y1:矩形的左上角点, 省略:当前坐标的为起始坐标, X2,Y2:矩形的右下角点B：表示画一个矩

7、形; F：表示画一个实心的矩形,这时忽略 Fillcolor和FillStyle属性留意：有B参数才干运用F例1：Private Sub Command1_Click()Line (500, 500)-Step(1000, 0)Line -Step(0, 1000)Line -Step(-1000, 0)Line -Step(0, -1000)Line (500, 500)-Step(1000, 1000), , BFEnd Sub6.2.3 画直线和矩形6.2.4 画圆、椭圆、圆弧和扇形案例19：在窗体上绘制一幅颜色、大小各不一样的彩环。1案例效果演示格式： 对象. CircleStep(x

8、,y),半径,Color,起始角,终止角,纵横比6.2.4 画圆、椭圆、圆弧和扇形 (11时，指向垂直方向的Y半径 参数阐明:起始角和终止角：取值在0 时为圆弧。假设起始角的绝对值大于终止角的绝对值，那么画一个角度大于180的圆弧；假设为负数，那么画出扇形。2案例分析6.2.4 画圆、椭圆、圆弧和扇形6.2.4 画圆、椭圆、圆弧和扇形Private Sub Command1_Click() X = Form1.Width Y = Form1.Height For I = 1 To 10 R = Rnd * Y * 0.1 Circle (X * Rnd, Y * Rnd), R, QBColo

9、r(I) Next IEnd Sub3案例实现演示6.2.5 运用Line控件和Shape控件作图案例20：在窗体中展现外形控件。1案例效果 演示6.2.5 运用Line控件和Shape控件作图1.Line控件常用属性:X1、Y1、X2、Y2：控制线的两个端点。BorderWidth:设置线宽。BorderStyle:设置线形。2.Shape控件常用属性：FillStyle:设置填充图案。FillColor:设置填充颜色。Shape:提供6种预定义外形。演示2案例分析1、设计阶段方法：属性窗口的Picture属性装入。利用剪贴板步骤：在绘图软件中复制图片选中图片框粘贴 2、运转阶段方法：运用L

10、oadPicture函数格式：对象.Picture = LoadPicture“文件名其中文件名包含途径。复制：Picture2.Picture= Picture1.Picture删除图片格式：对象.Picture = LoadPicture 对象.Picture = LoadPicture“6.3 运用图片图片框PictureBox和图像框Imag1、作用：在指定位置显示图形信息。2、区别：图片框中可以包含其他控件，图像框不能。图片框可以经过Print方法接纳文本，图像框不能。图像框占用内存少，显示速度快。6.3 运用图片3、属性：Picture属性:经过属性窗口设置，用来把图形放入这些对象

11、中。适用于：窗体、图片框、图像框。支持的图形文件格式：Bitmap Icon Metafile JPEG GIF(2)图像框的Stretch属性:自动调整图像框中图形内容的大小。格式：对象.Stretch=Boolean取值False时，可以自动改动大小。6.3 运用图片(1)图片框的AutoSize属性 当AutoSize属性为True时，可使图片框自动扩展到可包容新图片的大小。6.4 定时器控件案例21：制造一个模拟秒表，可用来计时。1案例效果属性: Enable属性 :能否可用 Interval属性: 定时器事件之间的时间间隔毫秒数 取值范围:0-64767 ,最长间隔为64.8秒事件：

12、Timer事件 经过了interval所设置的时间间隔后,将会触 发timer事件.计时器控件Timer：按一定的时间间隔执行操作 可制造动画效果6.4 定时器控件2案例分析分析: (1)在窗体上装入一个图片picture控件 (2)图片在窗体上的位置不断改动即Left,Top例：以窗体为背景，显示汽车行驶的动画Private Sub Timer1_Timer( ) Picture1.Left = Picture1.Left + 10End Sub6.4 定时器控件例：显示滚动字幕Private Sub Timer1_Timer() Label1.Left = Label1.Left + 100 If