VB.NET經(jīng)過長時間的發(fā)展，很多用戶都很了解VB.NET Windows API函數(shù)了，這里我發(fā)表一下個人理解，和大家討論討論。VB.NET要實現(xiàn)查看文件中的圖標，目前只使用.Net FrameWork SDK是無法實現(xiàn)這種功能的，正如前面所說，主要是由于.Net FrameWork SDK推出的時間較短，其功能還不可能面面俱到。

#T#解決問題的關鍵是正確使用Windows API函數(shù)，其中所涉及到的Windows API函數(shù)主要有二個：其一是獲得指定文件中的圖標數(shù)目；其二是從指定文件的指定位置導出圖標的Windows句柄。這二個函數(shù)都位于 “Shell32.dll”文件中，并且函數(shù)的入口點都為“ExtractIcon”。下面是在VB.NET中分別使用DllImport特征類和“Declare”語句申明這二個VB.NET Windows API函數(shù)的具體方法。

1.使用DllImport特征類來申明VB.NET Windows API函數(shù)：

下面是在VB.NET中使用DllImport特征類申明二個Windows API函數(shù)的具體示例：

函數(shù)ExtractIcon，其功能是是從指定文件的指定位置導出圖標的Windows句柄。  
＜ 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  
End Function  
'函數(shù)Icon_Num，其功能是獲得指定文件中的圖標數(shù)目  
＜ 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  
End Function  

在使用DllImport特征類申明Windows API函數(shù)時，如果申明的函數(shù)名稱和函數(shù)的入口點相同，則可以在申明Windows API函數(shù)時，省略定義函數(shù)入口點對應的代碼，即EntryPoint對象字段對應的代碼，這樣聲明ExtractIcon函數(shù)的代碼也可以簡化為如下所示：

＜ 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  
End Function 

2.使用“Declare”語句來申明Windows API函數(shù)：

使用“Declare”語句的確比使用DllImport特征類要簡單了許多，下面是在VB.NET中使用“Declare”語句來聲明上述二個Windows API函數(shù)的具體方法：

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  
'聲明ExtractIcon函數(shù)  
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  
'聲明Icon_Num函數(shù) 

在VB.NET中聲明Windows API函數(shù)時，“Declare”語句中Alias關鍵字的作用相當于使用DllImport特征類中的EntryPoint對象字段。同樣在使用 “Declare”語句聲明Windows API函數(shù)時，如果聲明的函數(shù)和函數(shù)的入口點相同，也可以省略Alias關鍵字對應的代碼，所以ExtractIcon函數(shù)也可以簡化為如下：

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

下面就結合一個示例的編寫過程來掌握的這二個Windows API函數(shù)的具體使用方法，這個示例的作用就是讀取指定文件中的圖標數(shù)目，并顯示文件中的圖標。