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

質問

VB6で開発中です。

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

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

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

Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

のですが・・・？？

回答No.5

kakusuke · ベストアンサー

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

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

お礼

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

補足

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

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関数を読んで実行させることは不可能でしょうか？

回答No.8

kakusuke

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.を付けることで、呼び出しできました。

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

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

回答No.7

kakusuke

またまた＃４です。
一応試したソースです。

'コマンドボタン: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が定義されていません。

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

回答No.6

kakusuke

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

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

回答No.4

kakusuke

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

補足

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

回答No.3

tinu 2000（@tinu2000）

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

回答No.2

TAGOSAKU7

サンプル入手方法です。

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

補足

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

回答No.1

hidekun_84

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

参考URL：

http://homepage1.nifty.com/MADIA/vb/vb_bbs/200305_03050029.html

補足

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