从 VB.NET 保存 PNG 会弄乱阴影

Question

我一直在尝试解决 .NET（所有版本）本身不支持 TRUE 透明度的古老问题，在阅读了数千篇文章、问题/答案、论坛、msdn 文章等之后，却一无所获除了能够通过使用整个表单来做到这一点，其中没有可见的控件（参见http://www.codeproject.com/Articles/1822/Per-Pixel-Alpha-Blend-in-C）

我已经部分放弃了这种搜索，而是决定通过使用每个图形/文本直接绘制到表单上的 MDIParent/Client 情况来满足。

我遇到的问题是，当我保存透明度时，我最终会在任何阴影周围出现一个斑点，我认为（但不确定）是 PNG 正在以较低的分辨率保存或丢失Alpha 通道或其他东西，MakeTransparent（在此处插入颜色），只是不满意。如果你能说明这个过程哪里出了这么严重的错误……请告诉我。

输入图片

输出图像

我使用的代码如下：

    Imports Graphics

    Public Class PictureForm
        Private Declare Auto Function BitBlt Lib "gdi32.dll" (ByVal _
            hdcDest As IntPtr, ByVal nXDest As Integer, ByVal _
            nYDest As Integer, ByVal nWidth As Integer, ByVal _
            nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc _
            As Integer, ByVal nYSrc As Integer, ByVal dwRop As  _
            System.Int32) As Boolean
        Private Const SRCCOPY As Integer = &HCC0020

        Public Graphic As Drawing.Graphics
        Private Sub PictureForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Show()
            Graphic = Me.CreateGraphics
            Graphic.CompositingQuality = Drawing2D.CompositingQuality.HighQuality

            Graphic.DrawImage(Image.FromFile("C:\Users\Daniel\Downloads\PNG-icon.png"), 35, 22)

            Dim bmp As Bitmap = GetFormImage()
            bmp.MakeTransparent(Color.White)
            bmp.Save("test.png", System.Drawing.Imaging.ImageFormat.Png)
            bmp.Dispose()       

        End Sub

        Public Function GetFormImage() As Bitmap
            ' Get this form's Graphics object.
            Dim me_gr As Drawing.Graphics = Me.CreateGraphics

            ' Make a Bitmap to hold the image.
            Dim bm As New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height, me_gr)
            Dim bm_gr As Drawing.Graphics = Drawing.Graphics.FromImage(bm)
            Dim bm_hdc As IntPtr = bm_gr.GetHdc

            ' Get the form's hDC. We must do this after 
            ' creating the new Bitmap, which uses me_gr.
            Dim me_hdc As IntPtr = me_gr.GetHdc

            ' BitBlt the form's image onto the Bitmap.
            BitBlt(bm_hdc, 0, 0, Me.ClientSize.Width, _
                Me.ClientSize.Height, _
                me_hdc, 0, 0, SRCCOPY)
            me_gr.ReleaseHdc(me_hdc)
            bm_gr.ReleaseHdc(bm_hdc)

            ' Return the result.
            Return bm
        End Function

    End Class

此外，您会注意到第一张图像中的字母在输出中没有被渲染为透明。

Answer 1

问题是您将图形“存储”在表单上 - 不存在 alpha。

您可以通过保留一个屏幕外位图来轻松解决此问题，您可以在该位图上进行所有绘画，并且在修改它时，您也可以将其绘制到表单中。

那么您将不再需要 GetFormImage 方法 - 您只需直接保存屏幕外位图（其中包含 alpha 信息）。

PS。您缺少几个 .Dispose() 调用。