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

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

الجزء السابع: كيف نرسم الصورة مائلة Skew

رسم الصورة بشكل مائل أو عمل Skew للصورة مبني علي فكرة بسيطة جدا وهي أننا نقوم بتعريف الصورة ثم نقوم بتعريف صورة جديدة لها نفس أبعاد الصورة الأصلية ثم نقوم بتعريف مستطيل Rectangle من الصورة الجديدة ثم نقوم بتحديد مجموعة من النقاط Points داخل هذا المستطيل ثم نرسم الصورة الأصلية داخل حدود هذه النقاط والكود التالي يوضح كيفية عمل ذلك
ولتنفيذ الكود افتح مشروع جديد وأضف له PictureBox ثم أضف صورة للمشروع ثم في الحدث Load للفورم اكتب الكود التالي


كود :
Public Class Form1

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

Dim m_image As New Bitmap(My.Resources.imgsrv)

Dim bmp As New Bitmap(m_image.Width, m_image.Height, m_image.PixelFormat)
Using g As Graphics = Graphics.FromImage(bmp)

Dim rect As Rectangle = New Rectangle(0, 0, bmp.Width, bmp.Height)
Dim x As Integer = 120
Dim y As Integer = 80

Dim offset As Size = New Size(x, y)

Dim points As Point() = New Point() {New Point(rect.Left + offset.Width, rect.Top + offset.Height), New Point(rect.Right, rect.Top + offset.Height), New Point(rect.Left, rect.Bottom - offset.Height)}

g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
g.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
g.DrawImage(m_image, points)

End Using

PictureBox1.Image = bmp
PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage

End Sub

End Class
ستلاحظ في الكود أعلاه أن القيمة x والقيمة y تحددان درجة ميل الصورة
و الأن لنبني دالة Function من الكود أعلاه وسنطلق عليها اسم SkewImage Function
وسيكون شكل الدالة كالتالي


كود :
Public Shared Function SkewImage(ByVal bitmap As Bitmap, ByVal offsetWidth As Integer, ByVal offsetHeight As Integer) As Bitmap

Dim bmp As New Bitmap(bitmap.Width, bitmap.Height, bitmap.PixelFormat)

Using g As Graphics = Graphics.FromImage(bmp)

Dim rect As Rectangle = New Rectangle(0, 0, bmp.Width, bmp.Height)
Dim offset As Size = New Size(offsetWidth, offsetHeight)

Dim points As Point() = New Point() {New Point(rect.Left + offset.Width, rect.Top + offset.Height), New Point(rect.Right, rect.Top + offset.Height), New Point(rect.Left, rect.Bottom - offset.Height)}

g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
g.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
g.DrawImage(bitmap, points)

End Using

Return bmp

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


كود :
Public Class Form1

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

Dim m_image As New Bitmap(My.Resources.imgsrv)
Dim ImageSkewed As Bitmap = SkewImage(m_image, 30, 50)

PictureBox1.Image = ImageSkewed
PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage

End Sub

Public Shared Function SkewImage(ByVal bitmap As Bitmap, ByVal offsetWidth As Integer, ByVal offsetHeight As Integer) As Bitmap

Dim bmp As New Bitmap(bitmap.Width, bitmap.Height, bitmap.PixelFormat)

Using g As Graphics = Graphics.FromImage(bmp)

Dim rect As Rectangle = New Rectangle(0, 0, bmp.Width, bmp.Height)
Dim offset As Size = New Size(offsetWidth, offsetHeight)

Dim points As Point() = New Point() {New Point(rect.Left + offset.Width, rect.Top + offset.Height), New Point(rect.Right, rect.Top + offset.Height), New Point(rect.Left, rect.Bottom - offset.Height)}

g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
g.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality

g.DrawImage(bitmap, points)

End Using

Return bmp

End Function

End Class


بالتوفيق

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] دوال التعامل مع النصوص Strings - VB.NET ابو ليلى 7 1,142 13-10-17, 05:39 PM
آخر رد: farhat ali
  مقارنة صورتين و الحصول علي الفرق بينهم Comparing Two Images and Get Diff Image silverlight 0 263 30-06-17, 11:33 AM
آخر رد: silverlight
  تفقيط الارقام فى الدوت نت مبرمج أوتار 17 4,872 20-04-17, 12:21 PM
آخر رد: محمد بوقزاحة
  مشروع لجلب الصور من الماسحة الضوئية (Scanner) m.sami.ak 14 5,236 22-01-17, 10:41 AM
آخر رد: amko
  مقدمة إلي إخفاء المعلومات - الجزء الأول silverlight 5 479 07-01-17, 10:44 PM
آخر رد: Basil Abdallah
  مقدمة إلي إخفاء المعلومات - الجزء الثاني silverlight 1 347 06-01-17, 11:52 AM
آخر رد: silverlight
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 7 4,155 26-12-16, 02:40 AM
آخر رد: sayed fox
  كيفية قراءة ملف باستخدام IntPtr الخاص بالملف silverlight 3 423 24-12-16, 03:13 AM
آخر رد: silverlight
  التعامل مع جهاز الكمبيوتر من Command Prompt silverlight 7 598 22-12-16, 06:07 PM
آخر رد: silverlight
Video [درس فيديو] هام مرة اخري تحذير للجميع في التعامل مع try والتكرار لعدد كبير ali.alfoly 1 325 13-12-16, 03:59 PM
آخر رد: Fantastico

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


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