Public Function GetScreenSnapshot(ByVal activeWindowOnly As Boolean) As Drawing.Image
My.Computer.Clipboard.Clear()
Dim keys As String = "{PrtSc}" 'PrtSc = Print Screen Key
If (activeWindowOnly) Then
keys = keys.Insert(0, "%") '% = Alt
End If
SendKeys.SendWait(keys)
Return My.Computer.Clipboard.GetImage
End Functionكود تصوير الشاشة
مغلق
مشكور يعطيك العافية على المجهود
ولكن نتمنى ان تقوم بشرح الطريقة من البداية
وشرح السطر التالي بلييييييييييييييييييييييييز
Public Function GetScreenSnapshot(ByVal activeWindowOnly As Boolean) As Drawing.Image
لأن بصراحة ماني عارفة كيف اكتب الكود وين مكانه بالضبط وكيف صارت معاك Function
بليز الشرح بالتفصيل
شكررررررررررررررررررررا
هذا الموضوع مغلق.