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

系列文章目录

上一节：02cefsharp实现单页面打开新网页，地址栏，下载等基本功能

---

cefsharp专题目录页链接

---

一、编程环境

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

---

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

二、功能实现展示

1.基本界面

2.全局声明浏览器，方便调用

    Public browser As ExtChromiumBrowser

---

3.按钮功能

1.后退

        browser.Back

2.前进

        browser.Forward

3.主页

        browser.Load("主页地址")

4.导航地址栏

        browser.Load(TextBox1.Text)

---

4.新建委托设置地址栏地址，历史listbox增加历史

【注意】不能在浏览器的加载结束与状态变化中设置，会警告跨线程问题

    Private Delegate Sub str_Delegate(str As String) ''跨线程设置地址栏地址
    Private Sub SetTxt_Url(str As String)

        '外线程调用

        If InvokeRequired Then

            Invoke(New str_Delegate(AddressOf SetTxt_Url), str)

            Return
        End If

        TextBox1.Text = str   ''设置地址栏地址
        With ListBox1         ''历史listbox增加历史
            .Items.Add(ListBox1.Items.Count + 1)
            .Items.Item(.Items.Count - 1) = str
        End With
    End Sub
    Private Sub browser_AddressChanged(sender As Object, e As AddressChangedEventArgs) ''浏览器地址变化事件
        SetTxt_Url(e.Address.ToString) ''委托主线程更改地址栏、listbox增加历史
    End Sub

---

5.界面放缩trackbar

初识设置：min：-50 max：50 value：0

 Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        browser.SetZoomLevel(TrackBar1.Value / 100 * 10)
 End Sub

---

6.历史记录listbox

1.点击跳转链接：

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        browser.Load(ListBox1.SelectedItem.ToString)
    End Sub

2.点击出现
listbox的初始设置成隐藏：

        ListBox1.Visible = False

按钮点击事件

        ListBox1.Visible = True

3.自动显现（界面平移等动画见后期【控件动画】篇章）
按钮mouseEnter事件出现

Private Sub Button5_MouseEnter(sender As Object, e As EventArgs) Handles Button5.MouseEnter
        ListBox1.Visible = True
End Sub

历史MouseLeave事件隐藏

 Private Sub ListBox1_MouseLeave(sender As Object, e As EventArgs) Handles ListBox1.MouseLeave
        ListBox1.Visible = False
 End Sub

4.如果需要保存历史，需要保存在本地

        Try
            System.IO.File.WriteAllText(Path, "listbox的内容", encoding:=Encoding.UTF8)
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show("加载文件出错,请检查文件路径或文件名")
        End Try

---

三、资源文件源码

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

下节预告

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