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

タイトル Re^2: withEventsで生成したInternetExplorerが捕捉できない
投稿日: 2015/04/09(Thu) 17:04
投稿者はなまるき
> どのように起動した IE が取得できないのか?
> 他の人が再現できるコードを投稿して頂けませんか。
> 私が試した限りでは取得できましたので。

やろうとしていることは、
@DB内のURLリストから複数のサイトを開きます。
 ・開くサイトはランダム
 ・手動で閉じたときに確実に終了させるためにwithEventsで
   onQuitイベントを起こす
 
AさらにDB内のURLリストからランダムにサイトを開く

 このときに、既に開かれているかどうかのチェックと、
もし開かれているならそのhWndを取得してShowWindowで
表示するという動きをさせていのですができません。
なぜランダムかというと、それは開いたかどうか覚えて
いないような人が使っても二重起動しないためです。


Private WithEvents objIE As InternetExplorer

Private Sub mnuBlogDisp_Click()
    'BlogURL取得
    Dim BlogURL As String
    BlogURL = GetBlogURL
    'Blog表示
    Set objIE = OpenIE(BlogURL)
    Call ShowWindow(objIE.hWnd, SW_MAXIMIZE)
End Sub

Public Function OpenIE(strURL As String) As Object
    On Error Resume Next
    Dim objIE As Object
    Set objIE = CreateObject("InternetExplorer.application")

    With objIE
        .Visible = True
        Call CloseWindow(.hWnd)
        .navigate (strURL)
    End With
    Set OpenIE = objIE
End Function

Private Sub objIE_OnQuit()
    Set objIE = Nothing
End Sub

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

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