UC知道VB保存图片问题!
来源：百度知道 编辑：UC知道 时间：2024/05/25 04:31:34
我想用savepicture把vb里picture控件里的图片保存到电脑上比如d:/图片里,picture里的图片是从webbrowser1里读取的,所以是变化的,现在保存的时候老是只有一张,有什么方法能把所有出现在picture里的图片都保存下来,是不是文件名重名了?望赐教!
楼上的能发下源码吗,谢谢!分可以加的!
楼上的能发下源码吗,谢谢!分可以加的!
语法如下
SavePicture Picture1.Picture, "d:\图片\00001.jpg"
解决一张的问题：
先检查 d:\图片 存在哪些图片，文件名最大的一张是多少，
在将其文件名加1，得到新文件名，再保存。
示例代码如下：
Private Sub Command1_Click()
Dim i As Integer
Dim FilePath As String
Dim FileName As String
FilePath = "D:\图片\"
i = 1
FileName = Format(i, "00000") & ".jpg"
Do Until Dir(FilePath & FileName) = ""
i = i + 1
FileName = Format(i, "00000") & ".jpg"
Loop
SavePicture Picture1.Picture, FilePath & FileName
End Sub