javascript - VBA .getElementbyID 并将值传递给 onchange javascript 事件

Question

我有以下代码，它使用 .getelementbyid 方法从下拉列表中选择一个项目。该页面的工作方式是，一旦选择了该项目，就会填充一个新屏幕，允许用户向某人发送消息(当您从下拉列表中选择一个项目时，该表单使用 onchange 事件来处理)。运行此代码时，它会选择正确的项目，但页面不会重新填充。

With HTMLDoc2

.getElementById("navbar1").setAttribute "value", "getaddr"

End With

如何强制表单识别您已选择下拉项之一并处理 onchange 事件？

Answer 1

我一直在寻找类似的答案，并发现这可能有用。

我的网页上有一个 SELECT 元素(有一个 ID)，它有一个与之关联的 onchange javascript。我按如下方式访问它(使用您的示例):-

dim objURLpage as MSHTML.HTMLdocument

dim appIE as InternetExplorer

dim objSELECTelement as MSHTML.HTMLSelectElement 

“此类型取决于您的 HTML 元素类型，但通常下拉列表是“SELECT”元素之间的“OPTION”元素

Set objURLpage = appIE.document  'I found this gives current web page that's open

set objSELECTelement = objURLpage.getElemebtById("navbar1")

objSELECTelement.selectedindex = 0

'数字取决于下拉列表中从“0”开始的项目位置

objSELECTelement.FireEvent("onchange")