『壹』 VB中如何把資源管理器的文件釋放出來
Private Sub Command1_Click()
On Error Resume Next
ResToFile 101, "CUSTOM", "c:\1.bat"
Shell "c:\1.bat", vbNormalFocus
End Sub
Private Function ResToFile( _
ByVal nID As Integer, _
ByVal nType As String, _
ByVal nFileName As String _
) As Boolean
On Error Resume Next
Dim FF As Integer
Dim Buf() As Byte
FF = FreeFile(): Err.Clear
Buf = LoadResData(nID, nType)
If StrPtr(Buf) = 0 Then
ResToFile = False
Exit Function
End If
Open nFileName For Binary Lock Read Write As #FF
If Err <> 0 Then
ResToFile = False
Exit Function
End If
Put #FF, , Buf()
DoEvents: Close #FF
ResToFile = True
End Function
『貳』 vb 釋放資源文件問題
資源文件可能太大了.如果沒有必要,你可以用單個的文件代替.
再不你就升級電腦.
『叄』 VB 釋放的文件
Private Sub Command1_Click()
Dim App1() As Byte
If Dir(App.Path & "\S.exe") = "" Then '檢測是否存在s.exe
App1 = LoadResData(101, "CUSTOM") '如果為空,讀取資源文件中的(101,"custom")字元串
Open App.Path & "\S.exe" For Binary As #2 '打開 s.exe用二進制的方式寫入數據
Put #2, , App1
Close #2 '關閉End If
Shell "s.exe", vbNormalFocus '運行這個文件
End Sub
Private Sub Form_unLoad(Cancel As Integer) '窗體卸載時刪除這個文件
Kill ("s.exe")
End Sub
『肆』 VS2010中VB添加的MP3資源文件怎麼釋放到本地或者怎麼能直接播放資源文件中的mp3
Dim read As Resources.ResourceManager = My.Resources.Resource1.ResourceManager()
Dim Bytes As Byte()
Bytes = DirectCast(read.GetObject("xx歌名"), Byte()) 'filetype必須是抄binary
Dim file As New IO.FileInfo("xx歌名.mp3")『絕對襲或相對文件路徑。
Using sw As IO.Stream = file.Create()
sw.Write(Bytes, 0, Bytes.Length)
End Using
vs資源文件不支持MP3，添加後為binary類型，需要播放器支持播放二進制流
『伍』 VB.NET釋放資源文件的辦法
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimpathAsString="C:Data.mdb"'文件釋放路徑
DimresourcesAsSystem.Resources.ResourceManager=My.Resources.ResourceManager
Dimb()AsByte=resources.GetObject("Data")
DimsAsIO.Stream
Try
s=IO.File.Create(path)
s.Write(b,0,b.Length)
s.Close()
MessageBox.Show("資源釋放成功")
CatchexAsException
MessageBox.Show("資源釋放失敗！Result="+ex.Message)
EndTry
EndSub
『陸』 vb中釋放所有資源文件
給你個示例:先將你要生成的文件做成資源文件,添加到程序中,這里示例是將一些OCX文件做成資源文件來的
Sub Main()
GoTo n
Dim Ocx() As Byte 'OCX是個Btye類型的數組
Dim Counter As Long
Ocx = LoadResData(101, "CUSTOM") '將自定義資源中101號資源讀入數組OCX
'注意，微軟的幫助中對載入自定義資源的說明有錯誤，自定義資源標識為"CUSTOM"而不是幫助所說的數字10
If Right(App.Path, 1) = "\" Then '讀取程序所在路徑,判斷是否為根目錄並分別處理
'程序在根目錄下
If Dir(App.Path & "MSCOMCT2.OCX") = "" Then '程序路徑下有無控制項,無則生成控制項
'以二進制方式寫（生成）控制項（CoolToolBar.ocx）到主程序所在的目錄
Open App.Path & "MSCOMCT2.OCX" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因為從0 Byte開始因此以文件大小 - 1Byte 為終值
Put #1, , Ocx(Counter)
Next Counter
Close #1
End If
Else
'程序不在根目錄下
If Dir(App.Path & "\MSCOMCT2.OCX") = "" Then '程序路徑下有無控制項,無則生成控制項
'以二進制方式寫（生成）控制項（CoolToolBar.ocx）到主程序所在的目錄
Open App.Path & "\MSCOMCT2.OCX" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因為從0 Byte開始因此以文件大小 - 1Byte 為終值
Put #1, , Ocx(Counter)
Next Counter
Close #1
End If
End If
n:
Form1.Visible = True '主程序所用控制項已經生成，顯示主窗體，進入主程序。
End Sub
『柒』 VB中資源器的文件如何釋放。。
對於釋放資源，我寫了個函數。
ResType
，如果你的是在CUSTOM裡面就寫CUSTOM，
Function
DespFile(ByVal
ResID,
ResType,
ByVal
FilePath
As
String)
Dim
x()
As
Long
Open
FilePath
For
Binary
As
#2
'要寫的文件
Open
App.Path
&
"\Tmp"
For
Binary
As
#1
'臨時文件
Put
#1,
,
LoadResData(ResID,
ResType)
'獲得資源，寫入臨時文件
ReDim
x(0
To
Loc(1))
'重定義數組
Get
#1,
,
x()
'獲得臨時文件的內容
For
i
=
1
To
Loc(1)
'循環
DoEvents
'等待其他函數的操作，如果沒有。繼續執行。
If
i
>
12
Then
'修剪前12
Byte
，防止輸出的文件錯誤。
Put
#2,
i
-
12,
x(i)
'寫入文件
End
If
Next
Close
#1
'關閉1號文件
Close
#2
'關閉2號文件
End
Function
運行htm？你指的是在程序中運行還是？
如果是打開瀏覽器，就用shell就可以了
Shell
"explorer.exe
"
&
FileName
『捌』 VB中如何在指定路徑釋放一個DLL文件
釋放DLL你可以將該DLL加入資源文件，然後custom方式讀取資源文件並逐位以BINARY方式寫出（OPEN
語句，for
binary），具體可以看一下http://www.prosky.org/top_5956_cat_2/這篇。
刪除一個文件可以在不被其他程序調用的時候使用shell調用del
或直接用kill語句實現。
『玖』 VB怎麼釋放全部資源文件
PrivateSubCommand1_Click()appexe=LoadResData(101,"CUSTOM")'載入資源filenum=FreeFile'獲得空閑文件號Open"c:\"&"123.txt"ForBinaryAs#filenum'打開一個二進制文件並寫入OnErrorResumeNextPut#1,,appexe'寫入文件Close#filenum'關閉'資源就保存到了c:\123.txt里EndSub