.NET 4.7.2 WinForms中PictureBox赋值MetaFile时抛出参数无效异常

环境与问题背景 #

环境：.NET 4.7.2 WinForms
原使用Bitmap渲染复杂图文页面，通过PictureBox在滚动面板预览，功能正常但内存占用达2GB。改用MetaFile以节省内存并实现缩放，却在预览窗口ShowDialog时，获取Width属性抛出“参数无效”异常。已确认MetaFile未被意外释放，且已通过引用传递至预览窗口。

创建MetaFile的代码 #

' 按钮事件处理程序中创建文件
Dim gr As Graphics = Me.CreateGraphics()
Dim hdc As IntPtr = gr.GetHdc()
' [省略无关代码]
Try
    ' [省略无关代码]
    ' pagewidth和pageheight为纸张尺寸（英寸）* 选定DPI = 像素值
    _pedWMF = New Metafile(hdc, 
                           New Rectangle(0, 0, pageWidth, pageHeight), 
                           MetafileFrameUnit.Pixel)
    _PedigreeCanvas = Graphics.FromImage(_pedWMF)
    _PedigreeCanvas.PageUnit = GraphicsUnit.Pixel

' [省略无关代码]
' 此调用中渲染文本和图像
RenderPedigree(PedigreeCanvas)
' [省略无关代码]
' 调用预览窗口显示对话框。

预览窗口代码 #

Private Sub LayoutPreviewImage()
    _iPageWidth = Convert.ToInt32(Me.DeviceDpi * (Convert.ToDouble(_drvPaperSize("PS_WIDTH")) / 100))
    _iPageHeight = Convert.ToInt32(Me.DeviceDpi * (Convert.ToDouble(_drvPaperSize("PS_HEIGHT")) / 100))
    SuspendLayout()
    Dim p As New PictureBox()
    p.Name = "pbPreview"
    p.Width = _iPageWidth
    p.Height = _iPageHeight
    '*** _wmfPreview变量已正确用上面创建的MetaFile初始化。
    If _wmfPreview IsNot Nothing Then p.Image = _wmfPreview
    p.SizeMode = PictureBoxSizeMode.Zoom
    pPagePreview.Controls.Add(p)
    pPagePreview.Location = New Point(0, 0)
    pPagePreview.Width = _iPageWidth + Convert.ToInt32(Math.Round(DeviceDpi * 0.5))
    pPagePreview.Height = _iPageHeight + Convert.ToInt32(Math.Round(DeviceDpi * 0.5))
    p.Left = Convert.ToInt32(Math.Round(DeviceDpi * 0.25))
    p.Top = Convert.ToInt32(Math.Round(DeviceDpi * 0.25))
    p.BackColor = Color.White
    ResumeLayout()
End Sub

问题原因及解决方法 #

1. Graphics对象未释放导致MetaFile损坏 #

创建MetaFile时使用的Graphics对象和其关联的HDC未被正确释放。当Graphics被GC回收或超出作用域时，HDC会被系统释放，导致MetaFile内部引用无效句柄，访问属性时抛出异常。

解决代码：

Dim gr As Graphics = Me.CreateGraphics()
Dim hdc As IntPtr = gr.GetHdc()
Try
    _pedWMF = New Metafile(hdc, New Rectangle(0, 0, pageWidth, pageHeight), MetafileFrameUnit.Pixel)
    _PedigreeCanvas = Graphics.FromImage(_pedWMF)
    _PedigreeCanvas.PageUnit = GraphicsUnit.Pixel
    
    RenderPedigree(PedigreeCanvas)
    ' 后续预览逻辑
Finally
    ' 必须释放HDC和Graphics对象
    gr.ReleaseHdc(hdc)
    gr.Dispose()
    ' 注意：不要在此处释放_pedWMF，需保留到预览窗口使用完毕
End Try

2. MetaFile生命周期管理不当 #

确保_pedWMF是类级别的成员变量，而非局部变量，避免在预览窗口显示前被GC回收。预览窗口关闭后，再显式释放MetaFile资源：

' 预览窗口关闭时
Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
    MyBase.OnFormClosed(e)
    _wmfPreview?.Dispose()
End Sub

3. 预览窗口尺寸计算与MetaFile不匹配 #

预览窗口手动计算的尺寸可能与MetaFile实际尺寸存在偏差，且在MetaFile无效时获取属性会触发异常。建议在MetaFile有效时直接读取其尺寸：

If _wmfPreview IsNot Nothing Then
    Try
        p.Width = _wmfPreview.Width
        p.Height = _wmfPreview.Height
    Catch ex As Exception
        ' 处理MetaFile无效的情况，使用备用尺寸
        p.Width = _iPageWidth
        p.Height = _iPageHeight
    End Try
    p.Image = _wmfPreview
End If

4. 改用文件持久化MetaFile #

通过HDC创建的MetaFile依赖于设备上下文，稳定性较差。可以将MetaFile保存到临时文件，再由预览窗口读取，避免句柄依赖问题：

' 创建时保存到临时文件
Dim tempPath = Path.Combine(Path.GetTempPath(), Guid.NewGuid().ToString() & ".wmf")
Using gr As Graphics = Me.CreateGraphics()
    Dim hdc = gr.GetHdc()
    Try
        _pedWMF = New Metafile(tempPath, hdc, New Rectangle(0, 0, pageWidth, pageHeight), MetafileFrameUnit.Pixel)
        Using canvas = Graphics.FromImage(_pedWMF)
            canvas.PageUnit = GraphicsUnit.Pixel
            RenderPedigree(canvas)
        End Using
    Finally
        gr.ReleaseHdc(hdc)
    End Try
End Using

' 预览窗口加载时
_wmfPreview = New Metafile(tempPath)
' 预览完成后删除临时文件
File.Delete(tempPath)

内容的提问来源于stack exchange，提问作者John Tamburo