VB.NET透明圖像邊框

Question

我正在使用Microsoft Visual Basic 2010 Express，但遇到了透明圖像和圖片框的問題。 當我將尺寸模式設置為StretchImage時，似乎在圖像周圍添加了白色邊框。 如果我將其設置為“正常”，則將正確顯示，沒有添加邊框。

在這張照片中，您可以看到我在說什么。 左側是它的外觀。 右側是調整圖片框大小時發生的情況。

這是我正在使用的圖像

對於我的程序，我需要根據用戶輸入的大小縮放這些圖像。 輸入大小永遠不會超過100x100px。 圖像是160.x160像素的透明.gif，並存儲在程序資源中。 這些圖像只會顯示在屏幕上，而不會由程序輸出。 我想知道是否有縮放透明圖像而周圍沒有白色邊框的問題。

Answer 1

嘗試手動繪制圖像並設置插值模式 。 您可能需要使用不同的值來獲得所需的外觀：

Dim destination = New Bitmap(100, 100)
Dim original = Image.FromFile("gear-256.gif")
Using g = Graphics.FromImage(destination)
    g.InterpolationMode = InterpolationMode.HighQualityBilinear
    g.DrawImage(original, New Rectangle(0, 0, destination.Width, destination.Height), New Rectangle(0, 0, original.Width, original.Height), GraphicsUnit.Pixel)
End Using

PictureBox1.Image = destination