04 cefsharp谷歌浏览器多开页面的实现

admin管理员组

文章数量:1564660

系列文章目录

上一节：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.Load
        Cef.EnableHighDPISupport()  ''高DPI适应支持
        Dim sett As New CefSettings '' 初始化浏览器
        Cef.Initialize(sett)

        '''''''绑定浏览器组事件'''''''''''
        For i = 0 To 29
            browser(i) = New ExtChromiumBrowser("about:blank")
            browser(i).Dock = DockStyle.Fill
            AddHandler browser(i).StartNewWindow, AddressOf browser_StartNewWindow
            AddHandler browser(i).AddressChanged, AddressOf browser_AddressChanged
            AddHandler browser(i).FrameLoadEnd, AddressOf browser_FrameLoadEnd
            AddHandler browser(i).LoadingStateChanged, AddressOf browser_LoadingStateChanged
        Next

        browser(0).Load("https://limestart/") ''起始页面地址
        TabPage1.Controls.Add(browser(0))
        browser(0).Dock = DockStyle.Fill
    End Sub

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

        Dim newpage As New TabPage
        TabControl1.TabPages.Add(newpage)
        newpage.Text = "page"  ''新添页面标题
        Dim index As Integer = TabControl1.TabPages.Count - 1
        TabControl1.SelectedIndex = index
        browser(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.DoubleClick
        If TabControl1.SelectedIndex > 0 Then
            TabControl1.TabPages.Remove(TabControl1.SelectedTab)
        End If
    End Sub

三、资源文件

1、02cefsharp-单页面打开网页，下载，地址栏【源码】.
2、03浏览器的操作按钮、页面放缩、浏览历史【源码】
3、04cefsharp类谷歌浏览器多开页面的实现【源码】
4、下载资源加载，项目引用出现感叹号解决方法

四、下节预告

05使得cefsharp浏览器支持mp3、mp4媒体播放方法

本文标签： 浏览器页面cefsharp