重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你也遇到这样的问题,我也是刚解决,下面代码
太平网站建设公司创新互联公司,太平网站设计制作,有大型网站制作公司丰富经验。已为太平1000多家提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱,请找那个售后服务好的太平做网站的公司定做!
我的文件在资源中类型为
array
Dim
resources
As
System.Resources.ResourceManager
=
My.Resources.ResourceManager
Dim
b()
As
Byte
=
resources.GetObject("psd文件在资源中的名称")
Dim
s
As
IO.Stream
=
File.Create(Filepath)'要保存的路径
s.Write(b,
0,
b.Length)
s.Close()
set xxx=nothing就是把对象占用的空间释放掉。 其他的局部变量都在栈内存,用完会自动释放的
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String = "C:\Data.mdb" '文件释放路径
Dim resources As System.Resources.ResourceManager = My.Resources.ResourceManager
Dim b() As Byte = resources.GetObject("Data")
Dim s As IO.Stream
Try
s = IO.File.Create(path)
s.Write(b, 0, b.Length)
s.Close()
MessageBox.Show("资源释放成功")
Catch ex As Exception
MessageBox.Show("资源释放失败!Result=" + ex.Message)
End Try
End Sub