Переход на метку на странице HTML

[Alexanbar]

Вот, предположим, загрузил я документ в DHTMLEdit. Нужно найти в нём определённый тэг типа card id="euro" и перейти на на него, т.е. промотать загруженный документ, если адрес имеет вид:
http://xxx/yyy/#euro. По всей видимости, действие сведётся к посылке сообщения на скролл.

[FaKk2]

Я не знаю что такое DHTMLEdit, но общий метод

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

<a name=anchor>

тогда

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

http://www.server.com/page.htm#anchor

проскролит страницу на нужное место.

Тег можно добавить динамически средствами DOM.

[Хакер]

тогда
Код:
http://www.server.com/page.htm#anchor

проскролит страницу на нужное место.

А ты хоть в курсе, что для DHTMLEdit это не действует, иначе бы здесь этого вопроса не было!

[FaKk2]

Хакер
А ты уверен что прочитал правильно мой пост?

[Крост]

Может я опять не прав, но по-моему всё просто:

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

Dim HDoc as IHTMLDocument2
Dim Elm as IHTMLElement

Private Sub SCRL()
  Set Elm = HDoc.getElementById("id")
  HDoc.parentWindow.scrollTo 0, Elm.offsetTop
End sub

Как видно за позицию элемента в документе отвечает - offsetTop.

С уважением Андрей.

[FaKk2]

Крост
Да, твой способ лучше, если он подходит для DHTMLEdit (я все таки не знаю что это такое).

[Alexanbar]

Крост
Да, твой способ лучше, если он подходит для DHTMLEdit (я все таки не знаю что это такое).

DHTMLEDit - это контрол. Позволяет просматривать и редактировать страницы.
Небольшие коррективы в коде:

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

Public Function GotoLabel(Label As String) As Boolean
Dim Elm As IHTMLElement
Dim HDoc As IHTMLDocument3

If Label = "" Then Exit Function

Set HDoc = Me.DHTMLEdit1.DOM
If HDoc Is Nothing Then Exit Function

Set Elm = HDoc.getElementById(Label)

If Elm Is Nothing Then Exit Function

DHTMLEdit1.DOM.parentWindow.scrollTo _
    Elm.offsetLeft, Elm.offsetTop
GotoLabel = True

End Function

Всё работает.

[Serge Gavrilov]

...
Всё работает.

А как выделить текст этой метки?

[Alexanbar]

В моём случае у метки никакого текста нет. Можно предложить выделять не текст в DHTMLEDit, а, например, ставить точку вблизи его границы типа того, что ставит VB6 в качестве точек останова.

[Serge Gavrilov]

А мне надо имено выделить текст метки, и, кроме как, нахождения узла, определения текста его дочернего текстового узла и последующего поиска этого текста, с проверкой найденного на соответствие Parent node искомой метке, я ничего не придумал.
Я использую MSHTML.