我是VB新手.剛剛有人給了我一段代碼.下面這一段代碼是把 資源文件101釋放到當前文件夾下.但是我資源文件里還有幾個我想把102,103,104,105也放出來.101=1.exe 102=2.exe 103=3.exe 104=4.exe 105=5.exe請問這樣的話要怎么寫呀.Dim TempDataPath As StringPrivate Sub Form_Load()Dim TempData() As ByteTempDataPath = App.Path & "\1.exe"TempData = LoadResData(101, "CUSTOM")Open TempDataPath For Binary Access Write As #1Put #1, , TempDataClose #1End Sub
1 回答
拉丁的傳說
TA貢獻1789條經(jīng)驗 獲得超8個贊
Dim TempDataPath As String
Private Sub Form_Load()
Dim TempData() As Byte
for i= 1 to 5
TempDataPath = App.Path & "\"&trim(i)&".exe"
TempData = LoadResData(100+i, "CUSTOM")
Open TempDataPath For Binary Access Write As #1
Put #1, , TempData
Close #1
next i
End Sub
添加回答
舉報
0/150
提交
取消