首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

有段代码看不明白希望们指教

2012-01-11 
求助:有段代码看不明白希望大虾们指教ImportsSystem.IOPublicClassFavoritesPublicFavoritesCollectionAsW

求助:有段代码看不明白希望大虾们指教
Imports   System.IO

Public   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
                Dim   objScanFolder   As   New   DirectoryInfo(folderName)
                Dim   objFavoriteFile   As   FileInfo
                For   Each   objFavoriteFile   In   objScanFolder.GetFiles
                        If   String.Compare(objFavoriteFile.Extension,   ".Url ",   True)   =   0   Then
                                Dim   objWebFavorite   As   New   WebFavorite
                                objWebFavorite.Load(objFavoriteFile)
                                FavoritesCollection.Add(objWebFavorite)
                        End   If
                Next
        End   Sub
End   Class
这里定义的类Favorites中为什么定义一个函数ScanFavorites()后,而这个函数又调用本身呢?
Public   Sub   ScanFavorites()
                ScanFavorites(FavoritesFolder)
        End   Sub
这段代码也不是很明白忘高人指教


[解决办法]
这是.net里的东西吧。

这个类的ScanFavorites函数被重载了,类里面提供了两种调用ScanFavorites函数的方法。
一种没有参数的调用,一种是带参数的调用,两种调用实现的是相同的功能。不带参数的把类属性FavoritesFolder作为参数来调用带参数的。

热点排行