حفظ الفورم

هذا 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 = 1

Application.DoEvents
keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 ) ''&& key down
Threading.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.DoEvents
SaveClipAsJPG("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}")

samir ibrahim كتب:

 

هذا 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 = 1

Application.DoEvents
keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 ) ''&& key down
Threading.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.DoEvents
SaveClipAsJPG("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

omani كتب:

 

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

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

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