تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لضبط الشفافية لصورة
#1
كاتب الموضوع : 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
}}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم