WebBrowser & Windows Media Player

[Scuder]

1. В WB загружается страница с винта. Как программно можно её скроллить? И как узнать hwnd этого документа?

2. WMP на форме постоянно прокручивает ролик. Я точно знаю, что что-то не так делаю, т.к. через несколько часов виртуальная память заканчивается. Код такой:

Открыть (AutoStart=True):

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

Me.Roll.Visible = True
Me.Roll.FileName = App.Path + "\Rolls\xxx.avi"

Закрыть:

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

Me.Roll.FileName = ""
Me.Roll.Visible = False

Всё это дело выполняется по таймеру по 5 раз в минуту. Проблема в том, что он, видимо, память после себя не освобождает.. Может, оставить в покое основной контрол, который на форме и подгружать программно другой (WMP(1))? Тогда его UnLoad'ить можно.. Но, думается мне, должен быть другой выход..

[Scuder]

Мдя.. Уже не в первый раз сам отвечаю на свой же вопрос.. %-)

C WMP всё таки сделал Load/UnLoad.. Так безопаснее, имхо..

А скролл в WB осуществляется так:

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

WB.Document.parentWindow.scrollBy x, y

Можно ещё скроллбары убрать, чтобы не мешались:

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

Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

Me.WB.Document.body.Scroll = "no"

End Sub

Спасибо мне.