インターネットコントロールで複数のオブジェクトを切り替えて使いたい

解決

てん 2006-07-25 22:15:51 No: 96089

初めて書き込みます。
Windowsプログラムはあまり経験なく勉強も兼ねて
VBで趣味的プログラムを作っています。
そんな中でどうにかならないかと思ったことがあるので質問しました。

インターネットコントロールで２つのオブジェクトを作成したとき
最初に作ったオブジェクトを使うときはどうしたら良いのでしょうか？

例えば、以下のプログラムを実行すると
最初に作ったオブジェクトでYahoo!にアクセスし
次に作ったオブジェクトでgoogleにアクセスします。

その後、objIE.LocationNameにはgoogleの内容が入っていますが
最初のYahoo!の方も参照したいのです。

Private Sub Command1_Click()

    Set objIE = CreateObject("InternetExplorer.application")
    objIE.Visible = True
  objIE.Navigate "http://www.yahoo.co.jp/"
    Do While objIE.Busy = True
    Loop

    Set objIE = CreateObject("InternetExplorer.application")
    objIE.Visible = True
  objIE.Navigate "http://www.google.co.jp/"
    Do While objIE.Busy = True
    Loop

Text1.Text = objIE.LocationName
End Sub

アクセスしなおせばできるのですが、アクセス時間を短縮したい場合があり
複数のオブジェクトを用意しておいて切り替えて使いたいのです。

以上よろしくお願いします。

natu 2006-07-26 01:05:53 No: 96090

objIE1 と objIE2 の２ケにして切り替えれば？

てん 2006-07-26 18:07:32 No: 96091

あっ、なるほど、そうすればいいのですね。
気がつきませんでした。
ありがとうございます。