重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
set xxx=nothing就是把对象占用的空间释放掉。 其他的局部变量都在栈内存,用完会自动释放的
成都创新互联公司是一家专注于网站制作、成都网站设计与策划设计,辽源网站建设哪家好?成都创新互联公司做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:辽源等地区。辽源做网站价格咨询:028-86922220
释放文件可以使用 Resources对象 和 IO对象
下面以文件在资源中类型为 array 的实例代码
注意引用 imports system.io
Dim resources As System.Resources.ResourceManager = My.Resources.ResourceManager
Dim b() As Byte = resources.GetObject("文件在资源中的名称")
Dim s As IO.Stream = File.Create(Filepath)'要保存的路径
s.Write(b, 0, b.Length)
s.Close()
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