Private Sub Command2_Click()
     Me.Picture = Me.Image
     '保存捕捉的图片
   
     SavePicture Image, "D:\1.gif"   
End Sub
怎么做才不会替换文件，我要每一次按按钮就保存一张图..

自动生成保存的文件名不就可以了么

Private Sub Command2_Click()
    dim ab as integer
     Me.Picture = Me.Image
    ab=ab+1
     SavePicture Image, (ab+".gif")
End Sub

希望可以帮助到你

第5行应该是 SavePicture Image, (ab & ".gif")  不好意思 发错了

3L的代码始终把图片保存在当前目录下的1.gif
可以通过dir（）来判断文件是否存在，如果存在，则重新生成文件名，再判断是否存在；直到新文件名不存在为止。
strNewName="新文件名"
while dir$(strNewName) <> ""
    strNewName="重新生成文件名"
wend

'savePicture ....

刚睡觉的路过～

代码过少,使用随机的文件名比较好。

SavePicture Image, "D:\1.bmp" '可以的话，请改成!

学习

SavePicture Image, "D:\" & format(now,"yyyymmddhhmmss") & ".gif" 一秒钟一张

[ 本帖最后由 中国火炬 于 2010-8-8 10:25 编辑 ]