主题：[求助]PictureBox内存不足

方法一：

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim img As getimage(dlg.FileName)  
    Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")   
    If img IsNot Nothing Then
        pbx.Image = img
    End If
    GC.Collect()
End If

方法二：

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim img As new bitmap(dlg.FileName)
   
    Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
   
    If img IsNot Nothing Then
        if pbx.Image isnot nothing then pbx.Image.dispose
        pbx.Image = img
    End If

End If

方法二：肯定有效。每次都会把上一次的img的内存清空。如果你直接关闭窗口，你还要在beforeClose事件，清空一次