Private WithEvents IE1 As SHDocVw.InternetExplorer
Private WithEvents IE2 As SHDocVw.InternetExplorer
Private Sub IE1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = IE2
pLngWindowHandle = IE2.hWnd
End Sub
Private Sub IE2_DocumentComplete(ByVal pDisp As Object, URL As Variant)
pBlnDocumentComplete = True
End Sub
こういうコードで、IE2_DocumentCompleteのイベントが起きる環境とおきない環境があります。なぜでしょうか?
ツイート | ![]() |