全面讨论VB.NET申明WindowsAPI函数

VB.NET还是比较常用的,于是我研究了一下VB.NET申明Windows API函数,在这里拿出来和大家分享一下,希望对大家有用。VB.NET查看文件中图标的函数及VB.NET申明Windows API的方法:

十年的赤峰林西网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。全网营销推广的优势是能够根据用户设备显示端的尺寸不同,自动调整赤峰林西建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“赤峰林西网站设计”,“赤峰林西网站推广”以来,每个客户项目都认真落实执行。

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

1.使用DllImport特征类来申明Windows API函数:

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

 
 
 
  1. '函数ExtractIcon,其功能是是从指定文件的指定位置导出图标的Windows句柄。  
  2. < System.Runtime.InteropServices.DllImport ( "Shell32.dll" , EntryPoint := "ExtractIcon" ) > _  
    Public Function _  ExtractIcon ( ByVal src As System.IntPtr , ByVal strFileName As string , 
    ByVal uiIconIndex As UInt32 ) As System.IntPtr  
  3. End Function  
  4. '函数Icon_Num,其功能是获得指定文件中的图标数目  
  5. < System.Runtime.InteropServices.DllImport ( "Shell32.dll" , EntryPoint := "ExtractIcon" ) > _  
    Public Function _  Icon_Num ( ByVal src As System.IntPtr , ByVal strFileName As string , 
    ByVal uiIconIndex As Integer ) As Integer  
  6. End Function 

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

 
 
 
  1. < System.Runtime.InteropServices.DllImport ( "Shell32.dll" ) > _  
    Public Function _  ExtractIcon ( ByVal src As System.IntPtr , 
    ByVal strFileName As string , ByVal uiIconIndex As UInt32 ) As System.IntPtr  
  2. End Function 

2.使用“Declare”语句来申明Windows API函数:

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

 
 
 
  1. Declare Auto Function ExtractIcon Lib "Shell32.dll" Alias "ExtractIcon" 
    ( ByVal src As System.IntPtr , ByVal strFileName As string , 
    ByVal uiIconIndex As UInt32 ) As System.IntPtr  
  2. '声明ExtractIcon函数  
  3. Declare Auto Function Icon_Num Lib "Shell32.dll" Alias "ExtractIcon" 
    ( ByVal src As System.IntPtr , ByVal strFileName As string , 
    ByVal uiIconIndex As Integer ) As Integer  
  4. '声明Icon_Num函数 

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

 
 
 
  1. Declare Auto Function ExtractIcon Lib "Shell32.dll" ( ByVal src As System.IntPtr , 
    ByVal strFileName As string , ByVal uiIconIndex As UInt32 ) As System.IntPtr 

本文标题:全面讨论VB.NET申明WindowsAPI函数
文章路径:http://www.stwzsj.com/qtweb/news11/13461.html

网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

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