我没有拷贝过图片,我从PictureBox里面保存过图片。
SavePicture Picture1.Image, "d:\111.bmp"
这样,即使图片已经存在了,也不报错,直接就替换了。
或者你那个PictureBox先加载图片,然后再拷贝替换。
也就是说,PictureBox现在加载的图片为A。然后加载图片B。这时,A就从程序里释放了。然后再执行B替换A。使B的名字也变成A的名。
----------------------------------------------------
有SavePicture 这个命令的,你可以先加载正确的照片到Picture1里面之后再执行这个保存命令。
SavePicture Picture1.Image, "d:\111.bmp"
你单独做一个工程试验一下,试试可以替换保存不。
我试过了,如果111。bmp已经存在了,直接就替换的。不过我没有试过jgp格式的。
Private Sub Command1_Click()
P1.Picture = LoadPicture(App.Path + "\2.bmp")
End Sub
Private Sub Form_Load()
P1.Picture = LoadPicture(App.Path + "\1.bmp")
End Sub
Private Sub P1_Click()
SavePicture P1, App.Path + "\Back.bmp"
End Sub
没有出错啊?
有问题再贴出来