VB6にて起動したホームページが閉じた事を認識するには？ (ID:102894)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >> その Quit イベントを使って 間違えました。m(_ _;)m 「Quit」は IE を閉じるためのメソッドです。 終了通知は「OnQuit」イベントです。 > 具体的なコードを教えていただけると助かります。 Option Explicit Private WithEvents IE As SHDocVw.InternetExplorer Private Sub Form_Load() Set IE = Nothing Command1.Enabled = True Command1.Caption = "&IEで開く" Text1.Text = "http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi" End Sub Private Sub Command1_Click() Command1.Enabled = False 'Set IE = CreateObject("InternetExplorer.Application") Set IE = New SHDocVw.InternetExplorer IE.Top = 0 IE.Left = 0 IE.Width = 640 IE.Height = 480 IE.Navigate2 Text1.Text IE.Visible = True End Sub Private Sub IE_OnQuit() Set IE = Nothing Command1.Enabled = True End Sub 'Private Sub Form_Unload(Cancel As Integer) ' If Not IE Is Nothing Then ' ' Dim Title As String ' On Error Resume Next ' Title = "(" & IE.Document.Title & ")" ' On Error GoTo 0 ' ' Dim ret As VbMsgBoxResult ' ret = MsgBox("IE が起動中です。" & Title & vbCrLf & vbCrLf & "一緒に閉じますか?", vbYesNoCancel Or vbQuestion) ' If ret = vbCancel Then ' Cancel = 1 ' ElseIf ret = vbOK Then ' IE.Quit ' End If ' End If 'End Sub