title image


Smiley Re: Screenshot in JPEG-Format erstellen?


also hier ist eine ganz einfache Methode um einen Screenshot zu machen:

Option Explicit



Private Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)



Private Sub cmdScreenWindow_Click()



    keybd_event &H2C, 0, 0, 0

        'Sendet die "Drucken" Taste , so das Windows einen kompletten

        'Screenshot des Bildschirms erstellt.

        

    DoEvents

    picScreenshot.Picture = Clipboard.GetData

        'Der Screenshot wird in die PictureBox kopiert.

            

End Sub

Private Sub Form_Resize()

    

    If Me.Width < 6015 Then Me.Width = 6015

    If Me.Height < 6420 Then Me.Height = 6420



    picScreenshot.Width = Me.Width - 100

    picScreenshot.Height = Me.Height - 250

             

        'Hier wird dafür gesorgt, das sich die PictureBox auf

        'eine passende Größe anpasst, wenn sich die Form verändert.



End Sub



wie du das Bild als jpg speicherst? Such einfach mal bei Google da findest du jede menge. 

Es wäre zu umfangreich denn um ein bmp als jpg zu speichern wird eine dll benötigt.



Solltes du eine möglichkeit finden wie es ohne dll funktionert wäre es nett, wenn du mir

dies sagen würdest.



Viele Grüße



Marco

 

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: