فى هذا المقال التعليمى سنتعلم كيفية تكبير و تصغير Zooming على الصور ...بقليل من التعليمات البرمجية :

1_ أفتح الفجوال بيسك 2008 و أنشىء مشروع جديد Windows Application


2_قم باضافة عنصر التحكم PictureBox بحيث أن يكون الاسم البرمجى picBox


3_قم بإضافة عنصر التحكم TrackBar بحيث أن يكون الاسم البرمجى zoomSlider وسوف يتم استخدام عنصر التحكم Trackbar للتمرير وتكوين قيمة التكبير و التصغير للصورة


4_نقوم بكتابة التعليمات البرمجية على النحو التالى :

_ فى قسم التصريحات نقوم بكتابة الكود التالى :

الكود:

Private imgOriginal As Image

الكود:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)

      ' set image location

      imgOriginal = Image.FromFile("C:\New Folder\picture1.jpg")

      picBox.Image = imgOriginal
     ' set Picture Box Attributes
      picBox.BackgroundImageLayout = ImageLayout.Stretch
     ' set Slider Attributes
      zoomSlider.Minimum = 1
      zoomSlider.Maximum = 5
      zoomSlider.SmallChange = 1
      zoomSlider.LargeChange = 1
      zoomSlider.UseWaitCursor = False
     ' reduce flickering

      Me.DoubleBuffered = True

End Sub




و التعليمات البرمجية أعلاه هو لتعين بعض خصائص عناصر التحكم

_ نقوم بانشاء وظيفية لعمل تأثيرات التكبير و التصغير للصورة و ليكن بأسم PictureBoxZoom ...وذلك على النحو التالى :

الكود:




Public Function PictureBoxZoom(ByVal img As Image, ByVal size As Size) As Image


      Dim bm As Bitmap = New Bitmap(img, Convert.ToInt32(img.Width * size.Width), Convert.ToInt32(img.Height * size.Height))


      Dim grap As Graphics = Graphics.FromImage(bm)


      grap.InterpolationMode = InterpolationMode.HighQualityBicubic


      Return bm


End Function

في التعليمات البرمجية أعلاه، قمنا بإنشاء مثيل جديد من فئة Bitmap باستخدام الصور التي تم تمريرها إلى الدالة. ويتم تحجيم هذه الصورة لحجم معين ويتم أخذ إلى كائن الرسومات حيث prefiltered الصورة باستخدامInterpolationMode.HighQualityBicubic لضمان جودة تحويل الصور بدقة عالية عند التكبير أو التصغير

_والخطوة الأخيرة هي تمرير قيمة عنصر التحكم TrackBar واستدعاء وظيفة التكبير كما هو مبين أدناه :

الكود:

Private Sub zoomSlider_Scroll(ByVal sender As Object, ByVal e As EventArgs)
      If zoomSlider.Value > 0 Then
            picBox.Image = Nothing
            picBox.Image = PictureBoxZoom(imgOriginal, New Size(zoomSlider.Value, zoomSlider.Value))
      End If
End Sub

جزالك الله خيرا أخى الكريم

مشكور