UserControl. Генерация FRAME на ParentDocument. Нет возврата

[ALX_2002]

Сгенерил FRAME - Set NEWFRAME = PDOCUMENT.createElement("FRAME")
Указал его SRC Страничка начала грузиться

Вот куда она уходит никак не пойму ??? BODY пустой !!!

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

Dim WithEvents PDOCUMENT As HTMLDocument
Dim WithEvents PWINDOW As HTMLWindowProxy
Dim WithEvents NEWFRAME As HTMLFrameElement

Private Sub UserControl_Show()

Set PDOCUMENT = UserControl.Parent
Set PWINDOW = PDOCUMENT.parentWindow

Set NEWFRAME = PDOCUMENT.createElement("FRAME")
PDOCUMENT.appendChild NEWFRAME

NEWFRAME.clearAttributes
NEWFRAME.src = "http://www.mail.ru"
'PDOCUMENT.appendChild NEWFRAME
End Sub


[ALX_2002]

Народ ! Я ПРОСТО В ШОКЕ ! Выдаёт PERMISION DENIED

А всего то в страничке создал IFRAME и загрузил в него www.mail.ru

При попытке чтения INNERHTML говорит, что отказано в доступе


ЧТО ЗА БРЕД ???!!!!

Вот весь код. Для тех кто хочет потестить подрубите в

References-> mshtml.tlb

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

Dim DOCUMENT As HTMLDocument
Dim IFRAME As HTMLIFrame

Private Sub UserControl_Show()
Set DOCUMENT = UserControl.Parent
Set IFRAME = DOCUMENT.createElement("<IFRAME SRC='http://market01/index.asp'>")
DOCUMENT.appendChild IFRAME
MsgBox IFRAME.contentWindow.DOCUMENT.BODY.innerHTML
End Sub

[/syntax]

[ANDLL]

Видимо, неплохо было бы дождаться, когда IFRAME.contentWindow.DOCUMENT.readyState="Complete"

[tyomitch]

Народ ! Я ПРОСТО В ШОКЕ ! Выдаёт PERMISION DENIED

А всего то в страничке создал IFRAME и загрузил в него www.mail.ru

Афаик настройки безопасности IE по умолчанию запрещают использовать в IFRAME страницы с других доменов.
Попробуй повесить в IFRAME что-нибудь с того же домена, где тестовая страница.

[ALX_2002]

2 Tyomith + ANDLL: Огромное вам спасибо. Проверил.

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

+ выставил проверку на READY STATE. Всё работает.

Завтра буду тестить окончательный результат.