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

タイトル 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では無理ですか。

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

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