VB.NET如何申明Windows API函数

小编给大家分享一下VB.NET如何申明Windows API函数，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！

VB.NET查看文件中图标的函数及VB.NET申明Windows API的方法：

VB.NET要实现查看文件中的图标，目前只使用.Net FrameWork SDK是无法实现这种功能的，正如前面所说，主要是由于.Net FrameWork SDK推出的时间较短，其功能还不可能面面俱到。解决问题的关键是正确使用Windows API函数，其中所涉及到的Windows API函数主要有二个：其一是获得指定文件中的图标数目；其二是从指定文件的指定位置导出图标的Windows句柄。这二个函数都位于 “Shell32.dll”文件中，并且函数的入口点都为“ExtractIcon”。下面是在VB.NET中分别使用DllImport特征类和“Declare”语句申明这二个Windows API函数的具体方法。

使用DllImport特征类来申明Windows API函数：

下面是在VB.NET中使用DllImport特征类申明二个Windows API函数的具体示例：

'函数ExtractIcon，其功能是是从指定文件的指定位置导出图标的Windows句柄。  
＜ System.Runtime.InteropServices.DllImport ( "Shell32.dll" , EntryPoint := "ExtractIcon" ) ＞ _  
Public Function _  ExtractIcon ( ByVal class="lazy" data-src As System.IntPtr , ByVal strFileName As string , 
ByVal uiIconIndex As UInt32 ) As System.IntPtr  
End Function  
'函数Icon_Num，其功能是获得指定文件中的图标数目  
＜ System.Runtime.InteropServices.DllImport ( "Shell32.dll" , EntryPoint := "ExtractIcon" ) ＞ _  
Public Function _  Icon_Num ( ByVal class="lazy" data-src As System.IntPtr , ByVal strFileName As string , 
ByVal uiIconIndex As Integer ) As Integer  
End Function 

在使用DllImport特征类申明Windows API函数时，如果申明的函数名称和函数的入口点相同，则可以在VB.NET申明Windows API函数时，省略定义函数入口点对应的代码，即EntryPoint对象字段对应的代码，这样声明ExtractIcon函数的代码也可以简化为如下所示：

＜ System.Runtime.InteropServices.DllImport ( "Shell32.dll" ) ＞ _  
Public Function _  ExtractIcon ( ByVal class="lazy" data-src As System.IntPtr , 
ByVal strFileName As string , ByVal uiIconIndex As UInt32 ) As System.IntPtr  
End Function 

使用“Declare”语句来申明Windows API函数：

使用“Declare”语句的确比使用DllImport特征类要简单了许多，下面是在VB.NET中使用“Declare”语句来声明上述二个Windows API函数的具体方法：

Declare Auto Function ExtractIcon Lib "Shell32.dll" Alias "ExtractIcon" 
( ByVal class="lazy" data-src As System.IntPtr , ByVal strFileName As string , 
ByVal uiIconIndex As UInt32 ) As System.IntPtr  
'声明ExtractIcon函数  
Declare Auto Function Icon_Num Lib "Shell32.dll" Alias "ExtractIcon" 
( ByVal class="lazy" data-src As System.IntPtr , ByVal strFileName As string , 
ByVal uiIconIndex As Integer ) As Integer  
'声明Icon_Num函数 

在VB.NET申明Windows API函数时，“Declare”语句中Alias关键字的作用相当于使用DllImport特征类中的EntryPoint对象字段。同样在使用 “Declare”语句声明Windows API函数时，如果声明的函数和函数的入口点相同，也可以省略Alias关键字对应的代码，所以ExtractIcon函数也可以简化为如下：

Declare Auto Function ExtractIcon Lib "Shell32.dll" ( ByVal class="lazy" data-src As System.IntPtr , 
ByVal strFileName As string , ByVal uiIconIndex As UInt32 ) As System.IntPtr 

以上是“VB.NET如何申明Windows API函数”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注编程网行业资讯频道！