タイトル : Re^8: VB6.0 WebBrowserについて 投稿日 : 2008/06/10(Tue) 16:29 投稿者 : ヒロキ
> > Webbrowser.container.hwndですか? > > 本来はそのハズですが…元のコードのままだと、コンテナの下に > WebBrowser しか無かった場合に、正しく取得できないですね。 > > 下記のように変更してみてください。 > > Public Function GetBrowserWindow(hwndBrowserContainer As Long) As Long > Dim RetVal As Long > Dim hwndPeer As Long > Dim ClassString As String > > hwndPeer = GetWindow(hwndBrowserContainer, GW_CHILD) > Do Until hwndPeer = 0 > ClassString = String(4096, 0) > RetVal = GetClassName(hwndPeer, ClassString, 4096) > If Left(ClassString, InStr(1, ClassString & vbNullChar, vbNullChar) - 1) = "Shell Embedding" Then > Exit Do > End If > hwndPeer = GetWindow(hwndPeer, GW_HWNDNEXT) > Loop > > GetBrowserWindow = hwndPeer > End Function お手数おかけしました。ありがとうございます。 WebBrowser上でCtrl+Pの制御を行いたいのですが、VBでは無理ですか。 |