[RaggiTech]

كاتب الموضوع : AhmedEssawy

كود :

Public Shared Function SetOpacity(ByVal original As Image, ByVal opacity As Single) As Image
Dim temp As Bitmap = New Bitmap(original.Width, original.Height)
Dim g As Graphics = Graphics.FromImage(temp)
Dim cm As ColorMatrix = New ColorMatrix
cm.Matrix33 = opacity
Dim ia As ImageAttributes = New ImageAttributes
ia.SetColorMatrix(cm, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
g.DrawImage(original, New Rectangle(0, 0, temp.Width, temp.Height), 0, 0, original.Width, original.Height, GraphicsUnit.Pixel, ia)
g.Dispose
Return temp
End Function