Question

我正在尝试在网页中填写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。

Answer 1

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

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

Answer 2

我创建了一段简单的HTML：

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

我可以很高兴地从我的浏览器控件＆lt; wb＆gt;访问名为“Lemon”的textarea。使用：

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

......甚至......

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

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

如何在vb6中填充textarea

2 个答案: