الرئيسيةالبوابةس .و .جبحـثالتسجيلالأعضاءالمجموعاتدخول

شاطر | 
 

 كود تصدير الشـاشـــــــة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
fox
عضو ذهبى
عضو ذهبى
avatar

عدد الرسائل : 248
نشاط العضو :
100 / 100100 / 100

الأوسمة :
تاريخ التسجيل : 20/01/2008

مُساهمةموضوع: كود تصدير الشـاشـــــــة   الأحد فبراير 10, 2008 9:54 pm

الكود:
[font=Courier New]Public Function GetScreenSnapshot(ByVal activeWindowOnly As Boolean) As Drawing.Image[/font]
[font=Courier New]        My.Computer.Clipboard.Clear()[/font]
[font=Courier New]        Dim keys As String = "{PrtSc}" 'PrtSc = Print Screen Key[/font]
[font=Courier New]        If (activeWindowOnly) Then[/font]
[font=Courier New]            keys = keys.Insert(0, "%") '% = Alt[/font]
[font=Courier New]        End If[/font]
[font=Courier New]        SendKeys.SendWait(keys)[/font]

[font=Courier New]        Return My.Computer.Clipboard.GetImage[/font]
[font=Courier New]    End Function[/font]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
كود تصدير الشـاشـــــــة
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
عاشق :: منتدى @@ الكمبيوتر والأنترنت @@ :: منتدى البرمجة-
انتقل الى: