多媒体创作技术2

linLineCtl.Y2 = Int(DemoForm.Height * Rnd)
‘ 清除移动直线遗留像素。 Cls ‘在下次移动之前使显示暂停。
7
图形、图像应用设计 （1）动态地移动控件 使用 Move 方法 改变Left和Top或X和Y属性，会使控件产生先水平移动然后再垂直 移动的颠簸效果。Move 方法则能产生更平滑的对角线方向的移动。 Move 方法的语法如下： [object.] Move left [, top[, width[, height] ] ] object是被移动的窗体或控件。如果省略了object，则移动的是当 前窗体。left和top参数是 object对象的Left和Top属性的新设置值， 而 width和height则是它的Width和Height属性的新设置值。其中只 有 left是必需的，但是，若要指定其它参数时，就必须一并指定参数 列表中出现在指定参数之前的所有参数。
（对应书中第九、十章）
思考题
上机实验
多媒体应用创作技术
主要内容
多媒体产品的整体构想 ■ 界面设计 ■ 多媒体程序结构设计 ■ 多媒体文件的衔接 多媒体平台软件 ■ 什么是平台软件 ■ Authorware 软件简介 ■ 创作多媒体作品举例 ■ Visual Basic语言简介 ■ Visual Basic语言图形、图像设计 ■ Visual Basic语言多媒体程序设计
11
图形、图像应用设计
（4）图片内容改变
在两幅图片之间切换 一些图标可成对使用。例如，在\Icon子目录中有两个匹配的信
封图标，一个信封未打开，一个已撕开。通过在这两个图标之间进行 转换，或称切换，可创建一个动画，以便显示邮件的状态。
请大家看下面程序——飞舞的蝴蝶
If flap = 0 Then btrfly.Picture = btrfly1.Picture flap = 1 Else btrfly.Picture = btrfly2.Picture flap = 0 End If
请大家看下面程序——地球运动演示
8
图形、图像应用设计
（2）动态地改变控件大小
在Visual Basic应用程序中，在运行时可以改变图片框、图像控件或 窗体的大小和形状，就象改变其位置一样。需要变化以下属性：


