WebBrowserのSutatusBarの表示

解決

一元 2004-03-09 22:10:10 No: 82517

VB6でWebBrowserでSutatusBarプロパティをTrueにしても
SutatusBarが表示されません、どのようにしたらSutatusBar
が表示されるのでしょうか？

魔界の仮面弁士 2004-03-09 22:56:50 No: 82518

表示されません。あれは、Internetexplroerオブジェクト用のプロパティです。

WebBrowserコントロールとInternetexplroerオブジェクトは、
共通のインターフェイス(IWebBrowser2)を持っていますが、その中には、
WebBrowserでは使用できないプロパティ/メソッドも存在しています。

[StatusBar Property]
http://msdn.microsoft.com/workshop/browser/webbrowser/reference/properties/statusbar.asp

上記の「Applies To」を見ていただくと、そこに"WebBrowser"の名が無い
(つまり、使用不可能である)という事を確認できるかと思います。

WebBrowserで使用可能/不可能なプロパティに関しては、下記で確認してください。

[Reference for Visual Basic Developers]
http://msdn.microsoft.com/workshop/browser/webbrowser/reflist_vb.asp

一元 2004-03-10 01:29:42 No: 82519

魔界の仮面弁士さんありがとうございます。
やはりそうなんですか、"The WebBrowser object ignores this property."
と書いて有ったんで、もしかしたらと思ったのですが。
これだとWebbrowserでHTMLの完全なるプリビュアーは作れないと言うことになりますね、
困りました。^_~;
HTMLの中にwindow.statusが出てきたら、ShellでIEを立ち上げることにします。

魔界の仮面弁士 2004-03-10 02:40:13 No: 82520

> HTMLの中にwindow.statusが出てきたら、ShellでIEを立ち上げることにします。
Statusbarコントロールを自前で用意するだけで良いのでは。

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Me.StatusBar1.SimpleText = Text
End Sub

一元 2004-03-10 05:54:58 No: 82521

魔界の仮面弁士さんありがとうございます。
自分で用意すればいいんですね。^_^
あきらめていたので助かりました。

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
StatusBar1.Panels(1).Text = Text
End Sub
これでセットできました。