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

作者:www.s0081.com

图片 1

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

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

 

二、建书签集合的类WebFavoriteCollection

 

图片 31图片 32Code
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类获取收藏夹数据

 

图片 33图片 34Code
    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

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

图片 35

 

本文由金沙城中心全部网址发布,转载请注明来源

关键词: