Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'my given collection and paging parameters
- Dim AllOfMyCustomClassObjects As System.Collections.Generic.List(Of MyCustomClass) = GIVEN
- Dim pagesize As Integer = GIVEN
- Dim pagenumber As Integer = GIVEN
- 'collect current page objects
- Dim PageObjects As New System.Collections.Generic.List(Of MyCustomClass)
- Dim objcount As Integer = 1
- For Each obj As MyCustomClass In AllOfMyCustomClassObjects
- If objcount > pagesize * (pagenumber - 1) And count <= pagesize * pagenumber Then
- PageObjects.Add(obj)
- End If
- objcount = objcount + 1
- Next
- 'find total page count
- Dim totalpages As Integer = CInt(Math.Floor(objcount / pagesize))
- If objcount Mod pagesize > 0 Then
- totalpages = totalpages + 1
- End If
- Dim PageObjects As New System.Collections.Generic.List(Of MyCustomClass)
- PageObjects = AllOfMyCustomClassObjects.Skip(pagenumber * pagesize).Take(pagesize)
- List<int> lolInts = new List<int>();
- for (int i = 0; i <= 100; i++)
- {
- lolInts.Add(i);
- }
- List<int> page1 = lolInts.GetRange(0, 49);
- List<int> page2 = lilInts.GetRange(50, 100);
Add Comment
Please, Sign In to add comment