タイトル : Re^10: VB6.0 WebBrowserについて 投稿日 : 2008/06/10(Tue) 20:46 投稿者 : 魔界の仮面弁士
> WBCustomizer.Dllは使えないということになったので その理由は教えて頂けないのでしょうか? 情報を提示した後で、条件が後出しにされたり、理由無しに却下されたりしてしまうと、 情報提供側としても疲れてしまうのですけれども。(^^; > WebBrowser上でCtrl+Pの制御を行いたいのですが、VBでは無理ですか。 IDocHostUIHandler を用いた方法が、どうしても使えない事情があるのなら、 HTML DOM の方から取得するという方法がありますね。 HTML の内容が更新されるたびに、オブジェクトの再取得が発生するので、 タイミング等の問題もあって、さほど推奨できる手法では無いですけれども。 '---- Option Explicit Private WithEvents Doc As MSHTML.HTMLDocument Private WithEvents Win As MSHTML.HTMLWindow2 Private Sub Form_Load() WebBrowser1.Navigate "http://www.google.com" End Sub Private Sub Doc_onkeydown() With Win.event If .ctrlKey And .keyCode = vbKeyP Then .keyCode = 0 .returnValue = False .cancelBubble = True End If End With End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set Doc = pDisp.Document Set Win = Doc.parentWindow End Sub |