locked
FAQs: 如何添加收藏夹/书签功能和标签页功能到自己的Web浏览器? RRS feed

  • 问题

  • 为了帮助大家更好地学习 Visual Basic技术,微软论坛技术支持团队编辑了一些列的 "Visual Basic 常见问题及解答" 精华帖。

    本帖的主题是:如何添加收藏夹/书签功能和标签页功能到自己的Web浏览器?

    如果您觉得这个帖子对您的学习、工作有所帮助,请再把这个帖子分享给你的同学、同事和朋友。

    如果您想阅读更多的 "Visual Basic 常见问题及解答",请打开索引页面:
    http://social.msdn.microsoft.com/Forums/zh-CN/vbasiczhchs/thread/c9ab4b8e-99dc-49a2-bcea-30f3ecc3c3b7


    如果您对我们的论坛在线支持服务有任何的意见或建议,请通过邮件告诉我们。
    MSDN 论坛好帮手 立刻免费下载  MSDN 论坛好帮手
    2011年3月2日 12:46

答案

  • 1)   要给自己的Web浏览器添加收藏夹/书签功能,你可以使用My.Settings(选择System.Collections.Specialized.StringCollection数据类型)来存储收藏夹或者书签的所有项目。

     

    示例: 给自己的Web浏览器实现收藏夹功能。

    首先创建一个新的配置变量:

    项目 -> 属性 -> 设置 -> 创建如下配置

    Name  favList                          

    Type   System.Collections.Specialized.StringCollection (Browser and locate this type)

    Scope  User         

    Value  (Set several initial items)

     

    先决条件: 添加 MenuStrip1 (包含ToolStripMenuItem1 ToolStripMenuItem2) WebBrowser1 Form1

     

    Public Class Form1

        Private Sub Form1_Load(ByVal sender As System.Object, _

                          ByVal e As System.EventArgs) Handles MyBase.Load

            ToolStripMenuItem1.Text = "Favorites"

            ToolStripMenuItem2.Text = "Add"

            WebBrowser1.Navigate("http://www.microsoft.com")

     

            ' 打开窗体的时候将配置加载到收藏夹菜单  

            For Each item As String In My.Settings.favList

                Dim menuItem1 As New ToolStripMenuItem

                menuItem1.Text = item.ToString

                ToolStripMenuItem1.DropDownItems.Add(menuItem1)

            Next

     

            ' 为每一个收藏夹链接菜单项目添加点击事件监听  

            For Each C As ToolStripItem In ToolStripMenuItem1.DropDownItems

                If TypeOf (C) Is ToolStripMenuItem Then ' 执行菜单栏分离器的各个项目

                    AddHandler C.Click, AddressOf ToolStripMenuItem_Click

                End If

            Next

        End Sub

     

        ' 为收藏夹菜单和FavList配置添加项目  

        Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, _

                            ByVal e As System.EventArgs) _Handles ToolStripMenuItem2.Click

            Dim menuItem1 As New ToolStripMenuItem

            menuItem1.Text = WebBrowser1.Url.ToString

            ToolStripMenuItem1.DropDownItems.Add(menuItem1)

            My.Settings.favList.Add(WebBrowser1.Url.ToString)

        End Sub

     

        ' 当从收藏夹菜单选择链接项时打开收藏夹链接页  

        Private Sub ToolStripMenuItem_Click(ByVal sender As Object, _

                            ByVal e As System.EventArgs)

            WebBrowser1.Navigate(sender.ToString)

        End Sub

     

        ' 关闭窗体时保存配置

        Private Sub Form1_FormClosed(ByVal sender As System.Object, _

                            ByVal e As System.Windows.Forms.FormClosedEventArgs) _

                            Handles MyBase.FormClosed

            My.Settings.Save()

        End Sub

    End Class

     

    相关链接:

    http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/46729475-ffc5-4666-b4d0-f0d162a49acc

     

    2)     Here此处是为自己的web浏览器添加标签功能的主要思路:

    将你的Web浏览器添加到一个新的TabPage对象,然后将此对象添加到TabControl对象。

    示例: 如何在一个新标签窗口中打开一个页面? 

    Dim wb As New WebBrowser

    wb.Navigate("URL")

    Dim tab As New TabPage("Title")

    tab.Controls.Add(wb)

    TabControl.TabPages.Add(tab)

    TabControl.SelectedTab = tab

     

     

    这里有一些关于标签式web浏览器的手册:

    http://social.msdn.microsoft.com/Forums/en/vbgeneral/thread/827d96b1-2868-4624-ad32-10917d87a9ed

    http://www.codeproject.com/KB/vb/TabPages.aspx


    如果您对我们的论坛在线支持服务有任何的意见或建议,请通过邮件告诉我们。
    MSDN 论坛好帮手 立刻免费下载  MSDN 论坛好帮手
    2011年3月2日 12:46