:ciao:
Public Sub BT_Image_Click()
Dim pict As Picture
pict = Desktop.Screenshot(MapView1.ScreenX, MapView1.ScreenY, MapView1.Width, MapView1.Height)
' pict.Save("/tmp/immagine.png", 100)
' pict.Save("~/Scrivania/mappa_sirene.png", 100)
pict.Save("~/Scrivania/mappa_sirene.png", 50)
End
Un pulsante per stampare l'immagine di una cartina caricata nella MapView.
Cambiando il valore Quality il risultato non cambia, cioè le grandezza del file prodotto è sempre la stessa. :-\
Cosa non ho capito?
:ciao: :ciao:
Credo che sia come al solito con le Picture per ottenere cambiamenti devi agire su un'immagine cioè Image
Più tardi, appena posso faccio una prova. :)
:ciao: :ciao:
P.S. Come pensavo, così funziona (il range con le qt è fra -1:100):
pict.Image.Save("~/Scrivania/mappa_sirene.png", 50)