[Blue Sky]

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

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


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


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

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

PHP كود :

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 مسار الصورة التى تم اختيارها

[Blue Sky]

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

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

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


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

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

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

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

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

كود :

[color=#0000FF][FONT=arial][b][FONT=Tahoma][COLOR=#000000][FONT=arial][b] PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage[/b][/FONT][/color][/FONT]
[/b][/FONT][/COLOR]

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

[Blue Sky]

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

كود :

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

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

كود :

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

[Blue Sky]

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

كود :

PictureBox1.Image = CType(Clipboard.GetDataObject().GetData(DataFormats.Bitmap), Bitmap)

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


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


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

[Blue Sky]

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

كود :

[color=#000000][FONT=arial][b] PictureBox1.Image = Nothing[/b][/FONT][/color]

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

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