圖片不能正常工作

Question

當Picture shaped窗體出現時，以下代碼不起作用。

Dim Img As New System.Drawing.Bitmap(My.Resources.imgpng)'ImgPng is a resource Image 
    ' The color at Pixel(1,1) is rendered as transparent for the complete background. 
    Img.MakeTransparent(Img.GetPixel(1, 1)) 
    Me.BackgroundImage = Img 
    Me.TransparencyKey = Img.GetPixel(1, 1) 

任何人都可以幫助我更加接近嗎？

Answer 1

感謝的人...

 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim Img As New System.Drawing.Bitmap(My.Resources.NewImage) 'NewImage is a resource Image 
    ' The color at Pixel(1,1) is rendered as transparent for the complete background. 
    Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None 
    Dim Color = Img.GetPixel(0, 0) 
    Me.BackgroundImageLayout = ImageLayout.Stretch ' To Adjust the Image 
    Me.BackColor = Drawing.Color.Black 
    Img.MakeTransparent(Drawing.Color.Black) 
    Me.TransparencyKey = Drawing.Color.Black 
    Me.BackgroundImage = Img 
End Sub 

一變 'Img.MakeTransparent（色彩）' 不是必需的。嘗試getva正常的圖像與邊框輪廓，以消除不良邊緣...

Answer 2

我通過這段代碼設置窗體背景相同，它的工作：

Dim Img As New System.Drawing.Bitmap(My.Resources.imgpng)'ImgPng is a resource Image 
' The color at Pixel(1,1) is rendered as transparent for the complete background. 
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None 
Dim Color = Img.GetPixel(0, 0) 
Me.BackColor = Color 
Img.MakeTransparent(Color) 
Me.TransparencyKey = Color 
Me.BackgroundImage = Img 

而且我用（0,0），用於透明像素雖然是不應該的問題，除非你的（1,1）是錯誤的顏色。