Visual Basic程序设计第12章 多媒体应用.pptVIP

　　（1）图片框的水平运动 　　水平运动程序代码如下，运行该程序后窗体中的图片框会从左移动到右面 Dim x_pos As Integer Dim y_pos As Integer Dim x_step As Integer Private Sub Command1_Click() x_pos = 0 y_pos = 0.5 * Form1.ScaleHeight Picture1.Move x_pos, y_pos Timer1.Enabled = True x_step = 10 End Sub Private Sub Timer1_Timer() x_pos = x_pos + x_step Picture1.Move x_pos, y_pos End Sub 程序执行结果如图所示： 　　（2）图片框的斜线运动 　　上面的程序稍加改动，在移动中使y_pos同样加入一个增量y_step就能使图片框从窗体左上角作斜线运动。 Dim x_pos As Integer Dim y_pos As Integer Dim x_step As Integer Dim y_step As Integer Private Sub Command1_Click() x_pos = 0 y_pos = 0 Picture1.Move x_pos, y_pos Timer1.Enabled = True x_step = 10 y_step = 10 End Sub Private Sub Timer1_Timer() x_pos = x_pos + x_step y_pos = y_pos + y_step Picture1.Move x_pos, y_pos End Sub 运行程序结果如图所示 3、图片框的反弹 直线运动的图片框不会拐弯，一旦动起来，很快就会在窗体画面上消失，下面介绍一种碰到窗体能反弹回来的图片框的程序。 想要控制图片框的反弹，首先要了解窗体的边界值，这包含上、下、左、右共有4个边界，对应的关系分别是： 　　上边：y=0 　　下边：y=Form1.ScaleHeight 　　左边：x=0 　　右边：x=Form1.ScaleWidth 　　考虑到图片框的宽度(Pictur1.ScaleWidth)和高度(Picture1.ScaleHeight)的存在。因此x_pos,y_pos值的边界值应为： 　　上边：y=0 　　下边：y=Form1.ScaleHeight- Picture1.ScaleHeight 　　左边：x=0 　　右边：x=Form1.ScaleWidth- Pictur1.ScaleWidth 大连理工大学出版社 大连理工大学出版社 Visual Basic 程序设计 （第二版） 第12章 多媒体应用 12.1　图形处理 　　为了实现在窗体或者其他容器类控件上绘制直线、圆、椭圆、矩形以及函数曲线等图形。VB不仅提供了相应的控件（Shape和Line）,还提供了若干用于绘图的方法。 12.1.1 坐标系统 　　VB规定了两种坐标系统：系统坐标系和容器坐标系 1.系统坐标系 　　如图所示。系统坐标系也称为窗体的坐标系统或桌面坐标系统它的原点位于屏幕左上角的象素处，该象素的坐标值为（0，0），水平向右方向为X轴正方向，垂直向下为Y轴的正方向坐标系的单位为Twip（特维，是打印机的一磅的 1/20；1440 特维等于一英寸；567 特维等于一厘米）。 X 轴 Y 轴 系统坐标示例 返回 2.容器坐标系 　　窗体和图片框可包容各种其他控件对象，因此被称为“容器类对象”。当改变或移动容器类对象内部的控件大小或位置时，则使用容器坐标系 　　容器坐标系的缺省原点位于容器对象工作区左上角的像素处 ，该点的坐标值为（0，0） 　　当移动控件或调整控件的大小时，使用控件容器的坐标系统 　　直接在窗体上绘制对象时，窗体就是容器。如果在框架或图片框里绘制控件时，框架或控件是容器。 　　所有的图形和 Print 方法，使用容器的坐标系统 12.1.2 改变对象的坐标系统 　　我们可用对象的刻度属性和 Scale 方法，设置特定对象（窗体或控件）的坐标系统。 　　每个窗体和图片框都有几个刻度属性（ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight 和 ScaleMode）和一个方法（Scale），它们可用来定义坐标系统 ScaleMode 设置值 描述 0 用户定义。若直接设置了 ScaleWidth、ScaleHei