构建浏览器外壳

一个简短的工作教程：将WebView2控件变成一个可工作的浏览器，带有地址栏、后退/前进/刷新按钮、缩放以及一些辅助工具（DevTools、任务管理器、PDF导出）。

完整项目以示例0——WebView2示例的形式在新项目对话框中提供（窗体示例1）。本教程描述其关键部分。

窗体

将一个WebView2控件放置到窗体上并重命名为 WebView。在其周围添加一个名为 AddressBar 的 TextBox 以及七个 CommandButton——btnBack、btnForward、btnRefresh、btnZoomIn、btnZoomOut、btnPDF、btnDevTools、btnTaskMgr。

导航

最基本的导航方法——Navigate、GoBack、GoForward、Reload——都是单行代码：

Private Sub btnBack_Click() Handles btnBack.Click
    WebView.GoBack()
End Sub

Private Sub btnForward_Click() Handles btnForward.Click
    WebView.GoForward()
End Sub

Private Sub btnRefresh_Click() Handles btnRefresh.Click
    WebView.Reload()
End Sub

要使后退/前进按钮跟随实际的浏览历史状态，在每次导航后根据CanGoBack和CanGoForward同步它们：

Private Sub WebView_NavigationComplete( _
        ByVal IsSuccess As Boolean, ByVal WebErrorStatus As Long) _
        Handles WebView.NavigationComplete
    btnBack.Enabled = WebView.CanGoBack
    btnForward.Enabled = WebView.CanGoForward
End Sub

地址栏

在地址栏中按Enter触发导航。反向——保持可见URL与页面同步——是SourceChanged事件，每当DocumentURL更改时触发（包括同文档的 history.pushState 更新）：

Private Sub AddressBar_KeyDown(KeyCode As Integer, Shift As Integer) _
        Handles AddressBar.KeyDown
    If KeyCode = vbKeyReturn Then WebView.Navigate AddressBar.Text
End Sub

Private Sub WebView_SourceChanged(ByVal IsNewDocument As Boolean) _
        Handles WebView.SourceChanged
    AddressBar.Text = WebView.DocumentURL
End Sub

Navigate接受任何URI字符串；如果缺少方案前缀，会自动添加 https://。

缩放

ZoomFactor是一个Double——1.0为100%，1.5为150%。设计时默认值为 0，表示"不覆盖Edge的默认值1.0"——因此从冷启动乘以 1.1 得到 0，而不是 1.1。缩放前先钳制到 1：

Private Sub btnZoomIn_Click() Handles btnZoomIn.Click
    If WebView.ZoomFactor = 0 Then WebView.ZoomFactor = 1
    WebView.ZoomFactor *= 1.1
End Sub

Private Sub btnZoomOut_Click() Handles btnZoomOut.Click
    If WebView.ZoomFactor = 0 Then WebView.ZoomFactor = 1
    WebView.ZoomFactor /= 1.1
End Sub

PDF导出

PrintToPdf异步将当前文档保存到磁盘——结果以PrintToPdfCompleted或PrintToPdfFailed事件到达：

Private Sub btnPDF_Click() Handles btnPDF.Click
    Dim outputPath As String = _
        Environ$("USERPROFILE") & "\Documents\page.pdf"
    WebView.PrintToPdf(outputPath)
End Sub

Private Sub WebView_PrintToPdfCompleted() Handles WebView.PrintToPdfCompleted
    MsgBox "PDF saved.", vbInformation
End Sub

DevTools和任务管理器

两个窗口都是一次性调用——调用匹配方法，Edge在其自己的进程中打开窗口：

Private Sub btnDevTools_Click() Handles btnDevTools.Click
    WebView.OpenDevToolsWindow()
End Sub

Private Sub btnTaskMgr_Click() Handles btnTaskMgr.Click
    WebView.OpenTaskManagerWindow()
End Sub

OpenDevToolsWindow即使在AreDevToolsEnabled为False时也能工作（该设置仅禁用用户发起的路径——键盘快捷键和上下文菜单）。

窗体标题同步

要使宿主窗口的标题跟踪页面的 <title>，监听DocumentTitleChanged并读取DocumentTitle：

Private Sub WebView_DocumentTitleChanged() Handles WebView.DocumentTitleChanged
    Me.Caption = WebView.DocumentTitle
End Sub

下一步

• 托管本地Web资源 —— 无需HTTP服务器即可从文件夹提供HTML/JS/CSS。
• JavaScript互操作 —— 在BASIC和页面之间传递值和方法调用。
• WebView2参考 —— 每个属性、方法和事件。