《多媒体程序设计》PPT课件.ppt

多媒体程序设计,任课教师：人文信息管理学院计算机教研室 胡艳梅 Tel：68289223授课安排,理论（15学时） 上机（15学时） 考试成绩组成 考勤及上机实验 40 课终考试成绩 60,为何使用Visual Basic设计多媒体,Visual Basic，具备有足够的能力及条件来开发多媒体系统，它在多媒体方面的能力，丝毫不弱于像Authorware、Director这样的专业多媒体制作程序。 据统计，全球一多半的Windows应用软件是用Visual Basic开发的，因为Visual Basic开辟了一条成为Windows程序高手的捷径。,主要内容,窗体特效 媒体播放 图形图像处理 图片动画制作 趣味小程序开发 （结合文本、图像、动画、声音）,应用举例-窗体特效,整个窗体铺满图片 关于窗体 闪烁窗体标题栏 背景为渐变色的主界面 窗体抖动 屏幕滚动字幕,PaintPicture方法,应用于： Form 对象、Forms 集合 PictureBox 控件 ， 用以在 Form, PictureBox 或 Printer 上绘制图形文件 语法 object.PaintPicture picture, x1, y1 Picture :要绘制到 object 上的图形源. Form 或 PictureBox 必须是 Picture 属性 x1, y1 均为单精度值，指定在 object 上绘制 picture 的目标坐标（x-轴和y-轴）。,平铺图片,Option Explicit Private Sub Form_Paint() Dim wid As Single，hgt As Single Dim x As Single，y As Single wid = Picture1.Width hgt = Picture1.Height y = 0 Do While y Form1.Height x = 0 Do While x Form1.Width PaintPicture Picture1.Picture, x, y x = x + wid Loop y = y + hgt Loop End Sub,API函数简介,Windows API函数（ Application Program Interface应用程序接口），是Windows本身用来提供图形用户界面和操作Windows环境的所有的过程。只需在Visual Basic程序中声明所用的Win32 API函数(32位的Windows) ，就如同使用Visual Basic自身的函数一样来使用它们了，这样可弥补Visual Basic对硬件的控制和低级操作等方面的不足。,API函数简介,API由函数、消息、数据结构、数据类型以及语句组成，可供任何Windows应用程序调用。API中使用最多的部分是API函数的代码元素，包括过程声明、用户自定义类型的定义，以及常数声明。Windows操作系统中，包含了1500多个功能强大、经过严格测试的API函数，供程序开发人员编写程序时直接调用。充分利用API函数可大大增强Visual Basic编程能力，并可实现一些用Visual Basic语言本身不能实现的特殊功能。,API函数简介,handle，hWnd和hDC Windows有各种各样的系统资源，例如视窗、功能表、图片、内存、程序等等，都算是系统资源，而Windows是这些资源的总管理者。 为了能够管理这些资源，Windows必须给每一资源一个惟一的识别码，这个识别码就是handle(句柄)。其取值为一整型数，Windows通过这个数值来取用系统资源。,API函数简介,hWnd (handle of window)是特指窗口资源的句柄，取值是一个16位的内存地址。Visual Basic为窗口对象提供了hwnd属性，可通过hwnd属性来引用有关窗口。 Windows规定任何程序绘图之前都必须先配置一绘图专用的系统资源，通常是内存区，这个绘图专用的系统资源就是DC。凡是绘图程序一定要使用到这个DC。这个DC的识别码就是hDC（handle of Device Context），即设备上下文资源的句柄。Visual Basic为图形对象也提供了hDC属性，可通过hDC来执行图形操作。,声明API函数,1声明API函数 格式1： Declare Function Lib Alias (ByVal 参数1 As 类型,ByVal 参数2 As 类型) As 类型 格式2：Declare Sub Lib Alias (ByVal 参数1 As 类型,ByVal 参数2 As 类型) 如果该过程返回一个值，用格式1。如果该过程没有返回值，就用格式2。,API浏览器,最简单的声明API函数的办法是使用Visual Basic专门提供的预定义Windows API函数声明的【API浏览器】。 1 API浏览器的启动 有两种方法。 第一种方法：单击Windows的【开始】|【程序】|【Microsoft Visual Basic 6.0 中文版】|【Microsoft Visual Basic 6.0 中文版工具】|【API文本浏览器】 第二种方法：在Visual Basic界面中，单击【外接程序】菜单下的【外接程序管理器选项】，打开【外接程序管理器】对话框，如图9.2所示。双击【VB 6 API Viewer】，则其后显示“加载”两字后，单击【确定】按钮。当你再次单击【外接程序】菜单时，其下就多出一个选项【API浏览器】，单击即可打开【API浏览器】，如图9.3所示。,API浏览器,图9.2 【外接程序管理器】对话框,图9.3 【API浏览器】窗口,API浏览器,2 使用API浏览器声明函数 使用【API浏览器】声明函数的具体步骤为： （1）选择文件 在【API浏览器】中选【文件】菜单中的【加载文本文件】或【加载数据库文件】命令，系统会弹出对话框让你选择一个要查看的文本文件或数据库文件。例如我们选择Win32api.txt文件。 选择要查看的文本文件后，从【API 类型】列表中选择要查看的项的类型，例如声明、常数、类型等。,API浏览器,（2）选择函数 从【可用项】列表中选择想要复制的函数项，然后单击【添加】按钮，该项就出现在选定项列表框中。选定函数后，单击【声明范围】组中的【公用】或【私有】选项来指定该函数的作用域。若所声明的函数将复制到标准模块中，则【声明范围】选【公用】；若所声明的函数将复制到窗体模块中，则【声明范围】一定要选【私有】。 如果要从【选定项】列表框中删除一项，则可以先选中该项，然后单击【删除】按钮删除该函数。如果要删除【选定项】列表框中所有项，则可以单击【清除】按钮。也可以使 API 浏览器自动显示您上一次在其中查看的文件，方法是在它打开时，选择【视图】菜单下的【加载最后一个文件】。,API浏览器,（3）将选中的项复制到剪贴板中 选择好函数后，可以将这些函数的声明内容直接复制到内存剪贴板中，这样，当我们需要在模块中声明这些函数时，可以直接从剪贴板中获得。单击【复制】按钮，【选定项】列表框中的所有项将被拷贝到内存剪贴板中。 （4）将API函数的声明添加到工程 首先打开要使用API函数的Visual Basic工程，然后定位到将要放置API声明信息的模块。将光标插入点移动到将要粘贴声明信息的位置，然后单击【编辑】菜单中的【粘贴】命令，这样，在【API浏览器】中的函数声明语句将出现在该模块中，此后便可以在工程中使用这些函数了。,关于窗体 ShellAbout函数,Private Declare Function ShellAbout Lib “shell32.dlI“ Alias “ShellAboutA“ (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long HWnd设置窗口句柄，szApp设置窗口的“Caption”，szOtherStuff在“版权所有”和“使用权”之间的空白处增加额外说明， hIcon设置图标。,Private Sub Form_Load() Call ShellAbout(hWnd, “明日系列软件“, “ 欢迎访问网站:！“, Me.Icon) Unload Me End Sub,标题栏闪烁 flashwindow函数 通常对不活动的窗口应用这个函数，引起用户的注意 。,Private Declare Function FlashWindow Lib “user32“ (ByVal hwnd As Long, ByVal bInvert As Long) As Long Private Sub Command1_Click() FlashWindow Me.hwnd, 1 End Sub 该函数通常与一个计数器组合使用，生成连续的闪烁效果。,渐变窗体,Sub rgbtop(red, Green, Blue, aspect As Boolean) Dim a, i, x, y, y1, x1 As Integer a = (Me.Height / 100) If aspect = True Then y = 0 Else y = Me.Height - a End If x = 0 x1 = Me.Width y1 = y,For i = 1 To 100 Me.Line (x, y)-(x1, y1), RGB(red, Green,