Imports System.IOPublic 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
这段代码也不是很明白忘高人指教
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
这段代码也不是很明白忘高人指教
解决方案 »
- 【散分】又将踏上旅程
- 有没有VB的代码排版缩进工具?
- 如下所示,我想做一个终止功能,终止过程的执行,请问要怎么做。
- 大家帮忙编个小程序..谢谢了(时间段查询)
- VB编写dll出现-未设置对象变量或 With block 变量
- vb数据库access 用什么 方法可以把它复制到另一地方?在线等。
- 如何将EXCEL工作表中的数据导入到ACCESS2000表中?
- the OCX of SpreadSheet
- VB文件操作
- 请问:在同一个程序中,用data控件+ado和全部使用ado相比,性能上有什么影响?
- 关于image的一点小问题,请看代码,在线等,解决给分
- 请问用ADOX新建ACCESS表如何设置字段顺序?
一种没有参数的调用,一种是带参数的调用,两种调用实现的是相同的功能。不带参数的把类属性FavoritesFolder作为参数来调用带参数的。