自定义状态栏

本节内容可以参考示例文件"CaseStudy\WebViewer\菜单.Table"。

WebViewer自带状态栏，这个状态栏是动态的，需要的时候才显示，不需要的时候会隐藏。

我们可以自定义一个状态栏替换掉WebViewer默认的状态栏。

关于窗口状态栏的设计，请参考：关于窗口菜单

实现过程很简单：

1、增加一个状态栏，状态栏增加一个Label项，改为名info。

2、修改窗口的AfterLoad事件，隐藏默认的状态栏：

'''Async
Dim wv As WebViewer = e.Form.Controls("WebViewer1").WebViewer
Await wv.EnsureCoreWebView2Async(Nothing)
wv.CoreWebView2.Settings.IsStatusBarEnabled = False '关闭默认状态栏
wv.CoreWebView2.Navigate("https://www.baidu.com/")

3、在StatusBarTextChanged事件中加上代码：

Dim wv As WebViewer = e.Form.Controls("WebViewer1").WebViewer
If wv.CoreWebView2.StatusBarText > "" Then
    e.Form.Strips("状态栏").Items("info").Text = wv.CoreWebView2.StatusBarText
Else
    e.Form.Strips("状态栏").Items("info").Text = "就绪"
End If

提示：

1、wv.CoreWebView2.StatusBarText返回需要显示的信息

2、只要wv.CoreWebView2.StatusBarText发生变化，就会触发StatusBarTextChanged事件。