Generics:
(note the 2 uses of the Of keyword in the function return argument
and the later declaration. Its purpose is to limit the list to one type
of collected object. So instead of having a list with its first member
as string type and its 2nd member as integer type, they are all required
to be of ASP.HttpProfile type)Private Function GetProfiles()
As List(Of ASP.HttpProfile)
Dim profileInfos As ProfileInfoCollection =
ProfileManager.GetAllProfiles(ProfileAuthenticationOption.All)
Dim profiles As New List(Of ASP.HttpProfile)
For Each info As ProfileInfo In profileInfos
profiles.Add(Profile.GetProfile(info.UserName))
Next
Return profiles
End Function |