透明漸變反射 - VB.NET？

Question

我想知道如何去增加一個上下顛倒梯度反射，與此類似：

我會推論第一反射的位圖是顛倒了。然後，在Photoshop中，我會爲圖像添加一個alpha蒙版，並使用黑色/白色漸變的頂部到底部。

如何在VB.NET中添加alpha遮罩/漸變組合？我似乎無法找到任何功能。

Answer 1

下面是使用Bitmaps

Dim bm_src1 As Bitmap = CType(pb1.Image.Clone, Bitmap) 
Dim bm_out As New Bitmap(bm_src1.Width, bm_src1.Height) 
Using gr As Graphics = Graphics.FromImage(bm_out) 
    'Flip image 
    gr.TranslateTransform(CSng(bm_src1.Width/2), CSng(bm_src1.Height/2)) 
    gr.RotateTransform(180) 
    gr.TranslateTransform(-CSng(bm_src1.Width/2), -CSng(bm_src1.Height/2)) 
    ' Give the images alpha gradients. 
    Dim alpha As Integer 
    For x As Integer = 0 To bm_src1.Width - 1 
    For y As Integer = 0 To bm_src1.Height - 1 
     alpha = (255 * y) \ bm_src1.Height 
     Dim clr As Color = bm_src1.GetPixel(x, y) 
     clr = Color.FromArgb(alpha, clr.R, clr.G, clr.B) 
     bm_src1.SetPixel(x, y, clr) 
    Next 
    Next 
    ' Draw the images onto the result. 
    gr.DrawImage(bm_src1, 0, 0) 
End Using 
' Display the result. 
pbResult.Image = bm_out 'picturebox output