منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معلومة ::: PictureBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : معلومة ::: PictureBox (/showthread.php?tid=5288)

معلومة ::: PictureBox - RaggiTech - 06-10-12

كاتب الموضوع : BADRMEDIA



أداة PictureBox وهى الأداة الشهيرة للتعامل مع الصور

سنتعرف على بعض الجوانب الهامة لها


================================


تكلمنا عن الأداة OpenFileDialog من قبل وتمكننا من الوصول للملفات

سنستخدمها أما أن ندرجها من صندوق الأدوات أو أن ننشأ عنصر منها بالكود






كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Openfd As New OpenFileDialog

Openfd.Filter = "Bmp(*.bmp)|*.bmp|" & _
"Wmf(*.wmf)|*.wmf|" & _
"Icons(*.ico)|*.ico|" & _
"JPEG(*.jpg)|*.jpg|" & _
"GIF(*.gif)|*.gif|" & _
"PNG(*.png)|*.png"

If Openfd.ShowDialog() = Windows.Forms.DialogResult.OK Then

PictureBox1.Image = Image.FromFile(Openfd.FileName)
End If

End Sub
عرفنا عنصر من نوع OpenFileDialog باسم Openfd

حددنا له فلتر بالملفات التى يراها

اعطينا لأداة PictureBox1 فى الخاصية Image مسار الصورة التى تم اختيارها

معلومة ::: PictureBox - RaggiTech - 06-10-12

من أهم خواص الأداة PictureBox

الخاصية SizeMode وهى تحدد نظام حجم الصورة

ولها عدة اختيارات


AutoSize وهو يكون وضع تلقائى حسب حجم الصورة

CenterImage وهو جعل الصورة فى مركز الأداة

Normal أنت تكون الصورة فى الوضع الطبيعى

StretchImage أن تكون الصورة عى حجم الأداة سواء كان حجمها كبير أم صغير

Zoom هو تكبير الصورة بمعدل معين



كود :
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

ويمكن تغيير الخصائص من نافذة الخصائص للأداة والوصول للخاصية SizeMode

معلومة ::: PictureBox - RaggiTech - 06-10-12

يمكن أن تقتح صورة من مسار معين




كود :
PictureBox1.Image = Image.FromFile("C:\BADRMEDIA.gif")


يمكن أن تحفظ صورة فى مسار معين



كود :
PictureBox1.Image.Save("C:\BADRMEDIA.jpg", Imaging.ImageFormat.Jpeg)

معلومة ::: PictureBox - RaggiTech - 06-10-12

ضع زر أمر واكتب فيه هذا الأمر



كود :
PictureBox1.Image = CType(Clipboard.GetDataObject().GetData(DataFormats.Bitmap), Bitmap)

شغل التطبيق وقم باخذ صورة عن طريق زر الكيبورد Print Screen

الآن عندك صورة فى الذاكرة مخزنة


قم بتنفيذ الأمر الذى فى الزر ستظهر الصورة المخزنة فى الأداة PictureBox

معلومة ::: PictureBox - RaggiTech - 06-10-12

لو أحببت أن تجعل الأداة PictureBox فارغة تسند لها القيمة Nothing



كود :
PictureBox1.Image = Nothing

إن شاء الله ببالقريب

سنتكلم فى دروس متقدمة عن معالجة الصور تحت مفهوم برمجة البيانات Grafix