第七章 可视化应用.ppt

第七章 可视化应用 教学要求—通过本章的学习，要求掌握建立多文档界面程序的一般过程，以及API函数的调用方法和多媒体程序的设计。 教学提示—由于篇幅的限制，RMI设计在本章未作详细介绍。 主要内容—建立MDI程序的一般过程以及多文档设计中常用的属性、事件及方法；API函数的声明、使用；MMControl控件的属性、事件及方法。 （一）声明API函数 由于API并不是VB内建的函数，所以我们不能在VB中直接使用，在使用前必须要先声明。 在VB中API函数有两种形式: 1.在某个窗体中API函数 2. 在多个窗体中声明API函数 声明的语法格式： Private Declare［ Function ｜Sub］ 名称 Lib “函数库”［Alias “函数名称”］ ［（［参数行］）］［AS 返回值类型］ 这里必须采用Private声明，因为这个API函数只能被一个窗体内的程序所调用。 提醒:这里必须采用Private声明,因为这个API函数只能被一个窗体内的程序所调用。  2. 在多个窗体中声明API函数如果我们的程序有多个窗体构成，而且我们需要在多个窗体中使用同一个API函数，就需要在模块中声明了。先添加“工程”下拉菜单中的“添加模块”命令，添加一个模块。然后采用如下语法声明格式： Public Declare［ Function ｜Sub］ 名称 Lib “函数库”［Alias “函数名称”］ ［（［参数行］）］［AS 返回值类型］ Public声明的含义是把API函数作为一个公共函数或过程，在一个工程中的任何位置（包括所有的窗体和模块）都能直接调用它。 声明完毕我们就能在程序中使用此API函数了。 说明： (1) Declare 语句用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。对此，你只要记住任何API函数声明都必须写这个语句就可以了。 (2) 参数“名称”必需,在程序中用于识别过程的名称。 (3) 参数“Lib” 指明包含所声明过程或函数的动态链接库或代码资源。也就是说，它说明的是，函数或过程从何而来的问题。 (4) 参数“函数库”必需,所声明的过程动态链接库名或者代码资源名。 (5) 参数 Alias 是可选的。表示将被调用的过程在动态链接库 (DLL) 中还有另外的名称(别名)。 (6) 参数“函数名称”是可选,动态链接库或代码资源中的过程名。 (7) API函数的参数中最常见的是Long长整型数据类型，例如API中的句柄、一些特定的常量、函数的返回值都是此类型 的值；另外几种常见的参数类型有：整型Integer、Byte型、String型等。 （二）使用API函数 可采用以下几种方式使用API函数，以SetWindowPos函数为例： 1.忽略函数返回值的调用 SetWindowPos Form1.hWnd, -2 ,0 ,0 ,0, 0, 3 提醒： 注意此时函数的参数是不加括号的。 2.Call方法调用： Call SetWindowPos(Form1.hWnd, -2, 0, 0, 0, 3) 提醒： 注意这里需要加上括号，但我们不需要取函数的返回值。 3.取得函数返回值的调用： MyLng = SetWindowPos(Form1.hWnd, -2, 0, 0, 0, 3) 提醒： 此时需要加上括号，而且我们必须事先定义一个变量（变量的类型与函数返回值的类型相同）来存储API函数的返回值。 例题7-3使用API函数，测试鼠标指针在屏幕中所处的位置并输出结果。 操作步骤如下：1. 首先运行VB，然后新建一个工程（工程类型为标准EXE），然后双击Form1窗体，进入代码输入框，在其中输入： Private Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As Long Private Type POINTAPI 定义点(Point)结构 X As Long 点在X坐标(横坐标)上的坐标值 Y As Long 点在Y坐标(纵坐标)上的坐标值 End Type Sub PrintCursorPos() Dim dl As Long Dim MyPoint As POINTAPI dl = GetCursorPos(MyPoint) 调用函数，获取屏幕鼠标坐标