نسخ جزء من صورة في PictureBox جديد
صفحة 1 من اصل 1 • شاطر
نسخ جزء من صورة في PictureBox جديد
بسم الله الرحمن الرحيم
_ لنتعلم كيفية نسخ جزء محدد من صورة موجودة فى PictureBox الى مربع PictureBox جديد نتبع الخطوات التالية :
1_ إنشاء مشروع نوافذ جديد
2_ نقوم باضافة عدد 2 مربع صورة PictureBox
3_ نقوم بإضافة عدد 4 مربع نص وذلك لادخال ابعاد الجزء المراد نسخة فى تلك المربعات كالطول و العرض و الارتفاع ...الخ
4_ إضافة زر امر
5_ إضافة صورة معينة فى مربع الصورة PictureBox الاول
الشكل العام للنافذة على النحو التالى :
6_ نقوم بكتابة الكود التالى فى حدث النقر لزر الامر
_ الاعلان عن متغيرات لتخزين قيم العرض الطول الارتفاع الاعلى
- الكود:
Dim top As Integer = Integer.Parse(txtTop.Text)
Dim left As Integer = Integer.Parse(txtLeft.Text)
Dim width As Integer = Integer.Parse(txtWidth.Text)
Dim height As Integer = Integer.Parse(txtHeight.Text)
_ نقوم بانشاء صورة نقطية على النحو التالى :
- الكود:
Dim bm As New Bitmap(width, height)
_نقوم بربط كائن الرسومات بالصورة النقطية مع تحديد بيانات الصورة المصدر كالطول و العرض ...الخ ثم نسخ الجزء الذى تم تحديدة على النحو التالى :
- الكود:
Using gr As Graphics = Graphics.FromImage(bm)
'
Dim src_rect As New Rectangle(left, top, width, _
height)
Dim dst_rect As New Rectangle(0, 0, width, height)
gr.DrawImage(picOriginal.Image, dst_rect, src_rect, _
GraphicsUnit.Pixel)
End Using
_ حيث ان picOriginal هو مربع الصورة الذى يحتوى على الصورة المصدر
_ اخير نقوم بعرض الجزء المحدد فى مربع الصورة الثانى :
- الكود:
picResult.Image = bm
و الكود الكامل كما يلى :
- الكود:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim top As Integer = Integer.Parse(txtTop.Text)
Dim left As Integer = Integer.Parse(txtLeft.Text)
Dim width As Integer = Integer.Parse(txtWidth.Text)
Dim height As Integer = Integer.Parse(txtHeight.Text)
Dim bm As New Bitmap(width, height)
Using gr As Graphics = Graphics.FromImage(bm)
'
Dim src_rect As New Rectangle(left, top, width, _
height)
Dim dst_rect As New Rectangle(0, 0, width, height)
gr.DrawImage(picOriginal.Image, dst_rect, src_rect, _
GraphicsUnit.Pixel)
End Using
picResult.Image = bm
End Sub
end.sub- .....
- تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد