[VB.NET 8]Screenshot taglia il "bottom"

[fedrock]

Dim Screenshot As Bitmap
Screenshot = New Bitmap(My.Computer.Screen.WorkingArea.Width, _
                    My.Computer.Screen.WorkingArea.Height, _
                    Imaging.PixelFormat.Format32bppArgb)
            Dim g As Graphics = Graphics.FromImage(Screenshot)
            g.CopyFromScreen(New Point(0, 0), New Point(0, 0), _
                    New Size(My.Computer.Screen.WorkingArea.Width, _
                     My.Computer.Screen.WorkingArea.Height))
            Screenshot.Save(locatedfile)

Funziona... ma mi taglia la parte in basso, avete presente la barra di windows 7?


Credo che sia a cause di "WorkingArea"

[MItaly]

Certo, infatti la WorkingArea esclude la barra di start (è solo l'area utile per le finestre ingrandite, per intenderci). Lascia stare la proprietà WorkingArea, usa la proprietà Bounds.

[oregon]

[OT]Quell'avatar "tremolante" rende impossibile la lettura del thread ... [/OT]

[fedrock]

@MItaly: Bene, fuziona alla grande
@oregon: fatto

Comunque ragazzi, l'immagine è passata da circa 150Kb a 250KB
Ora, ho provato ad aprire l'immagine con Photoshop, ma mi dava errore, non so, magari qualche problema di compatibilità a livello di estensione...
L'ho aperta con paint di Windows e quindi l'ho risalvata in Jpeg ed aperta con Photoshop...
L'ho risalvata ancora una volta con Photoshop (sempre in Jpeg ma bassa qualità) e sono riuscito a farla pesare da
218Kb a 96Kb certo, un po' di qualità si è persa ma comunque è piuttosto accettabile il compromesso qualità\peso... prima che mi metta a continuare l'applicazione, vi è qualche modo per ridurre il peso dell'immagine dello screenshot direttamente da codice?

[MItaly]

Originariamente inviato da fedrock
...

In che formato stai salvando l'immagine?

[fedrock]

Originariamente inviato da MItaly
In che formato stai salvando l'immagine?

Dato il:

Dim Screenshot As Bitmap

in .bmp

[fedrock]

Spero che i mods mi concedano di discutere di quest'ultimo problema senza aprire un nuovo topic... credo se sia in qualche modo collegabile alla richiesta iniziale, no? ok, forse non molto

@MItaly: ho provato a cambiare semplicemente il ".BMP" con ".JPG" l'immagine che crea ha effettiva estensione .JPG ma il peso è uguale a quella della .BMP

Ora ho provato in questa maniera:

Dopo aver creato l'immagine in .BMP la converto in .JPG con questo source:

 
    Dim filebmp As String = "C:....."
        Dim objBmp As New Bitmap(FileBMP)
        Dim FileJPG As String = Strings.Left(FileBMP, Len(FileBMP) - 4) & ".jpg"
        objBmp.Save(FileJPG, System.Drawing.Imaging.ImageFormat.Jpeg)
        objBmp.Dispose()

L'immagine viene rimpiazzata da un'altra immagine ma, con un 50% di "peso" in meno...
Qualcosa che mi permetta di diminuire ulteriolmente il peso? magari proverò ad aprire un topic su "metodi alternativi" come per esempio convertire l'immagine in .PDF o metterla in un .DOC, chissà se si risparmierebbe "peso"