回 帖 发 新 帖 刷新版面

主题:请问:如何完全卸载在PictureBox中加载显示的图片文件,使不影响后续对该文件的读写操作?

向高手请教:
本人用VB2008编写一段程序如下:
PictureBox1.Image = Image.FromFile(“D:\BMP\r.bmp”)    '图片加载显示正常
'之后因要对“D:\BMP\r.bmp”进行读写处理,故需卸载“D:\BMP\r.bmp”
PictureBox1.Image = Nothing        '图片未能卸载,仍在PictureBox1中正常显示
finalname = “D:\BMP\r.bmp”
FileOpen(1, finalname, OpenMode.Binary, OpenAccess.Read, OpenShare.LockRead)
’出现错误提示:文件“D:\BMP\r.bmp”正由另一进程使用,因此该进程无法访问该文件。

请问:如何完全卸载在PictureBox中加载显示的图片文件,使不影响后续对该文件的读写操作?

回复列表 (共2个回复)

沙发

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Const FILE_PATH As String = "D:\test.bmp"
        PictureBox1.Image = Image.FromFile(FILE_PATH)
        PictureBox1.Image.Dispose()
        PictureBox1.Image = Nothing
        FileOpen(1, FILE_PATH, OpenMode.Binary, OpenAccess.Read, OpenShare.LockRead)
        FileClose(1)
    End Sub

板凳

这条语句做如下修改,即可。不影响后续图片的装入。祝顺利与成功!
PictureBox1.Image = ""

我来回复

您尚未登录,请登录后再回复。点此登录或注册