[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/12/22(Thu) 12:56
投稿者名:kishitatsu
URL :
タイトル:
記事4404参考にてエラーに
kishitatsuと申します。

web上の文字データを取得すべくこちらの過去ログより参考になるコーディング例を
探していますが、記事4404 花ちゃん さんのソースをそのまま実行したところ
以下のエラーとなります。対処方法をご教授お願い致します。

実行時エラー:424 オブジェクトが必要です。

実行環境:WindowsXP SP2
         VB6.0 SP6
--------------------------以下、4404の内容です。
記事No : 4404   [関連記事]
投稿日 : 2005/09/13(Tue) 19:52
投稿者 : 花ちゃん
E-Mail :  
題 名 : Re^4: WebBrowserで画像を表示させない

>  ソースを変更する等の代替案のヒントが載っていたので、その辺についても調べてみます。

ちょっと強引な方法ですが、ただ画像ファイルの種類が多いので!(ごみレスかも)

Private Sub Command1_Click()
    Dim myHtm As String
    WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
    
    Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    myHtm = WebBrowser1.Document.body.innerHTML
    myHtm = Replace(myHtm, ".gif", "")
    WebBrowser1.Document.write myHtm
End Sub
---------------------------------------

投稿時間:2005/12/22(Thu) 15:05
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: 記事4404参考にてエラーに
> 実行時エラー:424 オブジェクトが必要です。
どの辺でそのエラーがでますか?
該当のサイトを表示させた状態でもでますか?

確認してもそのようなエラーは出ないのですがね。

投稿時間:2005/12/22(Thu) 15:27
投稿者名:kishitatsu
URL :
タイトル:
Re^2: 記事4404参考にてエラーに
> > 実行時エラー:424 オブジェクトが必要です。
> どの辺でそのエラーがでますか?
> 該当のサイトを表示させた状態でもでますか?
>
> 確認してもそのようなエラーは出ないのですがね。

返信ありがとうございます。

マシン環境が自宅ですので確認結果、明日お知らせいたします。

投稿時間:2005/12/22(Thu) 15:48
投稿者名:kishitatsu
URL :
タイトル:
Re^2: 記事4404参考にてエラーに
> > 実行時エラー:424 オブジェクトが必要です。
> どの辺でそのエラーがでますか?
> 該当のサイトを表示させた状態でもでますか?
>
> 確認してもそのようなエラーは出ないのですがね。

WebBrowserの利用にあたり
参照設定にてチェックマークが必要なものはあるのでしょうか?

投稿時間:2005/12/22(Thu) 15:57
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: 記事4404参考にてエラーに
> WebBrowserの利用にあたり
> 参照設定にてチェックマークが必要なものはあるのでしょうか?

WebBrowser コントロールを貼り付けたら自動的にMicroSoft Internet Controls にチェックが
入ります。

投稿時間:2005/12/24(Sat) 00:09
投稿者名:kishitatsu
URL :
タイトル:
Re^4: 記事4404参考にてエラーに
> > WebBrowserの利用にあたり
> > 参照設定にてチェックマークが必要なものはあるのでしょうか?
>
> WebBrowser コントロールを貼り付けたら自動的にMicroSoft Internet Controls にチェックが
> 入ります。

プロジェクト→コンポーネントにてMicroSoft Internet Controlsにチェックマークを入れると
ツールボックスにWebBrowserが追加されました。
これをフォーム上に貼り付け、コマンドボタンをクリックするとうまくいきました。

ご指摘ありがとうございます。またご指導頂く機会があると思いますので
その折にはお願い致します。