大家來(lái)看看我在程序中遇到的問題吧。也許你也能遇到的，我想在自已的程序中包含一個(gè)可執(zhí)行文件或數(shù)據(jù)文件，以便程序運(yùn)行時(shí)在需要的時(shí)候能釋放到某個(gè)目錄里，我嘗試使用VB資源文件的LoadResData，先在VB的資源編輯器里加入一個(gè)自定義資源，標(biāo)號(hào)為101，選擇自己想要的數(shù)據(jù)文件，然后在程序里使用　　　LoadResData 101,10　　　來(lái)定位這段自定義的資源文件，可是程序總是告訴我找不到標(biāo)號(hào)為101的資源，我想了半天也不明白是怎么回事？如果不行有沒有另的方便可行的辦法？請(qǐng)高手指點(diǎn)！

以下是MSDN中查到的有關(guān)LoadResData用法資料：

VB.NET資源文件語(yǔ)法：

LoadResData(index, format) 

VB.NET資源文件LoadResData的用法

部分 描述

index 必需的。一個(gè)整數(shù)或字符串，它用來(lái)指定資源文件中數(shù)據(jù)的標(biāo)識(shí)符 (ID)。ID 標(biāo)識(shí)符為 1 的資源保留給應(yīng)用程序的圖標(biāo)。

Format 必需的。一個(gè)數(shù)值，它用來(lái)按照下列“設(shè)置值”中的描述，指定返回?cái)?shù)據(jù)的原始格式。該數(shù)值也可以是用戶定義資源的字符串名。

VB.NET資源文件設(shè)置值，用于 format 的設(shè)置值有：

設(shè)置 描述
1 光標(biāo)資源
2 位圖資源
3 圖標(biāo)資源
4 菜單資源
5 對(duì)話框
6 字符串資源
7 字體目錄資源
8 字體資源
9 加速鍵表
10 用戶定義資源
12 群組光標(biāo)
14 群組圖標(biāo)

哦，剛才在網(wǎng)上看到了一個(gè)函數(shù)，問題解決了

Public Function SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As Boolean  
Dim bytImage() As Byte ' Always store binary data in byte arrays!  
Dim iFileNum As Integer 'Free File Handle  
On Error GoTo SaveFileFromRes_Err  
SaveFileFromRes = True 
'Load Binary Data from Resource file  
bytImage = LoadResData(vntResourceID, sType)  
'Get Free File Handle  
iFileNum = FreeFile 
'Open the file and save the data  
Open sFileName For Binary As iFileNum  
Put #iFileNum, , bytImage  
Close iFileNum  
Exit Function  
SaveFileFromRes_Err:  
SaveFileFromRes = False: Exit Function  
End Function  

【編輯推薦】

1. 詳細(xì)分析VB.NET WithEvents
2. 淺析VB.NET局部靜態(tài)變量
3. 原理分析VB.NET開發(fā)控件
4. 自己動(dòng)手用代碼實(shí)現(xiàn)VB.NET ListView加載數(shù)據(jù)
5. 詳細(xì)介紹VB.NET MyClass