[摘 要] 本文首先讲述在VB中运用Windows API的一般方法，然后结合本人编程经验从界面编程、多媒体编程、系统编程等方面举例讲述API的实际应用，最后讲述VB中API应用应注意的问题以及解决办法。
Windows API(应用程序接口)是Windows 视窗系统提供给用户进行系统编程和外设控制的强大的应用程序接口，灵活运用好Windows API将使用户的程序更专业，功能更强大。本文将从VB中API运用的一般方法、编程应用和应注意的问题及解决办法等三个方面讲述在VB中API的应用问题。
一、 VB中运用Windows API 的一般方法
Windows API提供给用户成千上万个系统功能调用的函数，功能十分强大，灵活有效运用它，能使用户实际中遇到的许多棘手问题迎刃而解。VB中没有提供直接调用API的功能，但VB中能通过声明API函数，从而有效使用API。下面是关于VB中使用API的一般方法：
1． 首先利用VB提供的API 浏览器查找到所需声明的API函数和常量定义，并复制该函数。（注：若用户无API浏览器，也可以从\VB\WINAPI\Winapi32.txt中直接复制所需API函数。）
2． 然后在VB中新增一个模块，并将前面复制的API函数和常量定义复制到模块中。
3． 最后在VB程序中就可以象VB自身的函数一样运用API函数。
二、VB中Windows API的编程应用
1．界面编程
1）示例一：创建不规则窗体
Win32 API 有很多让你意想不到的功能。要创建特殊的不规则窗口看上去似乎很难。 但我们运用API，则几行代码就可以实现，这似乎不可思议。但事实就是如此，不信看看吧！实现步骤：
（1 ） 建立一个新项目文件DEMO1.PRJ；
（2 ） 建立模块文件DEMO1.BAS.并在模块的声明部分加入以下代码：
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
'定义顶点结构
Public Type POINTAPI
X As Long
Y As Long
End Type
Public Dim XYPOINT() As POINTAPI
|
|
（3）在窗体Form1的Command1_Click处理程序中加入以下代码：
Private Sub Command1_Click()
'定义区域句柄
Dim hRgn As Long
Dim lRes As Long
'定义T型顶点坐标数组
ReDim XYPOINT(7) As POINTAPI 'T shape has 8 points
'确定T型顶点坐标的值
With Me
XYPOINT(0).X = 0
XYPOINT(0).Y = 0
XYPOINT(1).X = .ScaleWidth
XYPOINT(1).Y = 0
XYPOINT(2).X = .ScaleWidth
XYPOINT(2).Y = .ScaleHeight / 2
XYPOINT(3).X = .ScaleWidth - (.ScaleWidth / 3)
XYPOINT(3).Y = .ScaleHeight / 2
XYPOINT(4).X = .ScaleWidth - (.ScaleWidth / 3)
XYPOINT(4).Y = .ScaleHeight
XYPOINT(5).X = .ScaleWidth / 3
XYPOINT(5).Y = .ScaleHeight
XYPOINT(6).X = .ScaleWidth / 3
XYPOINT(6).Y = .ScaleHeight / 2
XYPOINT(7).X = 0
XYPOINT(7).Y = .ScaleHeight / 2
End With
hRgn = CreatePolygonRgn(XYPOINT(0), 8, 1)
lRes = SetWindowRgn(Me.hWnd, hRgn, True)
Me.BackColor = vbBlue
End Sub
|
|
（4）在窗体的Form_Unload处理程序中加入代码：
Private Sub Form1_DbClick()
Unload Me
End Sub
|
|
运行效果如下图：
2）示例二：游动的窗体
朋友，您使用过Linux吗？如果您使用过的话，那么Linux中那只游动的可爱小企鹅，一定忘不了。其实，该功能实现很简单，下面，笔者将带您一起来实现它。
实现步骤：
1． 建立新项目文件DEMO2.PRJ；
2． 建立模块文件DEMO2.BAS.并在模块中加入如下代码：
Public Declare Function GetCursorPos Lib "user32" (lpPoint As
POINTAPI) As Long
Public Type POINTAPI
X As Long
Y As Long
End Type
Public Oldx As Long
Public Oldy As Long
Public Newx As Long
Public Newy As Long
Public Pnt As POINTAPI
|
|
3．在窗体上加入一个时间控件Timer1_Timer处理程序中加入如下代码：
Private Sub Timer1_Timer()
Me.SetFocus
GetCursorPos Pnt
Oldx = Form1.Left
Oldy = Form1.Top
Newx = Pnt.X * 13.5
Newy = Pnt.Y * 13.5
incx = (Newx - Oldx) / 80 * 13.5
incy = (Newy - Oldy) / 80 * 13.5
Form1.Move Oldx + incx, Oldy + incy
End Sub
|
4．在Image1_DblClick处理程序中加入如下代码：
Private Sub Image1_DblClick()
Unload Me
End Sub
|
2．系统编程
1）示例一：屏蔽CTRL+ALT+DEL键
我们在编程中，为了达到特殊的要求，有时需要屏蔽功能CTRL+ALT+DLE，本示例程序将教你如何实现它。
实现步骤：
1．建立一个新项目，将其命名为DEMO3.vbp。
2．在Form1窗体的声明中加入以下代码：
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SCREENSAVERRUNNING = 97
|
3． 在Form1窗口的Command1_Click中加入以下代码：
Private Sub Command1_Click()
Dim r As Integer
Dim p As Boolean
If Command1.Caption = "屏蔽" Then
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, p, 0)
Command1.Caption = "有效"
Else
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
Command1.Caption = "屏蔽"
End If
End Sub
|
4． 在Form1窗体的Form_Unload中加入以下代码：
Form1_Unload()
Dim r As Integer
Dim p As Boolean
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
|
运行效果如下图：
2） 示例二：抓屏演示
本示例程序将演示如何拷贝屏幕图象。
实现步骤：
1． 建立一个新项目，将其命名为Demo4.vbp。
2． 增加模块Demo4.bas，在Demo4.bas中加入如下代码：
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
|
3. 在窗体Form1的Command1_Click处理程序中加入以下代码：
Private Sub Command1_Click()
Dim i As Long
Dim wScreen As Long
Dim hscreen As Long
Dim w As Long
Dim h As Long
Picture1.Cls
wScreen = Screen.Width \ Screen.TwipsPerPixelX
hscreen = Screen.Height \ Screen.TwipsPerPixelY
w = Picture1.ScaleWidth
h = Picture1.ScaleHeight
hdcScreen = GetDC(0)
i = StretchBlt(Picture1.hdc, 0, 0, w, h, hdcScreen, 0, 0, wScreen,
hscreen, vbSrcCopy)
Picture1.Refresh
End Sub
|
运行效果如下图：
3．多媒体编程：
1） 示例一：百叶窗效果
实现步骤：
1．建立一个新项目，将其命名为Demo5.vbp。
2．增加模块Demo5.bas，在Demo5.bas中加入如下代码：
Public Const SRCCOPY = &HCC0020
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
|
3．在窗体的声明部分加入代码：
Dim h, w As Integer
4．在窗体的Form_Load处理程序中加入代码：
Private Sub Form_Load()
Picture1.Move 0, 0
Picture2.Move 0, 0
h = Picture1.ScaleHeight
w = Picture1.ScaleWidth
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
End Sub
|
5．在窗体的Command1_Click处理代码中：
Private Sub Command1_Click()
Dim i, j, g As Integer
Picture2.Cls
For i = 0 To 50
For j = i To w Step 50
BitBlt Picture2.hDC, j, 0, 1, h, Picture1.hDC, j, 0, SRCCOPY
For g = 0 To 500
Next g
Next j
Next i
End Sub
|
6．在窗体的Command2_Click的处理程序中：
Private Sub Command2_Click()
Dim i, j, g As Integer
Picture2.Cls
For i = 0 To 50
For j = i To w Step 50
BitBlt Picture2.hDC, 0, j, w, 1, Picture1.hDC, 0, j, SRCCOPY
For g = 0 To 500
Next g
Next j
Next i
End Sub
|
7．在窗体的Picture1_Resize的处理程序中加入代码：
Private Sub Picture1_Resize()
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
End Sub
|
2）示例二：播放背景音乐
实现步骤：
1．建立一个新项目，将其命名为Demo6.vbp。
2．增加模块Demo6.bas，在Demo6.bas中加入如下代码：
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
|
3．在窗体的Form_load的处理程序中加入如下代码：
Private Sub Form_Load()
Dim back
back = mciSendString&("OPEN " + App.Path + "\TEST.MID" + " TYPE
SEQUENCER ALIAS NN", 0&, 0, 0)
back = mciSendString&("PLAY NN FROM 0", 0&, 0, 0)
R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub
|
4．在窗体的Command1_Click的处理程序中加入代码：
Private Sub Command1_Click()
Dim back
back = mciSendString&("CLOSE NN", 0, 0, 0)
End Sub
|
5．在窗体的Command2_Click的处理程序中加入代码：
Private Sub Command2_Click()
Dim back
back = mciSendString&("OPEN " + App.Path + "\TEST.MID" + " TYPE
SEQUENCER ALIAS NN", 0&, 0, 0)
back = mciSendString&("PLAY NN FROM 0", 0&, 0, 0)
R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub
|
运行效果如下图：
三、VB中API应用应注意的问题及其对策
使用API函数的VB程序员也许都遇到这样的现象。在VB集成环境下，程序运行后，出 现一错误信息对话框，按确定键后系统自动退出VB集成环境，此时如果你的程序尚未存盘，那末很遗憾挽回损失已回天乏力。这是你对API函数使用不当引起的一般保护故障（GPF）。
当一个GPF错发生时，你应允许Windows关闭你的应用。有些情况下你可能需要退出Windows或者重新引导系统，出错程度视内存被破坏程度而定。DLL（动态链接库）函数中的类型不一致等错误是引起GPF错误的主要原因。下面谈谈避免GPF的一些技巧：
用别名来提供强类型检查是避免GPF的有效措施之一。有些情况下，DLL函数可以接受多种类型，LoadCursor函数就是这样一个例子，其定义如下：HCursor LoadCursor（hInstance，lpCursorName）。这里HCursor是一个指向光标对象的１６位句柄，hInstance是一个１６位实例句柄，lpCursorName是光标的名字或者是光标资源的３２位整数ID。为了支持两种类型的lpCursorName参数。VB有必要包含如下两个声明：
DeclareFunction LoadCursor Lib＂USER＂（ByVal hInstance As Integer，ByVal lpCursorName As String）As Integer
DeclareFunction LoadCursor Lib＂USER＂（ByVal hInstance As Integer，ByVallpCursorName As Long）As Integer
|
但是，这两个声明不能在一个程序中同时存在，因为Visual Basic会报重复声明错。我们知道，As Any声明可使得任何参数都可以传递给DLL函数，因此可以如下声明：
DeclareFunction LoadCursor Lib＂USER＂（ByVal hInstance As Integer ，ByVal lpCursorName As Any ）As Integer
上述声明意味着Visual Basic能支持一个参数可接受多种类型的DLL函数，然而这就可能带来各种灾难性的后果，每当偶然情况下用不正确的参数调用该函数时，都可以引发一个GPF，我们可以这样进行严格的类型检查并且帮助防止这类问题。这种方法就是在函数的声明中使用Alias技巧，看看下面的两个声明：
DeclareFunction LoadCursorByName Lib＂USER＂Alias ＂LoadCursor＂（ByVal hInstance As Integer，ByVal lpCursorName As String）As Integer
DeclareFunction LoadCursorByID Lib＂USER＂Alias ＂LoadCursor＂（ByVal hInstance As Integer ，ByVallpCursorName As Long）As Integer
|
LoadCursorByName用字符串做lpCursorName参数访问DLL函数LoadCursor，而函数LoadCursorByID访问同样的DLL函数LoadCursor，但是用长整型做lpCursorName参数，这两个函数都对lpCursorName参数进行严格的类型检查，使Visual Basic能在调用DLL函数之前识别出不正确的变量类型，最大限度地减少引起GPF或者导致系统崩溃的机会。除此之外，使用API函数时运行之前最好先存盘，仔细检查调用API函数的参数与声明的类型是否一致，以及严格检查参数是否有效都能减少引发GPF或者系统崩溃。
|
