こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

VB6で開発中です。

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

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

WebBrowserを使うらしい??(正しいかどうかはわかりませんが・・・)

Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

のですが・・・??

投稿日時 - 2005-03-25 19:13:55

QNo.1290947

困ってます

質問者が選んだベストアンサー

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

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

投稿日時 - 2005-03-26 11:54:41

補足

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

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:21

お礼

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

投稿日時 - 2005-03-26 13:25:59

このQ&Aは役に立ちましたか?

3人が「このQ&Aが役に立った」と投票しています

回答(8)

ANo.8

Public 宣言してますか?

投稿日時 - 2005-03-29 23:36:22

お礼

はい、
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:08

ANo.7

またまた#4です。
一応試したソースです。

'コマンドボタン: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

投稿日時 - 2005-03-26 21:44:32

補足

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

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

投稿日時 - 2005-03-29 11:56:04

ANo.6

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

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

投稿日時 - 2005-03-26 21:39:16

ANo.4

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

投稿日時 - 2005-03-26 01:16:43

補足

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

投稿日時 - 2005-03-26 10:26:17

ANo.3

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 は本当にダミーです。何でも良いです。

投稿日時 - 2005-03-25 22:24:53

補足

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

投稿日時 - 2005-03-26 10:29:38

ANo.2

サンプル入手方法です。

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

ここで「はい(Y)」

投稿日時 - 2005-03-25 21:49:30

補足

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

投稿日時 - 2005-03-26 10:40:32

ANo.1

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

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

投稿日時 - 2005-03-25 20:39:48

補足

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

投稿日時 - 2005-03-26 10:53:40

あなたにオススメの質問