WebBrowser и XML

[EYuri]

Необходимо отбразить в WebBrowser XML в таком же виде в каком его тображает IE.
Если брать XML из файла то все OK.
Например:

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

brwWebBrowser.Navigate "Пример.xml"

Но есть необходимость отображать XML созданный на-лету(полученный из БД) БЕЗ сохранения в файл.
Вот таким способом не прокатывает:

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

Dim lXml As DOMDocument
Dim doc as Object

lXml.LoadXML(StrokaSXML)

Set doc = brwWebBrowser.Document
doc.Clear
doc.Write lXml.xml

Отображается не XML документ, а только содержимое тегов, т.к. brwWebBrowser.Document это HTML документ.
Подскажите каким образом правильно отобразить XML. Может настройки какие-то у controla

[RUSYA]

не, ну ты везде успеешь ...

[tyomitch]

EYuri, посмотри как я загружаю строку в WebBrowser: http://bbs.vbstreets.ru/viewtopic.php?p=103635#103635 , процедура LoadHTML
Поскольку я не пользуюсь методами Document, то и не завишу от HTML (несмотря на название процедуры ).

[EYuri]

tyomitch
Спасибо, но теже грабли, только вид сбоку.
Результат тот же

[GSerg]

Угу, тот же

А ты сделай navigate на xml, а потом посмотри, что на самом деле записалось в body.innerhtml

[EYuri]

GSerg
Я это первым делом и сделал. Я понимаю что происходит преобразование XML.
Но вот как заставить WebBrowser control выполнять это преобразование. Или это не возможно ?

[EYuri]

up

[Antonariy]

Пиши скрипт, строящий дерево. от себя могу предложить структуру дерева, аналогичную, только проще, той, что используестя в ie.

[EYuri]

Antonariy
Да так уже и сделал.
Просто думал что может это можно как-то проще и красивее.