Height： 用窗体的刻度模式表示的对象高度（缺省是缇数）
Width： 用窗体的刻度模式表示的对象宽度（缺省是缇数） 下面观察一下Blanker应用程序中彩色方块动态演示。
17
图形、图像应用设计 （6）图象的变换效果 再请分析第二个程序段的功能： For I = 0 To CInt(Picture1. width / 2) Step 1 J = Picture1. width - I Dummy = BitBlt(Form1. hdc, I, 0, 1, Picture1. height, Picture1. hdc, I, 0, SRCCOPY) Dummy = BitBlt(Form1. hdc, J, 0, 1, Picture1. height, Picture1. hdc, J, 0, SRCCOPY) Delay 2 * 10
13
图形、图像应用设计 （5）几个具体应用： 图形变换按钮 所谓的图形变换按钮，就是在按下鼠标和释放鼠标的那一刹那间， 所点中的图片会来回变化。实现图形化按钮，其实很简单。只需在鼠 标按下和释放鼠标的刹那间，将图片切换就可以实现变换效果。
这种效果在多媒体应用软件中经常使用。
闪烁式按钮 所谓的闪烁式按钮，就是在按下鼠标和释放鼠标的那一刹那间， 所点中的图片会来回闪烁。实现闪烁图形按钮，其实很简单。只需在 鼠标按下和释放鼠标的刹那间，将图形反白就可以实现闪烁效果。 下面我们就具体设计实现这个效果的程序。 浮动式按钮 所谓浮动式按钮，就是当鼠标移到按钮的上方时，按钮会自动沉 下去。然而，当鼠标一离开按钮时，按钮会自动浮上来。
15
图形、图像应用设计 BitBlt 函数的VB声明为： Declare Function BitBlt Lib "gdi32" Alias "BitBlt" ( ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
14
图形、图像应用设计 （6）图象的变换效果 图像变换显示的基本原理就是把原图像的一部分一部分地送入窗 口 的 图 形 容 器 控 件 中 , 产 生 动 画 效 果 。 在 VB 中 虽 然 可 用 内 部 命 令 PaintPicture来进行, 但使用API函数的BitBlt更好。 Windows 这个多任务系统除了协调应用程序的执行、分配内存、 管理系统资源…之外， 她同时也是一个很大的服务中心， 庞大的函 数库，由于这些函数服务的对象是应用程序(Application)， 所以便 称之为： Application Programming Interface ——API 函数 当我们要开始使用API时， 必须明确三件事情： (1) 要调用哪一个API函数。 (2) 如何声明API函数。 (3) 如何传递参数。
10
图形、图像应用设计 （4）图片内容改变 在运行时改变图片可以创建简单动画。最简单的方法是在两幅图 片之间切换。也可通过几个框架使用一系列图片来创建动画。还可使图 片在变化中动态地移动，从而创建出更精致的动画。 例如下面程序中图片在变化同时又动态地移动，产生了猎豹奔跑的
动态变换效果。
主要功能实现程序段： If currentpic = 7 Then currentpic = -1 'moves to the next picture currentpic = currentpic + 1 picAnimate.Picture = imgLeopard(currentpic).Picture
主要功能实现程序段见程序。
问题：1. 下列语句作用是什么？ Line (Box, 0)-Step(1, (Int(11 * Rnd))), RGB(R, G, B), BF
9
图形、图像应用设计
（3）动态地改变控件形状、颜色 在 Visual Basic 应用程序中，在运行时可以改变图片框、图像控件 或窗体形状和颜色，产生五彩缤纷的变化。 下面观察一下Blanker 应用程序中形色变幻动态演示 主要功能实现是通过下列语句： R = 255 * Rnd G = 255 * Rnd B = 255 * Rnd ' 设置窗体背景色为随机值。 DemoForm.BackColor = RGB(R, G, B) 除了可以改变背景颜色以外，还可以改变前景颜色、字体颜色、填 充颜色等。

图形、图像应用设计
1．函数曲线的绘制
定义坐标系统 通过函数计算，确定曲线上点的X，Y坐标 用细小的折线段去逼近曲线 请大家看下面程序——三角函数曲线绘图。 主要功能实现程序段： X0 = Line1.X1： Y0 = Line1.Y1
For i = 0 To 2 * Pi * 500
Next I
If CInt((Picture1. width + 1) / 2) <> 0 Then I = CInt(Picture1. width / 2)
Dummy = BitBlt(Form1. hdc, I, 0, 1, Picture1. height, Picture1. hdc, I, 0, SRCCOPY)
作用：将一幅位图从一个设备场景复制到另一个。源和目标DC相 互间必须兼容
dwRop Long，传输过程要执行的光栅运算 会设置GetLastError
16
返回值：Long，非零表示成功，零表示失败。
图形、图像应用设计 （6）图象的变换效果 下面我们就看一下使用 BitBlt函数实现的几种划像效果。 请分析第一个程序段的功能： For I = 0 To Picture1.height - 1 Step 1 Dummy = BitBlt(Form1.hdc, 0 , I, Picture1. width, 1, Picture1.hdc, 0, I, SRCCOPY) Delay 10 Next I
主要功能实现程序段见程序。 问题： 1. 此处下列程序段的作用是什么？
If CurY + Text1.Height < 0 Then
CurY = Picture1.Height End If
6
图形、图像应用设计 （1）动态地移动控件 移动 Line 控件 Line控件中的起点坐标和终点坐标的随机地改变，产生了Blanker 应用程序中跳跃直线动态演示。主要功能实现是通过下列语句： DemoForm 上直线控件的位置：
另外，也可以通过分割图片控件PictureClip， PictureClip，用于
加载包含多幅图像的位图。在运行时，其它控件从它中间“剪贴”位 图的不同区域以变换的各张图片。请观察下列陀螺旋转程序示例。 注意语句： Picture1.Picture = PictureClip2.GraphicCell(y)
请注意全程变量flap的作用。
12
图形、图像应用设计 （4）图片内容改变 在一些图片间轮转 通过在多个图片之间进行轮转，可以创建更长的动画。这项技术基 本和在两幅图片之间切换一样，但是需要应用程序进行选择当前图像 所用位图的操作。对动画中各个图片进行控制的一种方法，是使用控
件数组。
如Blanker示例应用程序包括有一个显示旋转月亮的动画。旋转月 亮演示程序，使用了包含有九个图像控件的数组创建该动画。