• 0
amer-albarqi

حفظ الفورم

سؤال

السلام عليكم ورحمة الله وبركاته 


 


مثل ماهو واضح في العنوان أريد كود أو طريقة لتصوير الفورم بما يحتويه (الفورم فقط) وحفظه


 


أو حفظ الفورم كصورة وفتحها في مستند Word


 


والسلام عليكم ورحمة الله وبركاته


0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

هذا مثال كامل أعددته للتو  باستخدام فيجوال 2010

 

اتمني ان ينال رضاكم

 

 

Print Screen.rar

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هذا code وجدته

Private Sub btnButton1_Click( sender As System.Object,  e As System.EventArgs) Handles btnButton1.Click    Const KEYEVENTF_KEYUP As Integer = &H2    Const VK_CAPITAL As Integer  = &H14    Const VK_NUMLOCK As Integer  = &H90    Const VK_OEM_SCROLL As Integer = &H91    Const VK_LMENU As Integer = 164    Const VK_SNAPSHOT As Integer = 44    Const KEYEVENTF_EXTENDEDKEY As Integer = 1Application.DoEventskeybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 ) ''&& key downThreading.Thread.Sleep(0.11)keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 )Threading.Thread.Sleep(0.11)keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 )Threading.Thread.Sleep(0.11)keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 )Application.DoEventsSaveClipAsJPG("C:\xxx\form.jpeg")End Sub    Function SaveClipAsJPG(Filename As String)        If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then            Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()            If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then                Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)                'To Save as Bitmap                'oImgObj.Save("c:\xxx\Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp)                'To Save as Jpeg                oImgObj.Save(Filename, System.Drawing.Imaging.ImageFormat.Jpeg)                'To Save as Gif                'oImgObj.Save("c:\xxx\Test.gif", System.Drawing.Imaging.ImageFormat.Gif)            End If        End If    End Function
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

استخذم هذا الكود لارسال أمر الضغط على زر ALT+CTRL+PRINT SCREEN 

  SendKeys.Send("%^{PRTSC}")
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

 

هذا code وجدته

Private Sub btnButton1_Click( sender As System.Object,  e As System.EventArgs) Handles btnButton1.Click    Const KEYEVENTF_KEYUP As Integer = &H2    Const VK_CAPITAL As Integer  = &H14    Const VK_NUMLOCK As Integer  = &H90    Const VK_OEM_SCROLL As Integer = &H91    Const VK_LMENU As Integer = 164    Const VK_SNAPSHOT As Integer = 44    Const KEYEVENTF_EXTENDEDKEY As Integer = 1Application.DoEventskeybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 ) ''&& key downThreading.Thread.Sleep(0.11)keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 )Threading.Thread.Sleep(0.11)keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 )Threading.Thread.Sleep(0.11)keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 )Application.DoEventsSaveClipAsJPG("C:\xxx\form.jpeg")End Sub    Function SaveClipAsJPG(Filename As String)        If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then            Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()            If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then                Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)                'To Save as Bitmap                'oImgObj.Save("c:\xxx\Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp)                'To Save as Jpeg                oImgObj.Save(Filename, System.Drawing.Imaging.ImageFormat.Jpeg)                'To Save as Gif                'oImgObj.Save("c:\xxx\Test.gif", System.Drawing.Imaging.ImageFormat.Gif)            End If        End If    End Function

 

 

 

استخذم هذا الكود لارسال أمر الضغط على زر ALT+CTRL+PRINT SCREEN 

  SendKeys.Send("%^{PRTSC}")

 

 

هذا مثال كامل أعددته للتو  باستخدام فيجوال 2010

 

اتمني ان ينال رضاكم

 
 

يعطيكم العافيه وما قصرتوا والله يجزاكم خير الجزاء  وتم حل المشكلة

تم تعديل بواسطه amer-albarqi
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .