تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعامل مع الصور Images في بيئة الدوت نت باستخدام +GDI - الجزء الرابع
#1
كاتب الموضوع : silverlight

التعامل مع الصور Images في بيئة الدوت نت باستخدام +GDI
اللغة المستخدمة: الفيجوال بيسك
التطبيق: فيجوال استوديو 2005 و 2008
المستوي: التقييم متروك للقارئ
إعداد: مهندس / عمر أمين إبراهيم

الجزء الرابع: كيف نقوم بعمل Fading للصورة

ماذا تعني كلمة Fading ؟ هذه الكلمة تعني إضعاف أو إخفاء شئ و أعتقد أن المعني الدقيق لكلمة Fading هو أننا نجعل شيئا يذوي أو نجعل هذا الشئ خافتا والمعني المقصود هنا هو أن نجعل جزء من الصورة يذوي ويختفي بشكل ما
الفكرة تتلخص في أننا نقوم بتعريف الصورة ثم نقوم بتعريف Bitmap Object من الصورة الأصلية ثم تعريف Rectangle بحيث يكون أبعاده تساوي أبعاد Bitmap Object ثم نقوم بتعريف LinearGradientBrush حيث نستخدم هنا لونان احدهما عبارة عن Color.Empy والأخر أي لون نختاره ثم باستخدام Graphics Class نقوم برسم الصورة الأصلية في المستطيل ثم نقوم بتعبئة هذا المستطيل باستخدام LinearGradientBrush ثم يمكننا حينها استخدام الصورة كما نريد
مثال علي ذلك


كود :
Public Class Form1

Dim bmp As Bitmap = New Bitmap(My.Resources._048)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Angle As Integer = 90

Dim dest_bm As New Bitmap(CInt(bmp.Width), CInt(bmp.Height), bmp.PixelFormat)
Dim g As Graphics = Graphics.FromImage(dest_bm)
Dim rect As Rectangle = New Rectangle(0, 0, dest_bm.Width, dest_bm.Height)
Dim lgb As New System.Drawing.Drawing2D.LinearGradientBrush(rect, Color.Empty, Color.FromArgb(255, Color.Blue), Angle, True)
g.DrawImage(bmp, rect)
g.FillRectangle(lgb, rect)

PictureBox1.Image = dest_bm

End Sub

End Class
حاول عزيزي القارئ أن تقوم بتغيير القيمة للمتغير Angle في الكود أعلاه مثلا حاول أن تجعل قيمته 90 أو 180 أو 270 أو أي قيمة تريدها ما بين القيمة صفر الي 360 وستري أن مكان Fading يتغير بناء علي تغير قيمة هذه الزاوية

الأن لنبني دالة Function جديدة من الكود أعلاه وسنطلق عليها اسم FadeImage Function والهدف منها استرجاع صورة مختلفة من الصورة الأصلية وكالمعتاد يمكننا أن نبني أكثر من دالة إن أردنا ذلك والكود التالي يوضح شكل هذه الدالة


كود :
Public Shared Function FadeImage(ByVal bmp As Bitmap) As Bitmap

Dim Angle As Integer = 90
Dim dest_bm As New Bitmap(CInt(bmp.Width), CInt(bmp.Height), bmp.PixelFormat)
Dim g As Graphics = Graphics.FromImage(dest_bm)
Dim rect As Rectangle = New Rectangle(0, 0, dest_bm.Width, dest_bm.Height)
Dim lgb As New System.Drawing.Drawing2D.LinearGradientBrush(rect, Color.Empty, Color.FromArgb(255, Color.Blue, Angle, True))
g.DrawImage(bmp, rect)
g.FillRectangle(lgb, rect)

Return dest_bm

End Function
الكود التالي يوضح كيفية استخدام الدالة FadeImage Function


كود :
Public Class Form1

Dim bmp As Bitmap = New Bitmap(My.Resources._048)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim dest_bm As Bitmap = FadeImage(bmp)
PictureBox1.Image = dest_bm

End Sub

Public Shared Function FadeImage(ByVal bmp As Bitmap) As Bitmap

Dim Angle As Integer = 90
Dim dest_bm As New Bitmap(CInt(bmp.Width), CInt(bmp.Height), bmp.PixelFormat)
Dim g As Graphics = Graphics.FromImage(dest_bm)
Dim rect As Rectangle = New Rectangle(0, 0, dest_bm.Width, dest_bm.Height)
Dim lgb As New System.Drawing.Drawing2D.LinearGradientBrush(rect, Color.Empty, Color.FromArgb(255, Color.Blue, Angle, True))
g.DrawImage(bmp, rect)
g.FillRectangle(lgb, rect)

Return dest_bm

End Function

End Class
الأن لنبني داله أخري أو نسخة أخري للدالة من نفس الكود أعلاه وسنحتفظ بنفس الاسم وهو FadeImage Function ولكننا هنا سنعطي المستخدم أولوية تغيير قيمة الزاوية وسيكون شكل الدالة كالأتي


كود :
Public Shared Function FadeImage(ByVal bmp As Bitmap, ByVal Angle As Integer) As Bitmap

If Angle < 0 OrElse Angle > 360 Then

