WebView2 Base 示例 - 最小浏览器嵌入

概述

这是 cWebView2Host 的最简"Hello World"示例，展示如何用最少的代码在 VB6 窗体中嵌入 Edge 浏览器。

项目结构

下载源码 [ 注意：重新到bin目录注册 DLL 文件 ]

代码请到 VBMAN2 项目 demos/webview2/base 目录获取。

base/
  ├── Form1.frm              # 主窗体，包含 WebView2 初始化代码
  ├── vbman2_webview2.vbp    # VB6 项目文件
  └── vbman2_webview2.vbw    # VB6 工作区文件

核心代码解析

1. 主窗体(Form1.frm)

Dim wv As New cWebView2Host

Private Sub Form_Load()
    wv.Initialize Me.hWnd, "https://vb6.pro"
End Sub

功能说明

1. 最小化初始化

   • 使用 Dim wv As New cWebView2Host 自动实例化，无需 Set 语句
   • Initialize 两个参数：窗口句柄 + URL，一步完成全部初始化

2. 自动导航

   • 第二个参数传入 URL，Initialize 完成后自动导航
   • 无需处理 Ready 事件或手动调用 Navigate

3. 无需事件处理

   • 不使用 WithEvents，不处理任何事件
   • 适用于仅需展示网页、不需要与页面交互的场景

技术要点

1. Dim wv As New 是 VB6 的自动实例化语法，首次访问 wv 时自动创建对象
2. Initialize Me.hWnd 传入窗体句柄，WebView2 将作为子窗口嵌入
3. 使用 New 关键字无法声明 WithEvents，如需事件处理请改用 Dim WithEvents wv As cWebView2Host + Set wv = New cWebView2Host

应用场景

1. 应用内嵌帮助文档浏览器
2. 展示网页内容的信息展示面板
3. 需要快速验证 WebView2 运行环境的最小测试

扩展建议

1. 添加窗体 Resize 事件处理以响应窗口大小变化
2. 添加事件处理以实现标题同步、导航控制等交互功能