フォームにページを表示させたブラウザ組込みたいのだが…

VB6で開発中です。

フォームの一部に、あるURLを指定してそのページ（例えばYahoo!ページ）を表示させたブラウザを組み込むことはできますか？
もしくは、あるURLを指定してそのページを表示させたブラウザを起動させるのでかまいません。

おかわりになられる方いらっしゃいましたら、ご教授下さいませ。

WebBrowserを使うらしい？？（正しいかどうかはわかりませんが・・・）

Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

のですが・・・？？

No.5 ベストアンサー 回答者： kakusuke 回答日時： 2005/03/26 11:54

＃４です

当たり前だけど、
コンポーネントの追加で
Microsoft Internet Control
を追加して下さいね。

[追加したコントロール名].Navigate2 "http://www.yahoo.co.jp"

この回答への補足

すいません。
補足させてもらって良いでしょうか？

Private Sub Form_Load()
　WebBrowser.Navigate2 "http://www.yahoo.co.jp"
End Sub

で、フォーム起動時には表示されるのですが、
他のモジュールから、
　WebBrowser.Navigate2 "http://www.yahoo.co.jp"
を呼び出すとエラーになります。

Public Sub WebBrowserStart()
　WebBrowser.Navigate2 "http://www.yahoo.co.jp"
End Sub

として、WebBrowserStart関数を読んで実行させることは不可能でしょうか？

補足日時：2005/03/26 13:36

この回答へのお礼

Microsoft Internet Controlは追加してありました。
[追加したコントロール名]が違っていました。
フォーム内のWebBrowserにサイトが表示されました！
ブラウザ起動で表示より、できればこちらを求めていたので、助かりました。
どうも、ありがとうございました。

お礼日時：2005/03/26 13:25

No.8 回答者： kakusuke 回答日時： 2005/03/29 23:36

Public 宣言してますか？

この回答へのお礼

はい、
Public Sub Navi()
　　WebBrowser1.Navigate2 "http://www.goo.ne.jp"
End Sub
のように、Publicで関数にしておりますが、ダメでした。

その後、いろいろやってみたところ、
Public Sub Navi()
　　Form1.WebBrowser1.Navigate2 "http://www.goo.ne.jp"
End Sub
のように、Form1.を付けることで、呼び出しできました。

どうもお手数おかけしました。
ありがとうございました。
いったん、締め切りたいと思います。
また機会ありましたら、よろしくお願い致します。

この度は、いろいろご教授くださり、ありがとうございました。

お礼日時：2005/03/30 15:09

No.7 回答者： kakusuke 回答日時： 2005/03/26 21:44

またまた＃４です。

一応試したソースです。

'コマンドボタン:Command1
'コマンドボタン:Command2
'ブラウザコントロール:WebBrowser1

Option Explicit

Private Sub Command1_Click()
navi1
End Sub

Private Sub Command2_Click()
navi2
End Sub

Private Sub navi1()
WebBrowser1.Navigate2 "http://www.yahoo.co.jp"
End Sub

Private Sub navi2()
WebBrowser1.Navigate2 "http://www.biglobe.ne.jp"
End Sub

この回答への補足

ありがとうございます。
確かにそのように記述すると、同じモジュール内では動作確認できるのですが、navi関数を別モジュールとして切り出すと、エラーとなってしまいます。
Callで呼び出しても同様でした。
エラーメッセージは以下です。
------------------
コンパイルエラー：
Sub または Functionが定義されていません。

当初の質問から逸脱している内容ですが、もし、お分かりになるようでしたら、コメントいただけると幸いです。

補足日時：2005/03/29 11:56

No.6 回答者： kakusuke 回答日時： 2005/03/26 21:39

＃４です。

補足で書かれている処理は
自分の環境では可能でした。

補足とお礼が
どちらが先に書かれたものかわからないので
一応調べてみました。

No.4 回答者： kakusuke 回答日時： 2005/03/26 01:16

Private Sub Form_Load()

WebBrowser.Navigate2 "http://www.yahoo.co.jp"
End Sub

この回答への補足

ありがとうございます、試してみたのですが、以下のエラーウインドが出てしまいます。
----------------------
コンパイルエラー：
変数が定義されていません。

補足日時：2005/03/26 10:26

No.3 回答者： tinu2000 回答日時： 2005/03/25 22:24

VB4ですが・・・

Private Sub Command1_Click()
　DmyFlg = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.yahoo.co.jp/", 3)
End Sub

で、IEのブラウザが起動してYahoo!のホームページを表示します。
DmyFlg は本当にダミーです。何でも良いです。

この回答への補足

ありがとうございます。
VB6でも動作し、開くことが出来ました。
ちなみに、開いてブラウザを閉じるコードはわかりますか？
あるイベントをきっかけに、開いたり閉じたりしたいので。
わかるようでしたら、ご教授下さいませ。

補足日時：2005/03/26 10:29

No.2 回答者： TAGOSAKU7 回答日時： 2005/03/25 21:49

サンプル入手方法です。

VB6を開く
ファイル
新しいプロジェクト
アプリケーションウィザード
次へ×5回
ユーザがアプリケーションからインターネットに接続できるようにしますか？
↑
ここで「はい(Y)」

この回答への補足

ありがとうございます。
ウィザードを進めてみましたが、サンプルの設定方法がいまいちわかりませんでした。
frmBrowserを利用するのでしょうか？

補足日時：2005/03/26 10:40

No.1 回答者： hidekun_84 回答日時： 2005/03/25 20:39

ＶＢからブラウザに目的のＵＲＬを表示させるだけでしたら下記のページが参考になるかと思います。

参考URL：http://homepage1.nifty.com/MADIA/vb/vb_bbs/20030 …

この回答への補足

ありがとうございます。
開くことが出来ました。
ちなみに、開いたブラウザを閉じる場合のコードはわかりますか？
あるイベントのＯＮ／ＯＦＦをキーにして、開いたり閉じたりしたいと思っています。
もし、わかるようでしたら、ご教授下さいませ。

補足日時：2005/03/26 10:53