建站
咨詢
售后
建站咨詢
新聞中心
大家來看看我在程序中遇到的問題吧。也許你也能遇到的，我想在自已的程序中包含一個(gè)可執(zhí)行文件或數(shù)據(jù)文件，以便程序運(yùn)行時(shí)在需要的時(shí)候能釋放到某個(gè)目錄里，我嘗試使用VB資源文件的LoadResData，先在VB的資源編輯器里加入一個(gè)自定義資源，標(biāo)號(hào)為101，選擇自己想要的數(shù)據(jù)文件，然后在程序里使用 LoadResData 101,10 來定位這段自定義的資源文件，可是程序總是告訴我找不到標(biāo)號(hào)為101的資源，我想了半天也不明白是怎么回事？如果不行有沒有另的方便可行的辦法？請(qǐng)高手指點(diǎn)！
創(chuàng)新互聯(lián)建站服務(wù)項(xiàng)目包括北川羌族網(wǎng)站建設(shè)、北川羌族網(wǎng)站制作、北川羌族網(wǎng)頁制作以及北川羌族網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，北川羌族網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到北川羌族省份的部分城市，未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！
以下是MSDN中查到的有關(guān)LoadResData用法資料：
VB.NET資源文件語法：
- LoadResData(index, format)
VB.NET資源文件LoadResData的用法
部分 描述
index 必需的。一個(gè)整數(shù)或字符串，它用來指定資源文件中數(shù)據(jù)的標(biāo)識(shí)符 (ID)。ID 標(biāo)識(shí)符為 1 的資源保留給應(yīng)用程序的圖標(biāo)。
Format 必需的。一個(gè)數(shù)值，它用來按照下列“設(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
名稱欄目：關(guān)于VB.NET資源文件問題解答
鏈接地址：http://www.dlmjj.cn/article/cddidcp.html
