[VB6]: Salvataggio di immagini ed imprecisioni sulla dimensione

[stejano]

ciao a tutti....
sto facendo un programma che ridimensiona le immagini...tramite paintpicture, le dimensione dell'immagine vengono immesse tramite una text box...ma quando vado a salvare ho questo problema...se immetto 640*480 viene salvata 636*476....perchè?mille grazie anticipatamente della risposta...

[alka]

Temo tu debba fornire anche un pochino di codice per poter verificare che quanto hai scritto sia corretto.

Ciao!

[stejano]

ecco qui un po' di codice....è il comando che crea il ridimensionamento della foto...

Private Sub Command1_Click()

On Error GoTo errore
Dim i As Integer
Dim foto As Picture
For i = 0 To File1.ListCount - 1
If File1.Selected(i) = True Then
Set foto = LoadPicture(File1.Path & "\" & File1.List(i))
Form2.Picture1.Picture = foto
Form2.Picture2.PaintPicture Form2.Picture1.Picture, 0, 0, Form1.Text1.Text, Form1.Text2.Text
SavePicture Form2.Picture2.Image, "C:\Photo" & i & ".jpg"
End If


Next i

Form2.Show


Exit Sub
errore:
MsgBox ("digitare prima le dimensioni desiderate")


End Sub






nei text box non ci sono righe di codice...nessun comando...


la picturebox si adatta alla dimensione della foto sempre tramite gli stessi text box così..

Form2.ScaleMode = Form2.Picture2.ScaleMode
Form2.Picture2.Width = Form1.Text1.Text
Form2.Picture2.Height = Form1.Text2.Text

[Veronica80]

forse prende qualche margine...tu metti tutto a +4!

[stejano]

l'aveva pensata pure io....il picturebox forse prende qualche margine..anche al +4 ci avevo pensato...volevo sapere se era una cosa risolvibile magari con qualche sistema particolare....molte grazie..



alla fine ho tolto il bordo ed è andato a posto..