Screenshot verkleinern

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Samus Aran.

    Screenshot verkleinern

    Hi,

    Mein Code
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Function CaptureScreen() As Bitmap
    2. Dim b As New Bitmap(SystemInformation.VirtualScreen.Width, SystemInformation.VirtualScreen.Height)
    3. Dim g As Graphics = Graphics.FromImage(b)
    4. g.CopyFromScreen(0, 0, 0, 0, b.Size)
    5. g.Dispose()
    6. 'CreateScreenshot()
    7. Return b
    9. End Function
    11. Sub CreateScreenshot()
    12. Me.PictureBox1.Image = CaptureScreen()
    13. ' Public Sub JPEGCompression(ByVal Image As Image, ByVal OutPutFile As String, ByVal Qualitiy As Integer)
    14. Dim ImageCodecs() As ImageCodecInfo
    15. Dim ImageParameters As EncoderParameters
    17. ImageCodecs = ImageCodecInfo.GetImageEncoders()
    18. ImageParameters = New EncoderParameters(1)
    19. ImageParameters.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 50)
    20. PictureBox1.Image.Save("C:\Bildverkleinert.jpeg", ImageCodecs(1), ImageParameters)
    21. ' End Sub
    22. End Sub

    Der Screenshot wird erstellt doch beim Verkleinern/komprimieren bekomme ich einen Allgemeinen Fehler in GDI +
    Woran liegt das?

    Greetz
    Rikudo
    C# Developer
    Learning C++

    dann setzt mal nen Haltepunkt auf Zeile 20 und schau nach ob etwas Nothing ist. Ansonsten ist für Screenshots das .png-Format zu empfehlen^^

    Edit: Der Code scheint zu funktionieren. Du hast aber keine Rechte um auf C:\ zu schreiben, darum der Fehler. Visual Studio (bzw die Application) so starten:



    dann sollte es klappen.

    Damit meine ich das:

    VB.NET-Quellcode

    1. Dim capture As Bitmap = CaptureScreen
    2. Dim toSave As New Bitmap(<neue Breite>,<neue Höhe>)
    3. Dim g As Graphics = Graphics.FromImage(toSave)
    4. g.DrawImage(capture,new Rectangle(0,0,toSave.Width,toSave.Height)
    5. g.Dispose
    6. toSave.Save("C:\Bildverkleinert.jpeg")

Facebook
Telefonspende