タイトル : Re^7: VB6.0 WebBrowserについて 投稿日 : 2008/06/10(Tue) 14:07 投稿者 : 魔界の仮面弁士
> 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 |