Question

VB中PictureBox图片更换的问题：

各位VB高手，现我遇到一个问题，请大家指教： 我的界面上有一个照片的PictureBox用于显示学生照片，双击图片添加学生的照片并以固定名称拷贝并保存到指定位置，如果我想更换新的照片（同一个人，换照片），再次保存时就报错了。说该图片在别的进程中正在使用，请问如何处理？
SavePicture有这个命令吗？我怎么找不到呀。
我也试过装入其它图片的方法，先装入一个无用的图片，把正确的图片改名拷贝过来覆盖原文件，然后再显示这个图片，但还是报错，那个图片还是被进程使用。所以很郁闷，还有什么其它方法吗？
您好，您有QQ或邮箱吗，我一会做个工程试试，如果不行，我想发给您看一下。

Answer 1

我没有拷贝过图片，我从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格式的。

Answer 2

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

没有出错啊？

有问题再贴出来