إنشاء تطبيق لتصوير سطح المكتب مع امكانية تحديد جزء لالتقاط الصورة
صفحة 1 من اصل 1 • شاطر
إنشاء تطبيق لتصوير سطح المكتب مع امكانية تحديد جزء لالتقاط الصورة
بسم الله الرحمن الرحيم
أهلا بكم ...معظمنا يستخدم الامر PrintScreen فى لوحة المفاتيح لتصوير سطح المكتب أو نوافذ البرامج المختلفة ...لكن هل اردت أن تقوم بإنشاء تطبيق لتصوير سطح المكتب مع أمكانية تحديد الجزء المراد تصويرة ....أتبع الخطوات التالية فقط :
1_ افتح Visual Studio 2008 لانشاء مشروع جديد من نوع Windows Application
2_قم بإضافة العنصر ContextMenuStrip و العنصر NotifyIcon الى النافذة وذلك من خلال السحب من شريط الادوات الجانبى toolbox
3_ أجعل الخاصية ContextMenuStrip للعنصر NotifyIcon تساوى contextMenuStrip1
4_ قم بإضافة عدد 2 قائمة الى العنصر ContextMenuStrip1 وليكن بأسم Grab Screenshot و Select Area
5_ قم بتغير خصائص النافذة على النحو التالى :
Opacity : 20% , FormBorderStyle : SizableToolWindow , TopMost : True
6_ نقوم بكتابة الاكواد على النحو التالى :
_ استيراد المكتبات اللازمة :
- الكود:
Imports System.Drawing
Imports System.Drawing.Imaging
- الكود:
Private Sub GrabScreenshotToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrabScreenshotToolStripMenuItem.Click
Dim bmpSS As Bitmap
Dim gfxSS As Graphics
bmpSS = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format32bppArgb)
gfxSS = Graphics.FromImage(bmpSS)
gfxSS.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
Dim saveDialog As New SaveFileDialog
saveDialog.Filter = "JPeg Image|*.jpg"
saveDialog.Title = "Save Image as"
saveDialog.ShowDialog()
If saveDialog.FileName <> "" Then
bmpSS.Save(saveDialog.FileName, ImageFormat.Jpeg)
End If
End Sub
_ فى حدث تحميل النافذة Form load ...نكتب التعليمات التالية :
- الكود:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ShowInTaskbar = False
Me.WindowState = FormWindowState.Minimized
Me.Hide()
End Sub
_فى حدث النقر على القائمة SelectArea نكتب التعليمات التالية :
- الكود:
Private Sub SelectAreaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAreaToolStripMenuItem.Click
Me.Show()
Me.WindowState = FormWindowState.Normal
End Sub
- الكود:
Private Sub Form1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.DoubleClick
Try
bmp = New Bitmap(Me.Size.Width, Me.Size.Height, PixelFormat.Format32bppArgb)
graphics = Graphics.FromImage(bmp)
graphics.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
Dim saveDialog As New SaveFileDialog
saveDialog.Filter = "JPeg Image|*.jpg"
saveDialog.Title = "Save Image as"
saveDialog.ShowDialog()
If saveDialog.FileName <> "" Then
bmp.Save(saveDialog.FileName, ImageFormat.Jpeg)
End If
bmp.Dispose()
graphics.Dispose()
Me.Hide()
Me.WindowState = FormWindowState.Minimized
Catch ex As Exception
Finally
bmp = Nothing
graphics = Nothing
End Try
End Sub
End Class
عند النقر المزدوج على النافذة يتم تصوير الشاشة كما فعلنا فى الكود الاخر لكن هذه المرة قمنا بتغيير حجم صورة التى سيتم أخذها بناء على أحداثيات النافذة و ليس الشاشة الرئسية
و الان يمكنك تصوير جزء من الشاشة كما فى الصور التالية :
المشروع فى المرفقات
المبرمج الطموح- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 207
النقاط : 368
التقيم : 17
الدولة :
الجنس :
المبرمج الطموح- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 207
النقاط : 368
التقيم : 17
الدولة :
الجنس :
رد: إنشاء تطبيق لتصوير سطح المكتب مع امكانية تحديد جزء لالتقاط الصورة
أشكرك اخويا ...وهذا كود لتصوير النافذة النشطة فقط على الشاشة
- الكود:
Private Sub btnCapture_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim graph As Graphics = Nothing
Try
Dim bmp As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
graph = Graphics.FromImage(bmp)
graph.CopyFromScreen(0,0, 0, 0, bmp.Size)
SaveImage(bmp)
Finally
graph.Dispose()
End Try
End Sub
Private Sub SaveImage(ByVal b As Bitmap)
b.Save("C:\1.bmp")
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 من طرف رانيا حماد