Доброго времени суток!

Проблемы с обработкой события
Есть набор полей для ввода, рис.2
Код первого поля - рис 1

Даные в поля выбора вводятся с помощью скрипта.
Значение в поле вводится с помощью присваивания selectedIndex

locationSel.selectedIndex = 1

Нужно чтоб после ввода значения в поле генерировалось событие onchange (при этом формируется список для следующего поля).

Dim objDoc As MSHTML.HTMLDocument
Dim locationSel As MSHTML.HTMLSelectElement
Dim insTypeSel As MSHTML.HTMLSelectElement


Set objDoc = WebBrowser1.Document

Set locationSel = objDoc.getElementById("county")


locationSel.selectedIndex = 1

'что нужно здесь добавить чтоб произошло событие onchange и поле второго элемента стало активным?

Set insTypeSel = objDoc.getElementById("insurerType")
insTypeSel.selectedIndex = 1



Спасибо.

onchange_2.png

Нашли решение:


locationSel.selectedIndex = 1
MsgBox locationSel.LastChild.Attributes("value")
locationSel.FireEvent ("onchange")