专栏首页阿炬.NETVB2008写的--收藏夹查看程序,适合.net初学者研究(附源码)

VB2008写的--收藏夹查看程序,适合.net初学者研究(附源码)

一、首先建一个单个书签的类WebFavorite

1    Public Name As String  '定义书签类属性--名称
 2    Public Url As String   '定义书签类属性--网址
 3    Public Sub Load()Sub Load(ByVal filename As String) '书签类Load方法 参数表示书签文件名如:书签名.url
 4
 5        Dim strData As String
 6        Dim strLines() As String
 7        Dim strLine As String
 8        Dim objFileInfo As New FileInfo(filename)
 9        Name = objFileInfo.Name.Substring(0, objFileInfo.Name.Length - objFileInfo.Extension.Length)
10        Try
11            strData = My.Computer.FileSystem.ReadAllText(filename) '读取文本文件
12            strLines = strData.Split(New String() {ControlChars.CrLf}, StringSplitOptions.RemoveEmptyEntries) '截取每行组成字符串数组
13
14            For Each strLine In strLines '取每行数据
15                If strLine.StartsWith("URL=") Then
16                    Url = strLine.Substring(4)
17                    Exit For
18                End If
19            Next
20
21        Catch IOExceptionErr As IOException
22            Throw New Exception(IOExceptionErr.Message)
23
24        End Try
25
26    End Sub

二、建书签集合的类WebFavoriteCollection

Public Class WebFavoriteCollection
    Inherits CollectionBase

    Public Sub Add(ByVal Favorite As WebFavorite)
        List.Add(Favorite)
    End Sub

    Public Sub Remove(ByVal Index As Integer)
        If Index > 0 And Index < Count Then
            List.Remove(Index)
        End If

    End Sub
    Public ReadOnly Property Item(ByVal Index As Integer) As WebFavorite
        Get
            Return CType(List.Item(Index), WebFavorite)
        End Get
    End Property

End Class

三、建Favorites类获取收藏夹数据

Public FavoritesCollection As WebFavoriteCollection
    Public ReadOnly Property FavoritesFolder() As String
        Get
            Return Environment.GetFolderPath(Environment.SpecialFolder.Favorites) '返回系统收收藏夹存储的位置

        End Get
    End Property
    Public Sub ScanFavorites()
        ScanFavorites(FavoritesFolder)
    End Sub

    Public Sub ScanFavorites(ByVal folderName As String)

        If FavoritesCollection Is Nothing Then
            FavoritesCollection = New WebFavoriteCollection
        End If

        For Each strFile As String In My.Computer.FileSystem.GetFiles(folderName)

            My.Computer.FileSystem.GetFiles(folderName)

            If strFile.EndsWith(".url", True, Nothing) Then
                Try

                    Using objWebFavorite As New WebFavorite '用Using确保系统资源及时回收

                        objWebFavorite.Load(strFile)
                        FavoritesCollection.Add(objWebFavorite)

                    End Using
                Catch ExceptionErr As Exception

                    Throw New Exception(ExceptionErr.Message)

                End Try


            End If


        Next

    End Sub

有了以上三个类我们就可以在程序窗体中调用

下载源码:/Files/quejuwen/Favorites.rar

使用现有的三个类,我们还可以建立任务栏程序如:

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • 【神器】vimum在浏览器中键盘操作选择、复制、粘贴,键盘党的最爱

    阿炬
  • 在已有的Asp.net MVC项目中引入Taurus.MVC

    Taurus.MVC是一个优秀的框架,如果要应用到已有的Asp.net MVC项目中,需要修改一下。

    阿炬
  • OpenSNS开发笔记(1)

    阿炬
  • VBA 发票数据解析

    巴西_prince
  • MD5的介绍,算法和C、VB、Delphi实现

    http://download.winzheng.com/infoView/Article_861.htm

    阿敏总司令
  • [自定义服务器控件] 第一步:文本框。

    最近在整理我写的几个服务器控件,发出来与大家共享吧。 我写的自定义服务器控件呢分为两个类, 一是“简单继承”控件,就是继承框架里的控件然后加点属性了、事件了...

    用户1174620
  • 用VB.NET 撸一个登录界面(开箱即食)

    界面均使用panel、Label、textbox、pictruebox 拼凑而成!

    巴西_prince
  • VB.NET 软件注册码设计

    第一步,通过获取CPU的ID,硬盘ID,MAC地址,然后合成一个字符串,再使用DES方式加密字符串,再截取前面25位,后生成机器码

    巴西_prince
  • 类模块——举例

    前面使用Open 进行的文件操作,使用起来不是很方便,但是FileSystemObject里的TextStream使用起来就比较方便了,知道了类之后,就可以使用...

    xyj
  • #安卓开发# B4A 连接mssql 数据库

    巴西_prince

扫码关注云+社区

领取腾讯云代金券