[b]Компонент WebBrowser[/b]

[pitbull]

Товарищи!!! У меня тут вопросик возник. У меня на форме имеется компонент WebBrowser и я в нем показываю некоторые странички. А он зараза при клике правой кнопкой выкидывает свою менюшку:))) Так вот вопрос вот в чем: какое сообщение надо обрабатывать (клик правой кнопкой мыши) при замене оконной процедуры (сабклассинге). Скажите просто как называется сообщение.
И еще вопрос как вызвать из встроенного меню компонента WebBrowser пункт печать (метод такой он не поддерживает а странички напечатать хочется:).

Большая такая просьба присылайте ответ на мыло pitbull87@mail.ru

Заранее благодарен:)))

[Andrey Fedorov]

Нужно поставить ссылку на Microsoft HTML Object Library
и пускай на форме будет контрол WB (WebBrowser)

тогда блокирум контекстное меню следующим образом:

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

Dim WithEvents ObjHTMLDocEvnt As HTMLDocument
...
Private Function ObjHTMLDocEvnt_oncontextmenu() As Boolean
    On Error Resume Next
    ObjHTMLDocEvnt_oncontextmenu = False
    If Err <> 0 Then Err.Clear
End Function

Private Sub WB_DownloadComplete()
    On Error Resume Next
    Set ObjHTMLDocEvnt = WB.Document
End Sub