系列文章目录
上一节: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
三、资源文件
1、02cefsharp-单页面打开网页,下载,地址栏【源码】.
2、03浏览器的操作按钮、页面放缩、浏览历史【源码】
3、04cefsharp类谷歌浏览器多开页面的实现【源码】
4、下载资源加载,项目引用出现感叹号解决方法
四、下节预告
05使得cefsharp浏览器支持mp3、mp4媒体播放方法