VB第七章功能扩充及对机电系统的控制.pptVIP

第七章 功能扩充及对机电系统的控制 §7.1 VB功能扩充（API函数调用） §7.2 对机电系统的控制 §7.1 VB的功能扩充 一、API函数的调用方法 二、API函数的使用 API函数的调用方法 API函数的概念 Application Programming Interface，是由Windows提供的一组函数，用C语言编写，有1000多个函数 由若干DLL提供，存放在Windows\System目录下，主要有 GDI32.DLL ：图形函数 USER32.DLL：用户接口函数 KERNEL32.DLL：系统核心函数 ADVAPI32.DLL：扩展函数 API函数的声明 API浏览器的使用(API Text Viewer) API函数的声明 [Public|Private] Declare Function 函数名 Lib 库名 [Alias 别名] (参数表) As 类型 Public Declare Function ExitWindowsEx Lib User32.dll (Byval nFlags As Long, Byval dwReserved As Long) As Long Public Declare Function GetUserName Lib Adapi32.dll Alias GetUserNameA (ByVal lpBuffer As String,nSize As Long) As Long 说明 别名为API源函数的C语言函数名称，新声明的函数名可与之不同，如果相同，则可省略Alias 别名 库可以是DLL，也可以是其它，如果是DLL库，可以省略.dll API函数的参数传递大多采用按值传送(ByVal) API函数调用前，一般还需要定义相应的常量，如对ExitWindows函数，需要定义： Public Const EWX_LOGOFF=0 Public Const EWX_SHUTDOWN=1 Public Const EWX_REBOOT=2 Public Const EWX_FORCE=3 Declare语句尽量放在一行 API函数的声明一般放在模块文件中进行 API Text Viewer 文件---加载文件----选择“Win32api.txt” 在API类型处选择“声明”（“常量”、“类型”） 在“键入您所要查找的内容的开头几个字母”文本框中，输入需要用的API函数（常量、类型）的头几个字母，浏览器定位到所需函数（常量、类型）位置 双击函数（常量、类型）名称，则其声明出现在“选定项”中 点击“拷贝”按钮，将“选定项”中的所有选择内容送入剪贴板 在VB的模块文件中，粘贴即可 API函数使用 经过声明后的API函数，与VB普通函数一样使用 注意参数类型匹配 对String类型的参数，应定义为定长字符串来接受参数 Dim strUserName As String*256, UserName1 As String , lName As Long lName=256 If GetUserName(strUserName,lName)=0 Then UserName1=Unknown Else UserName1=Left$(strUserName,lName-1) End If API函数中使用的hDC 、hWnd参数，可由Form、Picture等对象的相应属性提供 示例 建立椭圆窗口 拖动没有标题栏的窗口 建立MostOnTop窗口 建立图标菜单 建立椭圆窗口 代码 Public Declare Function CreateEllipticRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As Long, X2 As Long,Y2 As Long) As Long Public Declare Function SetWindowRgn Lib gdi32 (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) _ As Long …. Sub Form_Load() SetWindowRgn hWnd, CreateEllipticRgn(50,50,320,200),True End Sub 说明 CreateEllpiticRgn函数用于产生一个椭圆区域，返回产生的区域句柄，参数如下（单位为像素） X1,Y1：外切椭圆的矩形左上角坐标 X2,Y2：外切椭圆的矩形的右下角坐标