指定的色彩阶我没法做到,大小缩放还可以:
Private Sub Command2_Click()
Picture2.PaintPicture Picture1.Picture, 0, 0, 2500, 2250
End SubPrivate Sub Command3_Click()
SavePicture Picture2.Image, "c:\12\liu.jpg"
End Sub
Picture1.Picture为原图。0, 0, 2500, 2250为缩放后的大小。