-1

我正在尝试填写textarea网页。首先我打电话

site.navigate "www.mysite.com"

这是我更改内容的代码textarea：

Private Sub Command1_Click()
    site.Document.All.Item("message").Value = "mycontent"
End Sub

我也尝试了以下任何一种：

site.Document.All.Item("message").innerhtml = "mycontent"

site.Document.All.Item.form("message").Value = "mycontent"

该代码不起作用，因为它是textarea，不是input。

4

2 回答 2

1

我假设“站点”是标准的 WebBrowser 控件。尝试使用非标准属性 innerText。它适用于 Micorosft 的 VB 浏览器控件。

Private Sub Command1_Click()
    site.Document.All.Item("message").innerText = "mycontent"
End Sub
于 2013-04-10T21:45:57.517 回答
0

我创建了一段简单的 HTML：

<HTML>
    <HEAD>
        <TITLE>Test</TITLE>
    </HEAD>
    <BODY>
        <FORM ID="Tart">
            <TEXTAREA ID="Lemon">Lots of text.</TEXTAREA>
        </FORM>
    </BODY>
</HTML>

我可以很高兴地从我的浏览器控件 <wb> 访问名为“Lemon”的文本区域，使用：

wb.Document.All.Item("Lemon").Value = "More Text."

... 甚至 ...

wb.Document.All.Lemon.Value = "More Text"

也许您没有正确设置元素 ID？

于 2013-04-10T23:04:11.797 回答