• Home
 · 
• Graphics
 · 
• Resizes a picture and then saves it

Resizes a picture and then saves it

Resizes a picture and then saves it

Rate Resizes a picture and then saves it

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Picture2.Cls
Picture1.Picture = LoadPicture("test.jpg")
StretchBlt Picture2.hdc, 0, 0, Picture2.Width, Picture2.Height, Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
SavePicture Picture2.Image, "C:test2.jpg"
End Sub