Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как найти координаты тэгов через Document.geteleme, Как найти координаты тэгов через Documen 
:(
    Опции темы
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



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

PM MAIL   Вверх
Akina
Дата 31.8.2007, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



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


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

PM MAIL WWW ICQ Jabber   Вверх
eugene2007
Дата 1.9.2007, 03:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



где ты их видишь? и зачем об этом говорить, смысл не в этом
PM MAIL   Вверх
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 Найти цитируемый пост)
зачем об этом говорить

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


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

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

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


 




[ Время генерации скрипта: 0.0905 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.