如何在vb6中填充textarea
问题描述:
我试图在网页中填写textarea
。 首先我打电话如何在vb6中填充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
。
答
我假设“网站”是标准的WebBrowser控件。尝试使用非标准属性innerText。它在Micorosft的VB浏览器控件中工作。
Private Sub Command1_Click()
site.Document.All.Item("message").innerText = "mycontent"
End Sub
答
我创建了一个简单的HTML的一部分:
<HTML>
<HEAD>
<TITLE>Test</TITLE>
</HEAD>
<BODY>
<FORM ID="Tart">
<TEXTAREA ID="Lemon">Lots of text.</TEXTAREA>
</FORM>
</BODY>
</HTML>
而且我可以很高兴地从我的浏览器控制<使用访问称为 “柠檬” textarea的WB >:
wb.Document.All.Item("Lemon").Value = "More Text."
...甚至...
wb.Document.All.Lemon.Value = "More Text"
也许你没有正确设置你的元素ID?
你也可以显示相关的HTML吗?什么是'网站'? – 2013-04-10 17:02:15
你可以在这里添加更多的细节吗? HTML会很有用。 – 2013-04-12 00:14:56