JSフレームレス画面と右クリックメニューとの相互作用を制御するWebbowser VB6

1.右のメニュー画面

 >リストで見つかった「参照」、「HTMLオブジェクトライブラリ」のチェックマーク、それにOKを押して - 「プロジェクト」メニューをクリックしてください。

     

   そして、自分自身のコントロールを追加

      

MSHTML.HTMLDocumentとしてWITHEVENTS M_Dom薄暗い  
booleanとしてプライベート関数M_Dom_oncontextmenu() 
M_Dom_oncontextmenu =偽 
エンド機能

プライベートサブWebbrowser1_DownloadComplete() 
を設定しM_Dom = Webbrowser1.Document 
End Subの

 

2.国境だけでなく、インタラクティブなJS

 

プライベートサブWebBrowser1_DocumentComplete(ByValのpDispオブジェクトとして、バリアントとしてURL)

 

設定しM_Dom = WebBrowser1.Document
「Me.PopupMenu mymenuを

 

「オンエラーは次の再開
『pDisp.Document.body.setAttributeを拡張』、私は」JSとウェブとの対話に使用されている
WebBrowser1 'でボーダレスセット
.Document.body.Scroll = 『NO』
.Document.body.Style.border = "0PX"
.Document.body.Style.margin = "0PX"
.Document.body.Style.overflow = "隠された"
で終わる

End Subの

 

関数のdoSomething(ByValのsParam $)イベントの「処理ページ
のMsgBox sParam、vbInformationまたはvbOKOnly、 "doSomethingの"
エンド機能

 

VBプログラムは、ページ内のdoSomethingのを呼び出します。

<a href="void(0)" onclick="document.body. 延長 .doSomething('www.google.com-000000');return false;"> google.comする</a> <br />

 

おすすめ

転載: www.cnblogs.com/wgscd/p/11008269.html