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
新闻标题:包含vb.net释放资源的词条
链接地址:https://www.cdcxhl.com/article16/hjpddg.html
成都网站建设公司_创新互联,为您提供外贸建站、域名注册、软件开发、全网营销推广、定制网站、网站改版
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联