æ·»å 两个pictureï¼ä»¥å两个command,ä¸ä¸ªä½ä¸ºé¢è§ï¼ä¸ä¸ªç¨äºä¿åã
ç¶åæ¯ï¼priavte sub command1_click()'å°picture1å è½½çå¾çä½ä¸ºé¢è§å°picture2
Picture2.ScaleMode = 3
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture1.Image, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
end sub
'Picture2.Image å³ä½ éè¦çå
容ï¼
ç¶å private sub command2_click()'å°picture2å¾çä¿åå°c:test.bmp
SavePicture Picture2.Image, "C:\test.bmp"
end sub
温馨提示:答案为网友推荐,仅供参考