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 花ちゃん ---