Ergebnis 1 bis 3 von 3

Baum-Darstellung

  1. #3
    Neuling
    Registriert seit
    07.05.2009
    Beiträge
    2

    Standard

    erstmal danke für deine Antwort ... aber in jpg umwandeln is nich so gut, jpg is ca. 50% größer als bmp .... aber wenn ichs in gif format umwandel könnte es klappen!

    ich teste das mal und meld mich dann wider



    edit: habs hinbekommen... hier der code falls jemand brauch:

    Code:
    Imports System.Drawing.Imaging
    Module Funktionen
    Sub Screenshot_Test2()
            Dim rect As Rectangle = Screen.AllScreens(0).Bounds
            Dim ici() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
            Dim ep As New EncoderParameters(1)
     
            
     
            ep.Param(0) = New EncoderParameter(Encoder.Quality, 25) '25% Qualität
     
            Using bmp As Bitmap = New Bitmap(rect.Width, rect.Height), g As  _
            Graphics = Graphics.FromImage(bmp)
                g.CopyFromScreen(0, 0, 0, 0, bmp.Size)
                bmp.Save(Application.StartupPath & "\Screenshot.jpg", ici(1), ep)
            End Using
     
        End Sub
    End Module
    Geändert von Bloober (06.05.2010 um 18:21 Uhr)

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •