vb.net - VB.NET 表单透明背景

Question

我得到了图片框，
当我将表单添加到图片框时，背景颜色为argb(152, 0, 136)
并且我尝试使用TransparencyKey并且背景颜色仍然为 152, 0, 136
代码：

Dim frm As New Form
frm.BackgroundImage = Image.FromFile(open.FileName)
frm.BackColor = Color.FromArgb(152, 0, 136)
frm.TransparencyKey = Color.FromArgb(152, 0, 136)
frm.TopLevel = False

PictureBox1.Controls.Add(frm)
frm.show()

Answer 1

下面的代码是经过测试和功能的。我制作了一个新的 WindowsApplication，它添加了基本表单和.vb代码隐藏。我在表单中添加了一个按钮。这是整个代码隐藏：

Public Class Form1
    Public Sub AddTransparentImage()
        Dim pb As PictureBox = New PictureBox
        Dim bmp As Bitmap = Image.FromFile("C:\Users\Pete\Documents\test.bmp")

        bmp.MakeTransparent(Color.Black)
        pb.Image = bmp
        pb.Width = bmp.Width
        pb.Height = bmp.Height

        Me.Controls.Add(pb)
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        AddTransparentImage()
    End Sub
End Class

这.bmp是在黑色背景上带有彩色文本的图像。在表单中加载时，图像的背景将变为透明。