level 1
哭笑一生
楼主
在网上找的个程序,可以运行。
Private Class FSNode
Public FRN As Long
Public ParentFRN As Long
Public FileName As String
Public IsFile As Boolean
Sub New(lFRN As Long, lParentFSN As Long, sFileName As String, bIsFile As Boolean)
FRN = lFRN
ParentFRN = lParentFSN
FileName = sFileName
IsFile = bIsFile
End Sub
End Class
Dim dicFRNLookup As New Dictionary(Of Long, FSNode)
For Each oFSNode As FSNode In dicFRNLookup.Values.Where(Function(o) o.IsFile)
.......
next
读不懂这句循环,找不到Function(o) o.IsFile
2017年06月27日 12点06分
1
Private Class FSNode
Public FRN As Long
Public ParentFRN As Long
Public FileName As String
Public IsFile As Boolean
Sub New(lFRN As Long, lParentFSN As Long, sFileName As String, bIsFile As Boolean)
FRN = lFRN
ParentFRN = lParentFSN
FileName = sFileName
IsFile = bIsFile
End Sub
End Class
Dim dicFRNLookup As New Dictionary(Of Long, FSNode)
For Each oFSNode As FSNode In dicFRNLookup.Values.Where(Function(o) o.IsFile)
.......
next
读不懂这句循环,找不到Function(o) o.IsFile
