中职Visual Basic 6.0程序设计第5章课件

1、(中职）Visual Basic 6.0程序设计第5章ppt课件图形与图像 【实例20】 缤纷彩环【实例21】 图形展示【实例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属性 （11

2、）FillColor属性 （12）FillStyle属性 （13）CurrentX 和CurrentY属性 操作步骤 1创建程序界面新建一个“标准 EXE”工程，设置窗体的Caption属性为“缤纷彩环”。2程序代码编辑在程序代码编辑窗口输入以下的程序代码。 程序代码：Private Sub Form_Click() Dim i As Integer Dim cX As Integer, cY As Integer, cR As Integer For i = 1 To 10 通过循环绘制10个圆形 Randomize cX = Rnd * 200 - 100 获取圆心X坐标 cY = Rnd

3、 * 200 - 100 获取圆心Y坐标 cR = Rnd * 20 + 5 获取圆半径大小 Form1.DrawWidth = Int(Rnd * 10 + 1) 获取绘图线条宽度 Form1.Circle (cX, cY), cR, RGB(Rnd * 255, Rnd * 255, Rnd * 255)画圆 NextEnd SubPrivate Sub Form_DblClick() Form1.Cls 清除窗体所绘内容End SubPrivate Sub Form_Load() Form1.Scale (-100, -100)-(100, 100) 自定义坐标系统End Sub 知识进

4、阶 1进阶实例基本图形与函数图形 2进阶实例四度空间 思考练习 1填空题（1）VB的坐标系统由 、 和 构成。（2）画线的方法是 ，画圆的方法是 ，画矩形的方法是 。2程序设计题（1）设计一个程序，窗体上有四个按钮，单击时分别可绘制圆、直线、椭圆和矩形。（2）设计一个程序，可以绘制出由大到小套在一起的一组不同颜色的方框。方框的个数、颜色、间距均随机产生。 【实例21】 图形展示 案例效果 程序窗口中展示了形状控件与直线控件的不同形式 技术分析 1形状控件 （1）Shape属性 （2）BorderColor （3）FillColor （4）BorderStyle （5）BorderWidth （

5、6）FillStyle （7）DrawMode 2直线控件 （1）X1，Y1，X2，Y2属性 （2）其他属性 操作步骤 1创建程序界面 2程序代码编辑在代码窗口中为程序添加如下代码。 程序代码：Private Sub Form_Activate() 0表示vbShapeRectangle , 即矩形 Shape1.FillColor = RGB(0, 0, 0) Shape1.FillStyle = 0 Shape1.Shape = 0 1表示vbShapeSquare，即正方形 Shape2.FillColor = RGB(255, 0, 255) Shape2.FillStyle = 2

6、Shape2.Shape = 1 2表示vbShapeOval，即椭圆形 Shape3.FillColor = RGB(255, 0, 0) Shape3.FillStyle = 3 Shape3.Shape = 2 3表示vbShapeCircle，即圆形 Shape4.FillColor = RGB(255, 255, 0) Shape4.FillStyle = 4 Shape4.Shape = 3 4表示VbShapeRoundedRectangle，即圆角矩形 Shape5.FillColor = RGB(0, 255, 255) Shape5.FillStyle = 5 Shape5

7、.Shape = 4 5表示VbShapeRoundedSquare，即圆角正方形 Shape6.FillColor = RGB(0, 0, 255) Shape6.FillStyle = 6 Shape6.Shape = 5 实线 Line1.BorderStyle = 1 Line1.BorderWidth = 3 虚线 Line2.BorderStyle = 2 点线 Line3.BorderStyle = 3 点划线 Line4.BorderStyle = 4 双点划线 Line5.BorderStyle = 5 内实线 Line6.BorderStyle = 6End Sub 知识进

8、阶 1进阶实例撞球 2进阶实例图形时钟 思考练习 1填空题（1）直线控件与使用绘图方法所产生的直线的不同点在于： 。（2）形状控件的 属性决定它所显示的形状， 属性决定它的填充样式， 属性决定它的填充颜色。2程序设计题（1）在窗体上添加五个直线控件，这些控件都属于同一控件数组。通过程序让它们首尾相连，并通过定时产生的随机数改变直线的连接点位置。（2）在窗体上添加一个形状控件，由定时器控制让它能够动态放大或缩小。 【实例22】 沙滩赛车 案例效果 实例中演示了在一些游戏中，在游戏画面中的人物是如何在画面中移动的。通过对画面进行观察，可以发现多数情况下，人物的位置本身并没有移 动，只是后面的背景

9、画面出现了相对的移 动。 技术分析 1图片框控件 （1）Picture属性 （2）Align属性 （3）AutoSize属性 （4）BackColor属性 （5）BorderStyle属性 2图像控件 （1）Picture属性 （2）Stretch属性 操作步骤 1创建程序界面2程序代码编辑在程序代码窗口中输入如下所示的代码。 名称PictureStretchBorderStlyeCaptionImgBack沙滩背景图像True0-NoneImgPlane赛车图像True0-NoneForm1沙滩赛车程序代码：Private Sub Form_KeyDown(KeyCode As Intege

10、r, Shift As Integer) Select Case KeyCode 判断哪一个键被按下 Case vbKeyLeft 如果向左键被按下 If imgBack.Left Form1.Width - imgBack.Width Then imgBack.Left = imgBack.Left - 50 将背景图像控件向左移 End If Case vbKeyUp If imgBack.Top Form1.Height - imgBack.Height Then imgBack.Top = imgBack.Top - 50 将背景图像控件向上移 End If End SelectEnd

11、 Sub Private Sub Form_Load() 下面语句初始化背景图像的位置,让背景图与窗体右下角对齐 imgBack.Top = Form1.Height - imgBack.Height imgBack.Left = Form1.Width - imgBack.Width 下列语句初始化赛车的位置，使其位于窗体中央 imgPlane.Top = (Form1.Height - imgPlane.Height) / 2 imgPlane.Left = (Form1.Width - imgPlane.Width) / 2End Sub程序中，通过对KeyDown事件进行响应，通过SelectCase语句对按键动作进行不同的处理，将背景图像控件进行移动，产生赛车移动效果。 知识进阶 1图像控件与图片框控件的区别图像（Image）控件与图片框（Picture）控件都可以作为图像的载体以显示图像，但两者有着不同的功能。图片框可以象窗体一样作为其他控件对象的容器，在图片框内的对象坐标以图片框的左上角为原点。2进阶实例房间里的猫 3进阶实例图像浏览器 思考练习 1填空题（1）图像与图片框控件的区别是： 。（2）图片框的 属性决定图片框控件是否能够根据加载的图像自动调整其大小，图像控件的