Throw New ArgumentOutOfRangeException("Angle must be between 0 and 360.")
End If

Dim dest_bm As New Bitmap(CInt(bmp.Width), CInt(bmp.Height), bmp.PixelFormat)
Dim g As Graphics = Graphics.FromImage(dest_bm)
Dim rect As Rectangle = New Rectangle(0, 0, dest_bm.Width, dest_bm.Height)
Dim lgb As New System.Drawing.Drawing2D.LinearGradientBrush(rect, Color.Empty, Color.FromArgb(255, Color.Blue),Angle, True)
g.DrawImage(bmp, rect)
g.FillRectangle(lgb, rect)

Return dest_bm

End Function
وهذه صورة أخري أو نسخة أخري لنفس الدالة من الكود أعلاه وسنحتفظ بنفس الاسم وهو FadeImage Function ولكننا هنا سنعطي المستخدم أولوية تغيير قيمة الزاوية وأيضا تغيير قيمة اللون المستخدم و سيكون شكل الدالة كالأتي


كود :
Public Shared Function FadeImage(ByVal bmp As Bitmap, ByVal Angle As Integer, ByVal color As Color) As Bitmap

If Angle < 0 OrElse Angle > 360 Then

Throw New ArgumentOutOfRangeException("Angle must be between 0 and 360.")
End If

Dim dest_bm As New Bitmap(CInt(bmp.Width), CInt(bmp.Height), bmp.PixelFormat)
Dim g As Graphics = Graphics.FromImage(dest_bm)
Dim rect As Rectangle = New Rectangle(0, 0, dest_bm.Width, dest_bm.Height)
Dim lgb As New System.Drawing.Drawing2D.LinearGradientBrush(rect, color.Empty,color.FromArgb(255, color), Angle, True)
g.DrawImage(bmp, rect)
g.FillRectangle(lgb, rect)

Return dest_bm

End Function
والكود التالي يوضح مثالا علي استخدام الشكل الأخير للدالة


كود :
Public Class Form1

Dim bmp As Bitmap = New Bitmap(My.Resources._048)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim dest_bm As Bitmap = FadeImage(bmp, 90, Color.Lime)
PictureBox1.Image = dest_bm

End Sub

Public Shared Function FadeImage(ByVal bmp As Bitmap, ByVal Angle As Integer, ByVal color As Color) As Bitmap

If Angle < 0 OrElse Angle > 360 Then

Throw New ArgumentOutOfRangeException("Angle must be between 0 and 360.")
End If

Dim dest_bm As New Bitmap(CInt(bmp.Width), CInt(bmp.Height), bmp.PixelFormat)
Dim g As Graphics = Graphics.FromImage(dest_bm)
Dim rect As Rectangle = New Rectangle(0, 0, dest_bm.Width, dest_bm.Height)
Dim lgb As New System.Drawing.Drawing2D.LinearGradientBrush(rect, color.Empty, color.FromArgb(255, color), Angle, True)
g.DrawImage(bmp, rect)
g.FillRectangle(lgb, rect)

Return dest_bm

End Function

End Class
أعتقد عزيزي القارئ أننا كلما تقدمنا في مناقشة موضوع التعامل مع الصور في بيئة الدوت نت فإن الأمر يصبح أكثر سهولة
وكما تلاحظ أننا الأن نمتلك عددا لا بأس به من الدوال وهذه الدوال تجعل التعامل مع الصور أكثر متعة وأيضا أنت الأن تستطيع أن تبني دوالا كثيرة من أفكار شبيهة




بالتوفيق

أخوكم عمر
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع لجلب الصور من الماسحة الضوئية (Scanner) m.sami.ak 14 4,540 22-01-17, 10:41 AM
آخر رد: amko
  مقدمة إلي إخفاء المعلومات - الجزء الأول silverlight 5 247 07-01-17, 10:44 PM
آخر رد: Basil Abdallah
  مقدمة إلي إخفاء المعلومات - الجزء الثاني silverlight 1 165 06-01-17, 11:52 AM
آخر رد: silverlight
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 7 3,430 26-12-16, 02:40 AM
آخر رد: sayed fox
  كيفية قراءة ملف باستخدام IntPtr الخاص بالملف silverlight 3 135 24-12-16, 03:13 AM
آخر رد: silverlight
  التعامل مع جهاز الكمبيوتر من Command Prompt silverlight 7 281 22-12-16, 06:07 PM
آخر رد: silverlight
Video [درس فيديو] هام مرة اخري تحذير للجميع في التعامل مع try والتكرار لعدد كبير ali.alfoly 1 144 13-12-16, 03:59 PM
آخر رد: Fantastico
  [مقال] دوال التعامل مع النصوص Strings - VB.NET ابو ليلى 5 379 12-12-16, 10:32 PM
آخر رد: ابو ليلى
  [درس فيديو] تحذير هام في التعامل مع For و Try ali.alfoly 3 252 07-12-16, 12:43 AM
آخر رد: silverlight
Wink [مقال] كفية التعامل مه الجملة الشرطية IF alims 8 3,917 19-11-16, 01:06 AM
آخر رد: LoveVb

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


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