تقييم الموضوع :
  • 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


بالتوفيق

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox السكر المغرور 13 2,608 19-08-18, 09:27 AM
آخر رد: elgokr
  [مقال] دوال التعامل مع النصوص Strings - VB.NET ابو ليلى 9 3,413 08-07-18, 02:36 AM
آخر رد: خلاف
Exclamation [VB.NET] التعامل مع ال CMD عن طريق ال TextBox YousefOkasha 5 329 02-06-18, 09:34 PM
آخر رد: YousefOkasha
  التــعامل مع cmd من خلال الدوت نت مبتدئ في الاحتراف 3 984 02-06-18, 12:36 AM
آخر رد: YousefOkasha
  مقدمة إلي ضغط الصور ..... Zip Bitmap silverlight 0 176 10-05-18, 04:35 AM
آخر رد: silverlight
  حساب قيمة معادلة(اقصد صيغة دون مجاهيل) مكتوبة بالتكست : الجزء الخامس والاخير محمد شريقي 4 1,492 23-02-18, 10:44 PM
آخر رد: العواد الصغير
  التعامل مع الصور Images في بيئة الدوت نت باستخدام +GDI - مقدمة RaggiTech 2 1,335 22-01-18, 12:49 AM
آخر رد: amna jamal
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 8 5,026 28-11-17, 11:23 PM
آخر رد: ahmed4240
  شرح خوارزميات معالجة الصور (من دروس الاستاذ فوزي برزنجي) ناديه الشجيري 16 14,007 30-10-17, 04:05 PM
آخر رد: alsouf
  مقارنة صورتين و الحصول علي الفرق بينهم Comparing Two Images and Get Diff Image silverlight 0 555 30-06-17, 11:33 AM
آخر رد: silverlight

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


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