系列文章目录

上一节：03cefsharp浏览器的操作按钮、页面放缩、浏览历史功能实现

cefsharp专题目录页链接

原创博文，转载请标注转载链接，谢谢！

文章目录

系列文章目录
一、编程环境
二、功能实现展示
1.基本界面
2.更改浏览器代码
- （1）全局声明
- （2）浏览器加载事件
- （3）浏览器新建窗口事件更改代码
- （4）按钮事件更改代码，比如浏览器后退
- （5）双击tabpage标题关闭当前页面
三、资源文件
四、下节预告

一、编程环境

系统：win10
vs：2019 社区版免费下载
vs安装位置：默认安装位置
语言：vbnet
cefsharp版本：88.2.90务必对应版本蓝奏云下载

按钮图标资源网站与软件推荐：pichon
推荐原因：所有资源免费，当【分辨率设计】有一定要求时可以单独注册会员
官方网站链接：官网链接
官方软件下载：官方软件下载
CSDN资源转存：链接

二、功能实现展示

请添加图片描述

1.基本界面

在这里插入图片描述

2.更改浏览器代码

（1）全局声明

    Public browser(29) As ExtChromiumBrowser '利用数组，建立浏览器控件组，预设最多30个页面

（2）浏览器加载事件

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadCef.EnableHighDPISupport()  ''高DPI适应支持Dim sett As New CefSettings '' 初始化浏览器Cef.Initialize(sett)'''''''绑定浏览器组事件'''''''''''For i = 0 To 29browser(i) = New ExtChromiumBrowser("about:blank")browser(i).Dock = DockStyle.FillAddHandler browser(i).StartNewWindow, AddressOf browser_StartNewWindowAddHandler browser(i).AddressChanged, AddressOf browser_AddressChangedAddHandler browser(i).FrameLoadEnd, AddressOf browser_FrameLoadEndAddHandler browser(i).LoadingStateChanged, AddressOf browser_LoadingStateChangedNextbrowser(0).Load("https://limestart.cn/") ''起始页面地址TabPage1.Controls.Add(browser(0))browser(0).Dock = DockStyle.FillEnd Sub

（3）浏览器新建窗口事件更改代码

        Dim newpage As New TabPageTabControl1.TabPages.Add(newpage)newpage.Text = "page"  ''新添页面标题Dim index As Integer = TabControl1.TabPages.Count - 1TabControl1.SelectedIndex = indexbrowser(index).Load(e.url.ToString) ''Brower浏览器新页面导航到地址，关键处newpage.Controls.Add(browser(index))

（4）按钮事件更改代码，比如浏览器后退

 browser(TabControl1.SelectedIndex).Back

（5）双击tabpage标题关闭当前页面

  Private Sub TabControl1_DoubleClick(sender As Object, e As EventArgs) Handles TabControl1.DoubleClickIf TabControl1.SelectedIndex > 0 ThenTabControl1.TabPages.Remove(TabControl1.SelectedTab)End IfEnd Sub