VB.NET還是比較常用的，于是我研究了一下VB.NET申明Windows API函數(shù)，在這里拿出來(lái)和大家分享一下，希望對(duì)大家有用。VB.NET查看文件中圖標(biāo)的函數(shù)及VB.NET申明Windows API的方法：

VB.NET要實(shí)現(xiàn)查看文件中的圖標(biāo)，目前只使用.Net FrameWork SDK是無(wú)法實(shí)現(xiàn)這種功能的，正如前面所說(shuō)，主要是由于.Net FrameWork SDK推出的時(shí)間較短，其功能還不可能面面俱到。解決問(wèn)題的關(guān)鍵是正確使用Windows API函數(shù)，其中所涉及到的Windows API函數(shù)主要有二個(gè)：其一是獲得指定文件中的圖標(biāo)數(shù)目；其二是從指定文件的指定位置導(dǎo)出圖標(biāo)的Windows句柄。這二個(gè)函數(shù)都位于 “Shell32.dll”文件中，并且函數(shù)的入口點(diǎn)都為“ExtractIcon”。下面是在VB.NET中分別使用DllImport特征類(lèi)和“Declare”語(yǔ)句申明這二個(gè)Windows API函數(shù)的具體方法。

1.使用DllImport特征類(lèi)來(lái)申明Windows API函數(shù)：

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

'函數(shù)ExtractIcon，其功能是是從指定文件的指定位置導(dǎo)出圖標(biāo)的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，其功能是獲得指定文件中的圖標(biāo)數(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特征類(lèi)申明Windows API函數(shù)時(shí)，如果申明的函數(shù)名稱和函數(shù)的入口點(diǎn)相同，則可以在VB.NET申明Windows API函數(shù)時(shí)，省略定義函數(shù)入口點(diǎn)對(duì)應(yīng)的代碼，即EntryPoint對(duì)象字段對(duì)應(yīng)的代碼，這樣聲明ExtractIcon函數(shù)的代碼也可以簡(jiǎn)化為如下所示：

＜ 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”語(yǔ)句來(lái)申明Windows API函數(shù)：

使用“Declare”語(yǔ)句的確比使用DllImport特征類(lèi)要簡(jiǎn)單了許多，下面是在VB.NET中使用“Declare”語(yǔ)句來(lái)聲明上述二個(gè)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ù)時(shí)，“Declare”語(yǔ)句中Alias關(guān)鍵字的作用相當(dāng)于使用DllImport特征類(lèi)中的EntryPoint對(duì)象字段。同樣在使用 “Declare”語(yǔ)句聲明Windows API函數(shù)時(shí)，如果聲明的函數(shù)和函數(shù)的入口點(diǎn)相同，也可以省略Alias關(guān)鍵字對(duì)應(yīng)的代碼，所以ExtractIcon函數(shù)也可以簡(jiǎn)化為如下：

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

【編輯推薦】

1. 全方位分析VB.NET編碼規(guī)范
2. 詳細(xì)說(shuō)明VB.NET變量中四點(diǎn)
3. 三類(lèi)十二種VB.NET數(shù)據(jù)類(lèi)型全面介紹
4. VB.NET初步知識(shí)，初學(xué)者必看
5. 具體介紹四大類(lèi)VB.NET循環(huán)