17-10-12, 10:19 PM
كاتب الموضوع : هاني
السلام عليكمإليكم إخواني الأعزاء هذه الدالة و التي تقوم بإلتقاط صورة للشاشة و شكراُ .
كود :
'By Hani - 2007
'www.vb4arab.com
Function GetScreenSnapshot(ByVal activeWindowOnly As Boolean) As Image
' إلتقاط صورة للشاشة النشطة فقط
If activeWindowOnly Then
SendKeys.SendWait("%{PRTSC}")
Else
' إلتقاط صورة لكامل الشاشة
SendKeys.SendWait("{PRTSC 2}")
End If
' وضع الصورة في الحافظة
Return DirectCast(Clipboard.GetDataObject().GetData(DataFormats.Bitmap), Image)
End Function
ملاحظة :
يمكنك إلتقاط صورة للشاشة النشطة فقط أو للشاشة كاملة .