Как изменить стиль элемента в WebBrowser?

[JohnK]

Задача следующая. Нужно в процессе работы изменить стиль объекта

"<div id=myobj class="submitted" .... /div>

Есть стили submitted и submitted1. Как поменять стиль?
Т. е. должно получиться "<div id=myobj class="submitted1" .... /div>, причем это все в run-time

[JohnK]

Таксь... Задачку решил таким образом (кому интересно):

Код: Выделить всё

Set objElement = mHTMLDocument.parentWindow.Event.srcElement
objElement.className = "submitted1"

А вот как теперь пройтись по всем обеъктам в документе?

[Antonariy]

mHTMLDocument.all(x)

[JohnK]

Что-то не пойму.
Мне нужно перечислить все объекты с именем submitted и submitted1

[Antonariy]

"Объекты с именем" и "объекты с именем класса" - разные вещи. Для первых есть метод document.getElementsByName, для вторых только полный перебор:

Код: Выделить всё

For each el in mHTMLDocument.body.all
    If instr(el.className,"submitted")=1 then

[JohnK]

Вот как я реализовал:

Код: Выделить всё

Set obj = WB1.document
For i = 0 To obj.All.length - 1
     
  If obj.All.Item(i).className = "submitted" then
   ....


Фактически тоже самое.
Спасибо большое за помощь!