在一个程序中使用过的图片,无意中发现图片没办法删除。以后注意咯。
或者先把图片读入到内存里面。在把内存图片显示出来也不会锁住图了。
Private Sub LoadImage(ByVal fileName As String) Dim FileExt As String FileExt = IO.Path.GetExtension(fileName) ClernImage() If String.IsNullOrEmpty(FileExt) = False Then If CheckValidExt(FileExt) Then If IO.File.Exists(fileName) Then 'imageloacation不会锁住图片 Me.PictureBox1.ImageLocation = fileName '=Image.FromFile 会锁住图片。 '=Image.FromFile(MyFiles(0).ToString).Clone 也会锁住图片 Me.TxtBoxFilePath.Text = fileName End If End If End If End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。