《(中职）Visual Basic 6.0程序设计第5章课件.ppt》由会员分享，可在线阅读，更多相关《(中职）Visual Basic 6.0程序设计第5章课件.ppt（22页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、(中职）Visual Basic 6.0程序设计第5章ppt课件图形与图像图形与图像 v【实例20】缤纷彩环v【实例21】图形展示v【实例22】沙滩赛车【实例【实例20】缤纷彩环缤纷彩环 案例效果 程序运行中，当鼠标在窗体上单击时会在窗体上绘制出若干个颜色、大小各不相同的彩色圆环 技术分析技术分析 1图形坐标系统（1）屏幕坐标系统与窗体坐标系统（2）自定义坐标系统 2绘图方法（1）Print方法（2）Pset方法（3）Point方法（4）Line方法（5）Circle方法（6）Cls方法（7）Scale方法（8）DrawWidth属性（9）DrawMode属性（10）DrawStyle属性（1
2、1）FillColor属性（12）FillStyle属性（13）CurrentX 和CurrentY属性 操作步骤操作步骤 v1创建程序界面v新建一个“标准 EXE”工程，设置窗体的Caption属性为“缤纷彩环”。v2程序代码编辑v在程序代码编辑窗口输入以下的程序代码。v程序代码：vPrivate Sub Form_Click()v Dim i As Integerv Dim cX As Integer,cY As Integer,cR As Integerv For i=1 To 10 通过循环绘制10个圆形v Randomizev cX=Rnd*200-100 获取圆心X坐标v cY=R
3、nd*200-100 获取圆心Y坐标v cR=Rnd*20+5 获取圆半径大小v Form1.DrawWidth=Int(Rnd*10+1)获取绘图线条宽度v Form1.Circle(cX,cY),cR,RGB(Rnd*255,Rnd*255,Rnd*255)画圆v NextvEnd SubvPrivate Sub Form_DblClick()v Form1.Cls 清除窗体所绘内容vEnd SubvPrivate Sub Form_Load()v Form1.Scale(-100,-100)-(100,100)自定义坐标系统vEnd Sub 知识进阶知识进阶 1进阶实例基本图形与函数图形
4、 2进阶实例四度空间 思考练习思考练习 v1填空题v（1）VB的坐标系统由 、和 构成。v（2）画线的方法是 ，画圆的方法是 ，画矩形的方法是 。v2程序设计题v（1）设计一个程序，窗体上有四个按钮，单击时分别可绘制圆、直线、椭圆和矩形。v（2）设计一个程序，可以绘制出由大到小套在一起的一组不同颜色的方框。方框的个数、颜色、间距均随机产生。【实例【实例21】图形展示图形展示 案例效果 程序窗口中展示了形状控件与直线控件的不同形式 技术分析技术分析 1形状控件（1）Shape属性（2）BorderColor（3）FillColor（4）BorderStyle（5）BorderWidth（6）Fi
5、llStyle（7）DrawMode 2直线控件（1）X1，Y1，X2，Y2属性（2）其他属性 操作步骤操作步骤 1创建程序界面 v2程序代码编辑v在代码窗口中为程序添加如下代码。v程序代码：vPrivate Sub Form_Activate()v 0表示vbShapeRectangle,即矩形v Shape1.FillColor=RGB(0,0,0)v Shape1.FillStyle=0v Shape1.Shape=0v 1表示vbShapeSquare，即正方形v Shape2.FillColor=RGB(255,0,255)v Shape2.FillStyle=2v Shape2.S
6、hape=1v 2表示vbShapeOval，即椭圆形v Shape3.FillColor=RGB(255,0,0)v Shape3.FillStyle=3v Shape3.Shape=2v 3表示vbShapeCircle，即圆形v Shape4.FillColor=RGB(255,255,0)v Shape4.FillStyle=4v Shape4.Shape=3v 4表示VbShapeRoundedRectangle，即圆角矩形v Shape5.FillColor=RGB(0,255,255)v Shape5.FillStyle=5v Shape5.Shape=4v 5表示VbShape
7、RoundedSquare，即圆角正方形v Shape6.FillColor=RGB(0,0,255)v Shape6.FillStyle=6v Shape6.Shape=5v 实线v Line1.BorderStyle=1v Line1.BorderWidth=3v 虚线v Line2.BorderStyle=2v 点线v Line3.BorderStyle=3v 点划线v Line4.BorderStyle=4v 双点划线v Line5.BorderStyle=5v 内实线v Line6.BorderStyle=6vEnd Sub 知识进阶知识进阶 1进阶实例撞球 2进阶实例图形时钟 思考
8、练习思考练习 v1填空题v（1）直线控件与使用绘图方法所产生的直线的不同点在于：。v（2）形状控件的 属性决定它所显示的形状，属性决定它的填充样式，属性决定它的填充颜色。v2程序设计题v（1）在窗体上添加五个直线控件，这些控件都属于同一控件数组。通过程序让它们首尾相连，并通过定时产生的随机数改变直线的连接点位置。v（2）在窗体上添加一个形状控件，由定时器控制让它能够动态放大或缩小。【实例【实例22】沙滩赛车沙滩赛车 案例效果 实例中演示了在一些游戏中，在游戏画面中的人物是如何在画面中移动的。通过对画面进行观察，可以发现多数情况下，人物的位置本身并没有移 动，只是后面的背景 画面出现了相对的移
9、动。技术分析技术分析 1图片框控件（1）Picture属性（2）Align属性（3）AutoSize属性（4）BackColor属性（5）BorderStyle属性 2图像控件（1）Picture属性（2）Stretch属性 操作步骤操作步骤 1创建程序界面v2程序代码编辑v在程序代码窗口中输入如下所示的代码。名称PictureStretchBorderStlyeCaptionImgBack沙滩背景图像True0-NoneImgPlane赛车图像True0-NoneForm1沙滩赛车v程序代码：vPrivate Sub Form_KeyDown(KeyCode As Integer,Shift
10、 As Integer)v Select Case KeyCode 判断哪一个键被按下v Case vbKeyLeft 如果向左键被按下v If imgBack.Left Form1.Width-imgBack.Width Thenv imgBack.Left=imgBack.Left-50 将背景图像控件向左移v End Ifv Case vbKeyUpv If imgBack.Top Form1.Height-imgBack.Height Thenv imgBack.Top=imgBack.Top-50 将背景图像控件向上移v End Ifv End SelectvEnd Sub vPri
11、vate Sub Form_Load()v 下面语句初始化背景图像的位置,让背景图与窗体右下角对齐v imgBack.Top=Form1.Height-imgBack.Heightv imgBack.Left=Form1.Width-imgBack.Widthv 下列语句初始化赛车的位置，使其位于窗体中央v imgPlane.Top=(Form1.Height-imgPlane.Height)/2v imgPlane.Left=(Form1.Width-imgPlane.Width)/2vEnd Subv程序中，通过对KeyDown事件进行响应，通过SelectCase语句对按键动作进行不同的
12、处理，将背景图像控件进行移动，产生赛车移动效果。知识进阶知识进阶 v1图像控件与图片框控件的区别v图像（Image）控件与图片框（Picture）控件都可以作为图像的载体以显示图像，但两者有着不同的功能。v图片框可以象窗体一样作为其他控件对象的容器，在图片框内的对象坐标以图片框的左上角为原点。v2进阶实例房间里的猫 v3进阶实例图像浏览器 思考练习思考练习 v1填空题v（1）图像与图片框控件的区别是：。v（2）图片框的 属性决定图片框控件是否能够根据加载的图像自动调整其大小，图像控件的 属性决定图像控件对象与被装载的图像如何调整尺寸以互相适应。v2程序设计题v（1）以实例“空中飞行”为原型进行改进，使得程序在背景图像能够移动时让飞机位于画面中内，而当背景图像移动到窗体边缘不能再移动时，则移动飞机图像。v（2）设计一个有动画的小游戏，例如：飞机作战的游戏，可以用快速移动的图像控件来显示子弹，当子弹与飞机的位置发生重叠时，则飞机爆炸（将飞机图片换为爆炸图片）。