WebBrowser控件保存图片至Picturebox控件

WebBrowser控件保存图片至Picturebox控件

首先要建WebBrowser与Picturebox控件各一个

然后设置WebBrowser.navigate url            (这个url变量为有图片的你要打开的网页的网址)

imgurl=""                             (imgurl是一个您要下载的图片的网址)

然后在form里面加入以下代码

                            For Each x In webForm.WebBrowser.document.All
                                If UCase(x.TagName) = UCase("IMG") Then
                                    If InStr(1, UCase(x.src), UCase(imgurl), 1) > 0 Then
                                        Set ctrlRange = webForm.WebBrowser.document.body.createControlRange()
                                        ctrlRange.Add (x)
                                        Clipboard.Clear
                                        'MsgBox UCase(x.src)
                                        ctrlRange.execCommand ("Copy")
                                        'SavePicture Clipboard.GetData, App.Path & "/1.bmp"    '用于把图片保存至硬盘中
                                        Picture1.Picture = Clipboard.GetData
                                        Exit For
                                     End If
                                End If
                            Next

运行以上代码后，将会把WebBrowser控件中的指定img标签中的图片保存至Picture1控件，

 

如果你的WebBrowser控件所打开的网页中，有以下html代码：

<img src='http://photos.benginfo.com/benginfo/styleimg/logo--.jpg'>;

那么如果你设置imgurl的变量为http://photos.benginfo.com/benginfo/styleimg/logo--.jpg

即imgurl=http://photos.benginfo.com/benginfo/styleimg/logo--.jpg

那么将下载http://photos.benginfo.com/benginfo/styleimg/logo--.jpg这张图片到Picture1控件，或者使用(SavePicture Clipboard.GetData, App.Path & "/1.bmp" )方法，把图片保存至硬盘中。