| 第一节：API基础API说到底就是一系列的底层函数，是系统提供给 用户用于进入操作系统核心，进行高级编程的途径。通 过在Visual Basic应用程序中声明外部过程就能够 访问Windows API(以及其它的外部DLLs)。在声明 了过程之后，调用它的方法与调用Visual Basic自 己的过程相同。要声明一个DLL过程，需要在代码窗 口的"声明"部分增加一个Declare语句，如果该过 程返回一个值，应将其声明为Function。例如：Declare Function publicname Lib "libname" [Alias "alias"] [([[ByVal] variable [As type] [,[ByVal] variable [As type]]...])] As Type如果过程没有返回值，可将其声明为Sub。缺省情况下，在标准模块中声明的DLL过程，可 以在应用程序的任何地方调用它。在其他类型的模块 中定义的DLL过程是模块私有的，必须在它们前面 加上Private关键字，以示区分。特别提请注意的 是，在32位的Visual Basic中过程名是区分大小 写的。而在以前的16位版本中并不区分大小写，这 是初学者容易出错的地方。Declare语句中的Lib子句用来告诉Visual Basic如何找到包含该过程的dll文件。如果引用的过 程属于Windows核心库(User32、Kernel32或 GDI32)，则可以不包含文件扩展名。例如：Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount"() As Long。对于其它DLL， Lib子句须指定文件的路径及扩展名。如果调用的Windows API过程要使用字符串，那 么在声明语句中必须增加一个Alias子句，以指定 正确的字符集。包含字符串的Windows API函数实 际有两种格武ANSI格式Unicode格式。因此，在 Windows头文件中，每个包含字符串的函数都同时有 ANSI版本和Unicode版本。例如，下面是SetWindowText函数的两种C语言描 述。可以看到，第一个描述将函数定义为SetWindowTextA, 尾部的"A"表明它是一个ANSI函数：SetWindowTextA(HWND hWnd,LPCSTR lpString);第二个描述将它定义为SetWindowTextW，尾部的 "w"表明它是一个Unicode函数：SetWindowTextW(HWND Hwnd,LPCWSTR lpString);因为两个函数实际的名称都不是"SetWindow Text"，要引用正确的函数就必须增加一个Alias子句：Private Declare Function SetwindowText Lib "user32" Alias "SetWindowTextA"(ByVal hwnd As Longg，ByVal lpString As String) As Long请注意， Alias子句后面的字符串必须是过程的 真正名称，必须是区分大小写的。事实上，您只需要 记住，只有Windows NT才支持Unicode格式，而 Windows 95只支持ANSI格式就行了。至于两者的区 别，作一般的应用程序开发是不需要了解的。VB5专业版在VB目录的/Winapi子目录下，用几 个文件提供了关于API的信息。 Win32api.txt文件中 包含了32位Windows API函数中用到的函数和类型的 结构声明以及全局常量的值。用户可以用VB本身带的外 接程序"API浏览器"来方便地使用Win32api．Txt，如下 所示：点击菜单文件项的"加载文本文件…"从VB目 录下的WINAPI目录中选择"WIN32API.TXT"，就可以 查看WINDOWS 95系统的API函数的声明、常数定义和 数据类型了。例如，我们打算查看函数InverRect() 的声明。首先，点击"搜索"按钮，输入字符串 "InverRect"。在"可选项"栏中，兰色的亮度条将移 动到"InverRect"项上。再点按"添加"按钮，在"选 定项"中就出现"InverRect"在Visual Basic中的 声明了。接下来自然是点按"复制"按钮，然后将窗 口切换到Visual Basic开发环境中，在需要声明API 函数的地方Ctrl＋V（粘贴）即可。上面所讲的声明方法虽然简单，但只有使用WIN DOWS本身的API函数才能这样。对于第三方提供的动 态链接库（DLL）您只有用键盘老老实实地敲了。第二节：牛刀小试现在读者一定很想自己亲自试一下，下面举两个 实际应用的例子让大家体会一下API的妙用吧！1．使一个窗体始终保持在屏幕的最上面我们知道VB本身自带的函数是难以完成此功能 的，我们可以通过调用Windows的API函数： SetWindowPos达到我们的要求。操作步骤如下：（1）启动VB5建立一个新工程，在该工程中添加一 个模块（Moudel），在该模块中用上述的"API例览器" 添加如下的该API函数的函数声明和常量声明部分：'API函数声明Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long'常量声明Global Const SWP_HIDEWINDOW = &H80Global Const SWP_NOACTIVATE = &H10Global Const SWP_NOCOPYBITS = &H100Global Const SWP_NOMOVE = &H2Global Const SWP_NOOWNERZORDER = &H200Global Const SWP_NOREDRAW = &H8Global Const SWP_NOREPOSITION = SWP_NOOWNERZORDERGlobal Const SWP_NOSIZE = &H1Global Const SWP_NOZORDER = &H4Global Const SWP_SHOWWINDOW = &H40Global Const HWND_BOTTOM = 1Global Const HWND_BROADCAST = &HFFFF&Global Const HWND_DESKTOP = 0Global Const HWND_NOTOPMOST = -2Global Const HWND_TOPMOST = -1Global Const HWND_TOP = 0Global Const Flags=SWP_NOMOVE Or SWP_NOSIZE这里以"SWP_"开头的常量是表示窗体所具有的 风格，这些常量可以通过VB中的"OR"操作符组合在 一起。而以"HWND_"开头的常量表示窗体在桌面上的 位置。从这些常量的英文单词的意义上读者应该很容 易理解他们所具有的风格了。所以笔者就不一一去说 明了。至于为什么要添加这些常量而不是别的这就要 您去查看Windows SDK关于该函数的帮助文档了。当 然这对于初学者来说有一定的难度，但不要畏惧，只 要您仔细看帮助就会慢慢搞懂的。因为这些API函数 是为C和C＋＋的编程人员编写的，所以如果您懂一点 C++的话会很容易理解的。（2）现在只要在您想要此功能的地方调用该函数 就可以了，调用的方法如：Dim Success as LongSuccesS＝SetwindowPos(me.HWnd. HWND_TOPMOST,0,0,0,0,FLAGS)若Success返回的值不等于零则表示调用成功。比如在某个窗体的Load事件中加入上述的两行代 码，就可以达到使该窗体始终位于屏幕最上面的目的。细心的读者可能已经发现上面的例子中的模块声 明中声明了好几个常量，可为什么只用到三个呢？现 在您可以试着改变一下API函数"SetWindowPos"中 的第二个参数或常量FLAGS中的项，看看您的窗体会 出现什么样的效果？2．VB5中如何屏蔽掉win95中的CTRL_ALT_DEL， CTRL_ESC, ALT_TAB三组热键通过调用API函数"SystemParametersInfo"来实 现。首先创建一新工程；在此工程中添加一个窗体和 一个模块；在窗体上拖放两个按钮分别命名为 "cmdDisable","cmdEnable"；Copy如下代码入模块中：Public Declare Function SystemParametersInfo Lib "user32" Ahias "SystemParametersInfoA" (ByVal uAction As Long,ByVal uParam As Long, lpvParam As Any，ByVal fuWinIni As Long)AS LongPublic Const SPI_SCREENSAVERRUNNING=97在窗体的代码编辑区Copy如下代码：'使三组热键失效Private Sub cmdDisable_click()SystemParametersInfoSPI_SCREENSAVERRUNNING,True,byVal 1&,0End SubPrivate Sub Form_Unload(Cancel As Integer)'程序退出前是热键有效CndEnable_ClickEnd Sub若将此功能和屏幕保护程序结合到一起，那您的屏幕 保护程序一定增色许多。API函数的简单调用例子就是这么容易，相信现在您 对API的调用已不再感到神秘了，接下来我们就看看一个 比较复杂的应用。第三节：高手进阶上面的关于API的调用的例子只是为了带您去Win dows API世界中去探索一下。相信您已探索到了一点眉 目并想去实现一些更"好玩"的东西了。好！下面就向您 介绍一个很"好玩"同时又会使您的程序看起来更专业化 的一个API调用。相信您的机器上一定装有"金山词霸"，试着启动它 您发现了什么？启动画面过后它"不见了"。把鼠标移到 桌面的右下角，原来它以图标的形式"藏在" Windows 的托盘中。用鼠标右击它还会弹出一个菜单功能项供您 选择。现在您一定想把自己的程序也放到托盘，这样您的 程序多具有专业水准！下面是此功能的实现步骤：1．这里我们调用的API函数是： "Shell_NotifyIcon"，在您的模块中添加如下的函数声明 和常量声明：'以下常量告诉系统在托盘中您的图标上发生了什么 操作'常量声明Public Const WM_MOUSEMOVE = &H200 '在图标上移动鼠标Public Const WM_LBUTTONDOWN = &H201 '鼠标左键按下Public Const WM_LBUTTONUP = &H202 '鼠标左键释放Public Const WM_LBUTTONDBLCLK = &H203 '双击鼠标左键Public Const WM_RBUTTONDOWN = &H204 '鼠标右键按下Public Const WM_RBUTTONUP = &H205 '鼠标右键释放Public Const WM_RBUTTONDBLCLK = &H206 '双击鼠标右键Public Const WM_SETHOTKEY = &H32 '响应您定义的热键'API函数声明Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long'自定义一个调用API Shell_NotifyIcon要用到的类 型"NOTIFYICONDATA"Public Type NOTIFYICONDATAcdSize As Long 'NOTIFYICONDATA类型的大小hwnd As Long '你的应用程序窗体的名柄uId As Long '应用程序图标资源的ID号uFlags As Long '使那些参数有效它是以下枚举类型中的'NIF_MESSAGE、NIF_ICON、NIF_TIP三组的组合uCallbackMessage As Long '鼠标移动时把此消息发给该图标的窗体hIcon As Long '图标名柄szTip As String*64 '当鼠标在图标上时显示的Tip文本End Type'这是一个枚举类型它告诉API Shell_NotifyIcon去做什么操作Public Enum enm_NIM_ShellNIM_ADD=&H40 '在“金碟”中加一图标NIM_MODIFY=&H1 '修改“金碟”中的图标NIM_DELETE=&H2 '删除“金碟”中的图标NIF_MESSAGE=&H1 '使类型"NOTIFYICONDATA"中的uCallbackMessage有效NIF_ICON=&H2 '使类型"NOTIFYICONDATA"中的hIcon有效NIF_TIP=&H4 '使类型"NOTIFYICONDATA"中的szTip有效WM_MOUSEMOVE=&H200 '使鼠标移动消息有效End Enum'定义一个"NOTIFYICONDATA"类型的变量Public nidProgramData As NOTIFYICONDATA以上是函数及常量声明和自定义的一个类型变量，下 面是此API函数的调用方法：2. 在窗体上用菜单编辑一个具有如下信息的菜单项：主菜单：无标题、名称(mainMenu)子菜单：标题(API编程)、名称(submnul);标题(退出)、名称(submnu2).这里只是举个例子，具体的功能你可以根据你的具体需要来编辑此菜单项3. 在窗体的Load事件中添加如下代码：Private Sub Form_Load()'隐藏窗体With Me.Top =-10000.Left = -10000.WindowState = vbMinimizedEnd With'设置类型NOTIFYICONDATA所具有的特征With nidprogramData.cbSize = Len(nidProgramData).hwnd = Me.hwnd .uld = vbNull.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE'触发鼠标移动消息.uCallbackMessage = WM_MOUSEMOVE.hIcon = Me.Icon '“托盘”中放入窗体图标，你可以把窗体的图标换成你所喜欢的图标.szTip ="VB 的 Win32 API 编程" & vbNullCharEnd With'调用该函数Shell_NotifyIcon NIM_ADD,nidprogramDataEnd Sub'根据不同的鼠标消息做不同的操作Private Sub Form_MouseMove(Button As inte ger, Shift As lnteger, x As Single, Y As Single)On Error GoTo Form_MouseMove_err:Dim Result As LongDim msg As Long'X的值依赖与显示模式的设置If Me.ScaleMode = vbpixels Thenmsg = xElsemsg = x/Screen.TwipsPerPixe1XEnd IfSelect Case msgCase WM_LBUTTONUP'在这里加入鼠标左键释放时你想做的操作Case WM_LBUTTONDBLCLK'在这里加入双击鼠标左键时你想做的操作Case WM_RBUTTONUP'通常这里弹出你的功能菜单PopupMenu mainMenuCase WM_MOUSEISMOVING'在这里加入鼠标正在移动时你想做的操作End SelectExit SubForm_MouseMove_err:'在这里加入你的处理异常错误的代码End Sub4.Run你的程序，您是不是看到了象“金山词霸”一样的功能？相信你此时的感觉一定特别“爽”！ |
|
|
