المجموعة الثالثة:
3.1-لاقط الشاشة Screen Captuer

مكونات المشروع
3 أزرار
CheckBox
PictuerBox
يجب ترتيب شكل المشروع كما بالصورة مع مراعاة أن تكون أبعاد مربع الصورة متناسبة 4 عرض إلى 3 طول 400 إلى 300 مثلا
بالنسبة لل CheckBox يجب تغيير خاصية Checked إلى True والغرض من ذلك أنها تكون فى الوضع Checked عند فتح البرنامج
كود الزر إلتقاط


كود:
Dim b As Bitmap = New Bitmap(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)
Dim g As Graphics = Graphics.FromImage(b)
Dim s As Size = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)
If CheckBox1.Checked Then
Me.Hide()
Dim t As DateTime = Now.AddSeconds(1)
Do : Application.DoEvents()
Loop Until Now.Second >= t.Second
g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy)
Me.Show()
t = Nothing
Else
g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy)
End If
PictureBox1.Image = b
g.Dispose()
b = Nothing

ستكون الصورة هى b

كود:
Dim b As Bitmap = New Bitmap(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)
الصورة الجديدة مصدرها طول وعرض
العرض من Screen.PrimaryScreen.WorkingArea وكذلك الطول
سيكون حجم الصورة الملتقطة هو حجم شاشة العرض التى تستخدمها

كود:
Dim s As Size = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)
لو مساحة العرض =800x600 ستكون الصورة الملتقطة بنفس المقاس
وظيفة CheckedBox
كود:
If CheckBox1.Checked Then
Me.Hide()
Dim t As DateTime = Now.AddSeconds(1)
Do : Application.DoEvents()
Loop Until Now.Second >= t.Second
g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy)
Me.Show()
t = Nothing
إذا كان مربع CheckBox فى وضع Check قم باخفاء البرنامج نفسة من على سطح المكتب حتى لا يظهر أثناء الإلتقاط لمدة ثانية واحدة ثم التقط عن طريق نسخ البيكسل الذى هو b التى هى الصورة ثم قم بعرض الصورة داخل مربع الصورة
كود الزر حفظ



كود:
Dim saveDlg As SaveFileDialog = New SaveFileDialog

كود:

Dim dlgResult As DialogResult = New DialogResult
saveDlg.Filter = "JPEG Files (*.jpg)|*.jpg"
saveDlg.Title = "Select the file to save the image too."
dlgResult = saveDlg.ShowDialog
If dlgResult = Windows.Forms.DialogResult.OK Then
PictureBox1.Image.Save(saveDlg.FileName)
End If

وكما هو واضح فهذا ما هو إلا دايلوج الحفظ

لتحميل المثال
http://www.zshare.net/download/504850426ea861

يتــــــــــــــــــــبع,,,,,,

__________________



كثر الله خير و جمل الله حالك ياهبشان
لو أنني كنت شاعراً لكتبت معلقة غزل في روعة و جمال هذى النظام
أضغط على الصورة

كم هي جميلة شبكتنا .. وكم هي كبيره بكم
فشبكة قحطان بكم ولكم
فلننهظ بها
بصدق وأمانه
وبلا تذمر