Общие объектные переменные

[Sun07]

Подскажите, как объявить общую объектную переменную? Например, на Public mDoc as WebBrowser1.document компилятор говорит User-defined type not defined?

[GSerg]

Хм...
А почему же ты не написал, к примеру, public mDoc as Form1.Width, ну или там public mDoc as Label1.Caption?

[Sun07]

а как надо?

[GSerg]

А как что объявлен WebBrowser1.document?

[DirectXManiac]

Надо объявить переменную такого же типа как и WebBrowser1.Document(смотри Object Browser) и присвоить ей
mDoc = WebBrowser1.Document или
Set mDoc = WebBrowser1.Document

[Sun07]

DirectXManiac, ну так как объявить mDoc Public?

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=6622144#6622144 ?

[Sun07]

GSerg, эта ссылка выкидывает эту страницу, которую мы сейчас лицезреем

[tyomitch]

Не на страницу, а на конкретный пост.

[Viper]

GSerg, эта ссылка выкидывает эту страницу, которую мы сейчас лицезреем

не просто страницу, а самое тебе нужное место страницы

[Nicky]

Да Public mDoc as HTMLDocument !

[marvan]

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

Dim mDoc As MSHTML.IHTMLDocument 'или MSHTML.HTMLDocument
Set mDoc = WebBrowser1.document

[Sun07]

Да ну что же это такое! Имеем:

Private Sub Form_Load()

Set mDoc = WB.document
mDoc.write sPageHTML
Set mDiv = wbDoc.All.un99
mDiv.innerHTML = sBodyHTML

End Sub

mDoc и mDiv будут существовать только в процедуре Form_Load, а мне надо, чтобы они были общие и вызывать mDiv.innerHTML = sBodyHTML в любой проце! Вышеприведённые ответы приводят к ошибке на строке mDoc.write sPageHTML "Object required"

[Kovu]

Sun07
Объяви переменные mDoc и mDiv в модуле формы или в отдельном модуле, смотря какая их видимость тебе нужна.

[Sun07]

Kovu, пример приведи, плиз

[Kovu]

....***....

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

Rem Это в самом начале кода формы
Option Explicit
Dim mDoc as MSHTML.IHTMLDocument, mDiv ' Эти переменные будут доступны из любой процедуры формы
Rem Или в модуле
Option Explicit
Public mDoc as MSHTML.IHTMLDocument, mDiv ' Тогда переменные будут доступны из кода всего проекта


[Sun07]

Kovu, а как быть с этим?

Вышеприведённые ответы приводят к ошибке на строке mDoc.write sPageHTML "Object required"

[Kovu]

*Temporarily gains skill 'Telepatia'*
А что такое sPageHTML?

[Sun07]

строковая переменная. Там ругается на Write. Если писать Set mDoc... в проце Form_Load() то всё норм, объявления объектных переменных как Public приводят к этой ошибке.

[Antonariy]

Сначала нужно сделать куда-нибудь navigate.

[keks-n]

Обычно делают about:blank... Но мне лично неясно, почему инициализация происходит только после этого?

[Antonariy]

Потому что приватная переменная, скрывающаяся за свойством, скорей всего так же объявлена как IHTMLDocument, а ее не объявишь как as New. Документ создается, когда броузер получает хоть какой-то html-текст, который можно ему передать.

[AntonGV]

Sun07, Может немного не в тему, но почитай вот это
http://www.msvb.narod.ru/doc_webbrowser_p1.htm
http://www.msvb.narod.ru/doc_webbrowser_p2.htm
http://www.msvb.narod.ru/doc_webbrowser_p3.htm

[GSerg]

Все ответившие в топике, вы сами таки пробовали открывать object browser и смотреть, http://bbs.vbstreets.ru/viewtopic.php?p=6622144#6622144 ?

[Sun07]

AntonGV, я оттуда это и взял. Кроме того, у меня при закрытии запущенной проги стало выскакивать окно с предложением подключиться к инету или работать автономно (страница не м.б. отражена в автономном режиме), почему - не пойму

[Sun07]

Потому что приватная переменная, скрывающаяся за свойством, скорей всего так же объявлена как IHTMLDocument, а ее не объявишь как as New. Документ создается, когда броузер получает хоть какой-то html-текст, который можно ему передать.

Что делать?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!??

[tyomitch]

Sun07, замечание

[Sun07]

Тёмыч, я тебя так любил, а ты мне замечание... Если вас раздражают некоторые вопросы новичков, кто в этом виноват? Всегда проще спросить, чем искать (время+нервы+деньги). Иначе меня бы здесь не было. Тем более, что решения мне так и не дали на этом топике. Только выводы

[GSerg]

Тебе дали решение - http://bbs.vbstreets.ru/viewtopic.php?p=6622144#6622144
Трижды.
Но тебе оно не надо.

[keks-n]

Все ответившие в топике, вы сами таки пробовали открывать object browser и смотреть, http://bbs.vbstreets.ru/viewtopic.php?p=6622144#6622144 ?

Там он как object... То есть известно, что он поддерживает IUnknown и IDispath. Но реально тот объект, что возвращает нам эта пропертя имплементит ещё и HTMLDocument (если там HTML страница). Но то что мы заглянем в ObjectBroser нам ничего не даёт. Зато многое нам даёт http://msdn.microsoft.com/workshop/browser/webbrowser/reference/properties/document.asp:

When the active document is an HTML page, this property provides access to the contents of the HTMLDocument Object Model (DOM). Specifically, it returns an HTMLDocument object reference. The HTMLDocument object is functionally equivalent to the HTMLdocument object used in HTML page script. It supports all the properties and methods necessary to access the entire contents of the active HTML document.

Microsoft Visual Basic programs that early bind to the HTMLDocument object can reference it through the IHTMLDocument, IHTMLDocument2, and IHTMLDocument3 interfaces.

When other document types are active, such as a Microsoft Word document, this property returns the document automation object of that document. For Word documents, this would be the Document object. For more information on the Microsoft OfficeDOM, refer to the Microsoft Office Developer Center .

Вот, кстати, и ответ на вопрос, почему нужно Navigate-там может (а изночально и нет) не быть HTM-страницы...