狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

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

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

制成資源文件： 

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

'調出該文件到C盤。
Dim s() As Byte '定義s為字節型變量，用于儲存二進制數據
s = LoadResData(101, "CUSTOM") '載入id號為101的自定義資源，賦給s
Open "C:\a.swf" For Binary As #1 '在C盤新建一個文件，For Binary 表示以二進制文件形式創建
Put #1, , s '將s的內容（即資源文件的內容）寫入剛才新建的文件中
Close #1 '關閉這個文件，結束文件操作。