IEをFullScreenで表示して、PopupMenuで制御 (ID:80943)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 教えてください！ 以下のような物を書いたのですが、document変数をウォッチすると ParentWindowが内部キャストエラーになっているのですが.. Object型に代入すると、必要なメソッドがそのクラスに存在するのか分からない もので.. Private HTMLWin As mshtml.HTMLWindow2 Private Sub IE_DocumentComplete(ByVal pDisp As Object, ByRef url As Object) Handles IE.DocumentComplete ' ドキュメントを渡す HTMLDocEvent = IE.Document Dim document As mshtml.IHTMLDocument = IE.Document ' ← 問題あり？ HTMLWin = document.parentWindow End Sub Private Function HTMLDocEvent_ondbclick() As Boolean Handles HTMLDocEvent.ondblclick ' ポップアップメニューを生成 Dim popup As mshtml.HTMLPopup = HTMLWin.createPopup Dim popupBody As mshtmt.？？ '忘れちゃいました popupBody.innerHTML = "<b>いやん</b>" ' ポップアップメニューを表示 popup.show(X,Y,100,200,popupBody) End Function