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イベントを起こす
　
②さらに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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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