Конференция VBStreets

**marvan** » 24.08.2004 (Вт) 9:52

1. В чём отличие MSHTML.HTMLDocument и MSHTML.IHTMLDocument и в каких случаях кого использовать
2. Тот же вопрос для классов с цифрами, таких как IHTMLElement, IHTMLElement2, IHTMLElement3, IHTMLElement4
3. Как заставить WebBrowser отображать кнопки и текстовые поля с использованием стилей XP. (использование Project1.EXE.manifest или InitCommonControlsEx) не помогает
4. Как используя MSHTML добраться до тега <BASE HREF=...>
5. Как загружать изображения в документ не из файла. (а то некрасиво получается: html гружу методом write, а картинки грузятся с диска)

**ANDLL** » 24.08.2004 (Вт) 10:39

1. HTMLDocument это объект. IHTMLDocument это интерфейс.
2. Версии объектов. В IXX3 есть что-то, чего нет в IXX2. Просто для совместимости когда появляються новые возможности старые интерфейсы сохраняються, а новые обозначаються с цифрой версией.
3. -- А у тебя какой Windows?
4. getElementsByTagName или getElementsBy... И выбираем подходящий.
5. --

**marvan** » 24.08.2004 (Вт) 11:26

ANDLL писал(а):1. HTMLDocument это объект. IHTMLDocument это интерфейс.

Это я догадался, но не понимаю в каких случаях кого использовать
например:

Код: Выделить всё: 'это не работает 'Dim WithEvents iDoc As MSHTML.IHTMLDocument 'а это работает Dim iDoc As MSHTML.IHTMLDocument Dim WithEvents mDoc As MSHTML.HTMLDocument Dim iDiv As MSHTML.IHTMLDivElement Dim WithEvents mDiv As MSHTML.HTMLDivElement Private Sub Form_Load() Dim mStr As String mStr = "<html><body><div id=num1>текст<div></body></html>" WebBrowser.navigate "about:blank" Set mDoc = WebBrowser.document Set iDoc = WebBrowser.document 'это не работает 'mDoc.write mStr 'а это работает iDoc.write mStr 'а здесь вроде как всё равно? Set mDiv = mDoc.All.num1 Set mDiv = iDoc.All.num1 End Sub Private Sub mDiv_onmousedown() MsgBox ("mousedown") End Sub

ANDLL писал(а):2. Версии объектов. В IXX3 есть что-то, чего нет в IXX2. Просто для совместимости когда появляються новые возможности старые интерфейсы сохраняються, а новые обозначаються с цифрой версией.

ну и как поступать то:

Код: Выделить всё: Dim objElement As MSHTML.IHTMLElement 'или Dim objElement As MSHTML.IHTMLElement3

ANDLL писал(а):3. -- А у тебя какой Windows?

XP

ANDLL писал(а):4. getElementsByTagName или getElementsBy... И выбираем подходящий.

спасибо, всё получилось.

**tyomitch** » 31.08.2004 (Вт) 22:16

Имхо всегда стоит использовать MSHTML.HTMLDocument, вместо MSHTML.IHTMLElement(X).
VB сам разберётся что к чему.

**ANDLL** » 01.09.2004 (Ср) 7:53

MSHTML.HTMLDocument означает, что VB выбирает наивысшию(или наинизшую) допустимую версию. Если на компе пользователя будет DLL более низвой версии, програ работать не будет. Т.е. без нужды лучше использовать объекты с минимальной версией. Или поставлять с программой компоненты последних версий, что пожалуй даже лучше.

**marvan** » 01.09.2004 (Ср) 9:45

2 tyomitch
да я бы рад разделить свою судьбу с MSHTML.HTMLDocument, но как быть:

Код: Выделить всё: Dim WithEvents iDoc As MSHTML.IHTMLDocument 'это не работает Dim WithEvents mDoc As MSHTML.HTMLDocument 'а это работает ... mDoc.write mStr 'это не работает iDoc.write mStr 'а это работает

почему IHTMLDocument не хочет ловить события, но справляется с методом write, а HTMLDocument наоборот

как то некрасиво подучается - приходится использовать обоих.

**ANDLL** » 01.09.2004 (Ср) 13:04

WithEvents не работает для интерфейсов. Только для классов, реализующих специальный интерфейс, IConnectionPoint, кажеться как-то так.

Метод write по каким-тр причинам не правильно указан в библиотеке типов.
Использую так:

Код: Выделить всё: Dim iDoc As MSHTML.IHTMLDocument Dim WithEvents mDoc As MSHTML.HTMLDocument set mDoc =New ... set iDoc =mDoc

**marvan** » 01.09.2004 (Ср) 13:33

Метод write по каким-тр причинам не правильно указан в библиотеке типов.

т.е. как это? был бы указан правильно - стал бы работать?

Ещё один вопросы:
6. Как лучше обращаться к элементам?
mDoc.All.num1
или
mDoc.All.("num1")
или ещё как?
7. Какие существуют способы оптимизации работы с shdocvw и mshtml?
единственное что мне известно, - лучше использовать WebBrowser.document.write вместо WebBrowser.navigate

**ANDLL** » 01.09.2004 (Ср) 18:58

marvan писал(а):т.е. как это? был бы указан правильно - стал бы работать?

Да.
6.

marvan писал(а):mDoc.All.("num1")

По моему, это syntax error. Но суть ясна. Быстрее 2 метод, т.к. у функции по умолчанию меньше параметров, чем у Invoke. Хотя быстродействие ты вряд ли заметишь.
7.

**tyomitch** » 01.09.2004 (Ср) 19:18

ANDLL писал(а):WithEvents не работает для интерфейсов. Только для классов, реализующих специальный интерфейс, IConnectionPoint, кажеться как-то так.

Не совсем так - для классов, у которых в tlb указан [default, source] интерфейс. В этом случае, в частности, объект должен реализовывать IConnectionPointContainer и IConnectionPoint.

Конференция VBStreets

WebBrowser и MSHTML - ряд вопросов

WebBrowser и MSHTML - ряд вопросов

Кто сейчас на конференции