タイトル : Re: ユーザーコントロール上にWebBrowserを置くと.Container.hwndが取得できない 投稿日 : 2008/11/06(Thu) 15:56 投稿者 : 魔界の仮面弁士
> Debug.Print WebBrowser1.Container.hwnd > とコードを書いて実行してみると Parent では無く、Container が必要なのですね? > 実行時エラー '438': > オブジェクトは、このプロパティまたはメソッドをサポートしていません。 '=== UserControl1 の中で === Dim O As Object Set O = WebBrowser1.Container If O Is Me Then 'If O Is UserControl Then MsgBox hWnd ElseIf TypeOf O Is Control Then MsgBox O.hWnd Else MsgBox CallByName(O, "hWnd", VbGet) End If |