简单说明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

#T#这里应该引起注意的是，你应该把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

将从调试窗口打印鼠标指针的当前坐标

VB 中的坐标系统比较丰富，有Twip、Point、Pixel、 Character、Inch、Millimeter、Centimeter和User。很复杂吧？在这里我要说的是Twip和Pixel，至于剩下的，由于和本文所说的应用无多大关系，请参考MSDN或相关书籍。

标题名称：简单说明VB.NET自定义类型在API中使用
标题来源：http://www.mswzjz.cn/qtweb/news6/334356.html

攀枝花网站建设、攀枝花网站运维推广公司-贝锐智能，是专注品牌与效果的网络营销公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：贝锐智能

贝锐智能技术为您推荐以下文章