VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

WebBrowser 上で、keydown イベントを取得する(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2009/12/26 19:05
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[インターネット][イベント][印刷関係]                                *
* キーワード：WebBrowser,KeyDown,KeyPress,キー入力,                               *
***********************************************************************************
記事No ： 12469
投稿日： 2008/06/09(Mon) 10:43
投稿者：ヒロキ

Ctrl＋P」を押しても印刷ダイアログを開かないようにしたいのですが、なにかいい方法はあるでしょうか

-----------------------------------------------------------------------------------
記事No ： 12509
投稿日： 2008/06/10(Tue) 20:46
回答者：魔界の仮面弁士
-----------------------------------------------------------------------------------
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

------------------------------------------------------------------------------
必ず、一連の投稿記事をご覧になって下さい。　-- by 花ちゃん ---