■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#42032-0WithEventsの使い方についてSHADOW2001-04-20(金) 18:06
     #42034-0RE#42032:WithEventsの使い方について魔界の仮面弁士2001-04-20(金) 18:21
     #42036-0RE#42034:WithEventsの使い方についてSHADOW2001-04-20(金) 19:26
#42032-0
WithEventsの使い方について
WithEventsの使い方がわからなくHELPなどを見ながらした結果
次のようになりましたが、msgboxが出てきてくれません。
どなたかおかしいところを教えてください。

Private WithEvents IE As InternetExplorer
Private Sub Form_Load()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
End Sub

Private Sub IE_OnQuit()
    MsgBox "閉じられました。"
    Set IE = Nothing
End Sub
#42034-0
RE#42032:WithEventsの使い方について
> 次のようになりましたが、msgboxが出てきてくれません。

WithEventsの使い方自体は問題ありません。
動作しない原因は、オブジェクト型変数「IE」の適用範囲の問題です。

詳しくはヘルプ、または以下のMSDN Onlineページを参照してみてください。
http://www.microsoft.com/JAPAN/developer/library/VBCon98/vbconadvancedvariabletopics.htm
#42036-0
RE#42034:WithEventsの使い方について
> WithEventsの使い方自体は問題ありません。
> 動作しない原因は、オブジェクト型変数「IE」の適用範囲の問題です。
> 
> 詳しくはヘルプ、または以下のMSDN Onlineページを参照してみてください。
> http://www.microsoft.com/JAPAN/developer/library/VBCon98/vbconadvancedvariabletopics.htm

Public WithEvents IE As InternetExplorer
Private Sub Form_Load()
Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
End Sub
Private Sub IE_OnQuit()
    MsgBox "閉じられました。"
    Set IE = Nothing
End Sub

魔界の仮面弁士さん、おかげさまで解決し、勉強になりました。
ありがとうございました。
このページと関連する記事:
#42033-0WithEventsの使い方について2001-04-20(金) 18:06
#23752-0既存のIEにURLを渡す方法は?2001-10-15(月) 19:05
#40755-0htmlの読み込み確認2001-03-24(土) 01:31
#46726-0EXCEL起動の不思議2001-09-10(月) 16:56
#9066-0ブラウザからVBの起動2000-06-26(月) 14:00
#13549-0アプリケーションの終了2000-01-16(日) 06:38
#16367-0VBからブラウザを立ち上げるには?2000-02-17(木) 17:18
#31237-0オブジェクトの解放2000-10-05(木) 15:08
#2452-3IEの重複起動制御について2002-08-23(金) 12:13
#41924-0GetObject で起動されている IE を取得するには?2001-04-19(木) 11:25
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)