لضبط الشفافية لصورة - نسخة قابلة للطباعة

كود :

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