Sub myImage() Dim html As HTMLDocument = CType(Me.WebBrowser1.Document.DomDocument, HTMLDocument) '下面代码中,获取图片的方式有很多,因为比较简单,我就不列举了,直接用ID来做为例子的 Dim img As IHTMLControlElement = CType(WebBrowser1.Document.Images("Image_disp").DomElement, IHTMLControlElement) Dim range As IHTMLControlRange = CType((CType(html.body, HTMLBody)).createControlRange(), IHTMLControlRange) range.add(img) range.execCommand("Copy", False, Nothing) img = Nothing range = Nothing html = Nothing If Clipboard.ContainsImage() Then Me.PictureBox1.Image = Clipboard.GetImage() Else MessageBox.Show("执行不成功") End If Clipboard.Clear() End Sub