[VB6]Dimezzare le immagini.

[GoldEmish]

Ciao, è possibile aprire un file BMP, dimezzarne le dimensioni e risalvarlo?
Grazie
Ho provato a fare

Picture1.PaintPicture loadpicture("nomefile"),0,0,loadpicture("nomefile").width/2,loadpicture("nomefile").height/2

Ma le dimensioni vengono sballate... perchè?

[LMondi]

Prendo lo spunto da quanto ho postato un attimo fa:
Salva l'immagine:

Private Sub CmdSalva_Click()
        Form1.ImageLavagna.Refresh
        Clipboard.SetData ImageLavagna, vbCFBitmap
        Form1.ImageLavagna.Picture = Clipboard.GetData
        SavePicture ImageLavagna.Picture, App.Path & "\ImageLavagna.bmp"
End Sub
'Carica/Apre l'immagine con le dimensioni che vuoi:
Private Sub CmdCarica_Click()
        
        On Error Resume Next
    'Cancella il controllo Image:
        ImageLavagna.Picture = LoadPicture()
        ImageLavagna.Stretch = True    'Imposta l'altezza e la larghezza dell'immagine:
        With ImageLavagna
            .Height = 3000
            .Width = 6000
        End With 
   'Carica l'immagine:
        Set ImageLavagna.Picture = _
        LoadPicture(App.Path & "\ImageLavagna.bmp")
End Sub

[GoldEmish]

Grazie,
un'altra cosa.
Quando io uso le proprietà:
Picture1.Image.Width o Heigth perchè i valori sono in Twips anche se Picture1.ScaleMode è impostato su pixels?

Grazie, ciao

[LMondi]

Questo con esattezza non te lo so dire; si vede che il codice di conversione non funziona, o in mancanza lo devi creare appositamente perchè il controllo si esprime in Twips.