VPF::Как найти координаты тэгов через Document.geteleme

eugene2007

Дата 30.8.2007, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.6.2007

Репутация: нет
Всего: нет

Как найти координаты тэгов через Document.getelementsbytagname vb6 webbrowser
В программе статистики есть WebBrowser, при загрузке страницы даёт статистику
А как мне добиться координат элементов ХТЛ относительно страницы и экрана?
К примеру хочу найти координаты всех линков или фреймов и тп. К примеру
Document.getelementsbytagname("a")(i)
Есть образец на ЯвеСкрипт, но хотелось бы родное внутреннее ВБ6 решение проблемы

Код


function getElementPosition(elemId)
{
    var elem = document.getElementById(elemId);
    var w = elem.offsetWidth;
    var h = elem.offsetHeight;
    var l = 0;
    var t = 0;
    
    while (elem)
    {
        l += elem.offsetLeft;
        t += elem.offsetTop;
        elem = elem.offsetParent;
    }
    return {"left":l, "top":t, "width": w, "height":h};
}

Пытаюсь конвертировать в ВБ6

Код


Dim WithEvents doc As HTMLDocument
Dim elem As IHTMLElement
Set doc = ie.document
For x = 0 To  doc.getElementsByTagName("a").length - 1
Set elem = doc.getElementsByTagName("a")(x)

Хочу этот бред перевести как положено в while 
'"-PParent=" & elem.offsetParent.offsetParent.tagName & "=" & elem.offsetParent.offsetParent.id & _
'"-3Parent=" & elem.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.id


'Но этот вариант не получается вылетает с ошибкой непонятной

While (TypeOf elem Is IHTMLElement)
parentall = parentall & "-Parent Tag=" & elem.offsetParent.tagName & _
elem.id & ",l=" & elem.offsetLeft & ";t=" & elem.offsetTop & _
Set elem = elem.offsetParent
Wend
Next x

Помогите в этом участке кода пожалуйстя спасибо!

Akina

Дата 31.8.2007, 08:38 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Пока я вижу несколько ошибок СИНТАКСИСА.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

eugene2007

Дата 1.9.2007, 03:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.6.2007

Репутация: нет
Всего: нет

где ты их видишь? и зачем об этом говорить, смысл не в этом

Akina

Дата 2.9.2007, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(eugene2007 @ 1.9.2007, 04:21

)

где ты их видишь?

Например, в втором фрагменте кода строка 19 по смыслу самостоятельна, а по тексту - продолжение 18-й.

Цитата(eugene2007 @ 1.9.2007, 04:21

)

зачем об этом говорить

Затем, что тут помогают решать проблемы программирования, а не учат аккуратности. Мало того что надо разобраться в проблеме - так еще надо будет разбираться, где ты правильно написАл, а где ерунду. А кому оно нужно?

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »