vb学习教程 8.ppt

1、第八章,使用Win32 API增强程序功能,2,回顾,ADO对象模型； 使用ADO命令对象、参数对象和参数集对象； 使用ADO命令对象访问数据库的存储过程； 使用ADO进行数据库的事务处理； 二进制文件的磁盘读写操作； 二进制数据的数据库方式的存取操作；,3,目标,理解 Win32 API 的概念； 通过API浏览器查看和使用Win32 API ； 理解Win32 API的参数传递规则； 使用常见Win32 API与操作系统实现交互；,4,Win32 API 概述 2 - 1,Windows API （应用程序编程接口）实际上是 Windows 为编程人员提供的一组 Windows 操作系统函

2、数； 可以从 Visual Basic 调用这些函数，以执行标准 VB 代码无法执行的任务。 通过Windows API调用，可以在VB环境执行此任务。,5,Win32 API 概述 2 - 2,Declare Function publicname Lib libname Alias alias (ByVal variable As type ,ByVal variable As type.) As Type Declare Sub publicname Lib libname Alias alias (ByVal variable As type ,ByVal variable As ty

3、pe.),6,应用程序与操作系统的交互,7,Win32 API 的分类,Windows API 按功能可分为以下几类： Windows 管理 图形设备接口 系统服务 多媒体,8,使用API文本浏览器 4 - 1,9,使用API文本浏览器 4 - 2,10,使用API文本浏览器 4 - 3,11,使用API文本浏览器 4 - 4,12,在应用程序中使用 Win32 API,Public Declare Function mciGetDeviceID Lib winmm.dll Alias _ mciGetDeviceIDA (ByVal lpstrName As String) As Long,

4、13,API函数的参数传递 4 - 1,数字类型； 字符类型； 自定义数据类型； ANY类型；,14,API函数的参数传递 4 - 2,数字类型；,Declare Function GetFileSize Lib kernel32 Alias GetFileSize (ByVal hFile As Long, lpFileSizeHigh As Long) As Long Dim hFile As Long DimlenFile As Long hFile = OpenFile() ret = GetFileSize ( hFile, lenFile ),15,API函数的参数传递 4 - 3

5、,字符类型；,Public Declare Function GetWindowsDirectory Lib kernel32 Alias GetWindowsDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long Dim strWindirec As String Dim lngLeng As Long strWindirec = Space(255) lngLeng = GetWindowsDirectory(strWindirec, Len(strWindirec) strWindirec = Left(str

6、Windirec, lngLeng) strWindirec = strWindirec & MsgBox Windows目录为:& strWindirec,16,API函数的参数传递 4 - 4,自定义数据类型；,Type POINTAPI x As Long y As Long End Type Declare Function GetCursorPos Lib user32 Alias GetCursorPos (lpPoint As POINTAPI) As Long Dim p As POINTAPI ret = GetCursorPos ( p ) Print p.x, p.y,1

7、7,Win32 API注册表函数 2 - 1,RegCreateKeyEx() RegDeleteKey() RegCloseKey() RegDeleteValue() RegOpenKeyEx() RegSaveKey(),18,Win32 API注册表函数 2 - 2,演示访问系统注册表,19,例子：使用Win32 API 9 - 1,任务栏,程序指示器,20,例子：使用Win32 API 9 - 2,21,例子：使用Win32 API 9 - 3,22,例子：使用Win32 API 9 - 4,23,例子：使用Win32 API 9 - 5,frmSplash窗体的代码 frmAbou

8、t窗体的代码,代码说明和演示,24,modServerMain 的代码,例子：使用Win32 API 9 - 6,代码说明和演示,25,modTaskManager的代码,例子：使用Win32 API 9 - 7,代码说明和演示,26,modWinMsgManager的代码,例子：使用Win32 API 9 - 8,代码说明和演示,27,例子：使用Win32 API 9 - 9,运行演示,28,总结 2 - 1,Windows API（即应用程序编程接口）实际上是 Windows 为编程人员提供的一组 Windows 操作系统函数，可以从 Visual Basic 调用这些函数，大大扩充程序的功能； API 函数已编译在单独的文件中，要使用这些函数，需要添加一些定义这些函数（Visual Basic 外部的函数）的代码行； Visual Basic 附带了一个名为 API 浏览器的工具，使用此工具，可以方便快捷地查阅、添加 API 函数、结构和常量； Win32 API 函数是在 Visual Basic 应用程序代码窗口的“声明部分”使用关键字 Declare 声明的；,29,总结 2 - 2,API 函数中的参数有