0

如果我使用.GetAttribute("style")它并返回:

宽度:200 像素;高度:300 像素;背景图像:url('http://someurl.com/image.png");位置:绝对;

我将如何获取背景图像 URL?

[编辑]我还应该提到背景图像时不时地变化,它不会保持不变。

[ 编辑 ] 我正在尝试从网络浏览器中的 bing 中提取背景图像。我想将背景设置为我的表单背景。

[编辑]

Try
            With bingCheck
                Dim bgDiv As HtmlElement = .Document.GetElementById("bgDiv")
                Dim imgUrl As String = bgDiv.Style("background-image").ToString

                Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create(imgUrl), HttpWebRequest)
                Dim response As Net.HttpWebResponse = DirectCast(request.GetResponse, Net.HttpWebResponse)
                Dim grabbedImage As Image = Image.FromStream(response.GetResponseStream)
                response.Close()

                Me.BackgroundImage = grabbedImage
                Me.Update()
            End With
        Catch ex As Exception
        End Try
4

2 回答 2

0

许多控件提供内置的样式集合。因此,您可以执行以下操作:

Dim sUrl As String = xMyControl.Style("background-image")
于 2012-11-05T17:58:49.143 回答
0
Dim str = "width:200px;height:300px;background-image:url('http://someurl.com/image.png');position:absolute;"
Dim v = "background-image:url("
Dim i = str.IndexOf(v) + v.Length + 1
Dim j = str.IndexOf(")", i)
Dim url = str.Substring(i, j - i - 1)
于 2012-11-05T19:33:08.430 回答