简单说明VB.NET自定义类型在API中使用

随着时代的发展，VB.NET技术也随着发展,我在前面已经提到过VB.NET自定义类型，这次我用一个简单的API来说明一个VB.NET自定义类型在API中的使用。VB.NET自定义类型规定了变量传递给函数或子程序时必须按引用来传递（关于按引用传递与按值传递，将在以后的文章中做详细介绍），因此下面这个API的声明，你会发现和前面所介绍的几个有少许不同。

Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long 

相比上一话中的一个API：

Public Declare Function GetSystemDirectory Lib "kernel32" Alias 
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 

可发现参数前面少了个ByVal。如果不加ByVal，或者把ByVal换成ByRef，就是按引用传递。POINTAPI不是VB的标准数据类型，它是一个自定义类型。从API浏览器中我们得到它的定义原形是这样的：

Public Type POINTAPI  


x As Long  


y As Long  


End Type 

这里应该引起注意的是，你应该把POINTAPI的定义写在使用它的函数声明之前，否则VB会认为你的类型未定义。你也不可以把 x As Long 和 y As Long 的位置对调，如果对调了，在这个API中最多只会使原本 x 的值变成 y 的值，y 的值变成 x 的值，但在更复杂的自定义类型中，结果就不可预知了。这个API的作用是得到鼠标指针在屏幕中的坐标(以像素为单位)。你可以在自己的程序中试验它，比如:

Dim tCursor As POINTAPI  


GetCursorPos tCursor  


Debug.Print tCursor.x, tCursor.y