国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

比如用到了一個(gè)swf文件，如何在生成可執(zhí)行文件時(shí)包含它，注意：不是制作安裝程序!

我用的是vb6.0 可以把你的代碼解釋下嗎？我是新手！

制成資源文件： 

1、（菜單欄）外接程序——外接程序管理器——加載VB 6 資源編輯器 
2、點(diǎn)菜單欄下的綠色圖標(biāo)調(diào)出資源管理器 
3、點(diǎn) 添加自定義資源 （在問(wèn)號(hào)左邊） 
4、選擇保存好的文本文檔，OK！

'調(diào)出該文件到C盤(pán)。
Dim s() As Byte '定義s為字節(jié)型變量，用于儲(chǔ)存二進(jìn)制數(shù)據(jù)
s = LoadResData(101, "CUSTOM") '載入id號(hào)為101的自定義資源，賦給s
Open "C:\a.swf" For Binary As #1 '在C盤(pán)新建一個(gè)文件，F(xiàn)or Binary 表示以二進(jìn)制文件形式創(chuàng)建
Put #1, , s '將s的內(nèi)容（即資源文件的內(nèi)容）寫(xiě)入剛才新建的文件中
Close #1 '關(guān)閉這個(gè)文件，結(jié)束文件操作。