SaveImage

Membri :

Propriet� :

Esempio di utilizzo :

    Per aprire l'interfaccia LoadImage caricare una BMP e convertirla in JPG  :

        Dim objSave As New SaveImage
        Dim objLoad As New LoadImage
        Dim strFile As String
            objLoad.REGKEY = "\SOFTWARE\GiulioSPA\N3DPro\ImageLoader"
            strFile = objLoad.Load ' Carica un BMP
            If strFile <> "" Then
                objSave.REGKEY = "\SOFTWARE\GiulioSPA\N3DPro\ImageSaver"
                objSave.Save strFile ' Salvo il BMP
            End If
        Set objSave = Nothing
        Set objLoad = Nothing

   Interfaccia di SaveImage :

Nota : Da quello che si nota. Per poter salvare il contenuto di un controllo Picture in JPG, bisogna prima salvarlo in BMP in una directory nota (per esempio la stessa dell'applicazione), con un nome unico (es. Temp.bmp) e per ultimo rimuoverlo (Kill App.Path & "\temp.bmp").