系列文章目录
上一节:03cefsharp浏览器的操作按钮、页面放缩、浏览历史功能实现
原创博文,转载请标注转载链接,谢谢!
文章目录
一、编程环境
系统: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.cn/") ''起始页面地址
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、下载资源加载,项目引用出现感叹号解决方法