首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

网页图片有关问题

2012-01-19 
网页图片问题如何将图片:http://ptlogin2.qq.com/getimage?aid2001601&0.03698355261133296在Picture控件

网页图片问题
如何将图片:http://ptlogin2.qq.com/getimage?aid=2001601&0.03698355261133296
在Picture控件中显示?

[解决办法]

VB code
Private Sub WebBrowser1_DownloadComplete()    On Error Resume Next    Dim x, CtrlRange    Dim I As Integer    For Each x In WebBrowser1.Document.All        If x.tagName = "IMG" Then            WebBrowser1.Stop            Set CtrlRange = WebBrowser1.Document.body.createControlRange()            CtrlRange.Add (x)            CtrlRange.execCommand ("Copy")            SavePicture Clipboard.GetData, "C:\0.jpg"            Picture1.Picture = LoadPicture("C:\0.jpg")        End If    NextEnd Sub 

热点排行