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

投稿時間:2004/09/02(Thu) 17:18
投稿者名:まい
Eメール:
URL :
タイトル:
webbrowserの横スクロールバーについて
VB6でwebbrowserを使ってインターネットエクスプローラみたいな物を作ろうと思っています。
ある程度まで出来上がってるのですが、横スクロールバーが出ないことに気がつきまして、
なにか良い方法があれば教えていただきたいのですが、
リストボックス等の横スクロールバーをつけるのとはやり方が違うのでしょうか?
色々調べてみたのですが、webbrowser関係の資料が見つからないので、投稿に至りました。
よろしくお願いいたします。

投稿時間:2004/09/02(Thu) 17:43
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: webbrowserの横スクロールバーについて
大きな画像を表示するか、コントロールのサイズを小さくすれば表示するかと
思いますが。

デフォルトでは Auto になっているのでコントロールに表示しきれない場合しか
横スクロールバー出ないかと思います。
WebBrowser1.Document.body.Style.overflow = "scroll"  'visible・scroll・auto / hidden
上記なら常時表示します。

投稿時間:2004/09/02(Thu) 18:38
投稿者名:まい
Eメール:
URL :
タイトル:
Re^2: webbrowserの横スクロールバーについて
早速の返信ありがとうございます。
>WebBrowser1.Document.body.Style.overflow = "scroll"
以上のコマンドを
 Private Sub Form_Load()
   WebBrowser1.Document.body.Style.overflow = "scroll"
 End Sub
この様に追加してみたのですが、実行すると
 実行時エラー'91'
 オブジェクト変数またはwithブロック変数が設定されていません。
と、エラーがでます。
初心者なもので、応用がきかないのですが、コンポーネントや参照設定の変更や追加はする必要があるのですか?
コンポーネントのMicrosoft Internet Control6.0というのだけ入っています。
解決法ありましたらよろしくお願いいたします。

投稿時間:2004/09/02(Thu) 19:00
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: webbrowserの横スクロールバーについて
Form_Load に記入するなら表示させてからでないとエラーとなるので
下記のように設定して見て下さい。 "AUTO" でも表示しますね

Private Sub Form_Load()
    WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
     Do While WebBrowser1.ReadyState <> READYSTATE_INTERACTIVE
        DoEvents
    Loop
    WebBrowser1.Document.body.Style.overflow = "AUTO"    '"scroll"
End Sub

投稿時間:2004/09/02(Thu) 19:18
投稿者名:まい
Eメール:
URL :
タイトル:
解決
返信ありがとうございます。
自分のプログラムに組み込んでも横スクロールバーが表示されなくて、
サンプルをそのまま実行してみたら、横スクロールバーが表示されました。
おかしいと思ったら、自分のプログラムミスでした・・。
resize処理をしたときにスクロールバーが画面の外にあったので表示されてなかった
だけのようです;; お手数おかけして申し訳ありませんでした。
でも、表示、非表示などの設定が出来る事を教えてもらい、勉強になりました。
これからはもっと調べてから投稿するよう心がけます。
ありがとうございました。