tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。