You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
|
Public Class PagerModel
|
|
|
|
|
|
|
|
|
|
|
|
Public Property CurrentPage As Integer
|
|
|
|
|
|
Public Property PageSize As Integer
|
|
|
|
|
|
Public Property TotalSize As Integer
|
|
|
|
|
|
Public Property PagerWingLength As Integer
|
|
|
|
|
|
Public Property PageUrl As String
|
|
|
|
|
|
|
|
|
|
|
|
Public Sub New(currentPage As Integer,
|
|
|
|
|
|
pageSize As Integer,
|
|
|
|
|
|
totalSize As Integer,
|
|
|
|
|
|
pagerWingLength As Integer,
|
|
|
|
|
|
pageUrl As Integer)
|
|
|
|
|
|
Me.CurrentPage = currentPage
|
|
|
|
|
|
Me.PageSize = pageSize
|
|
|
|
|
|
Me.TotalSize = totalSize
|
|
|
|
|
|
Me.PagerWingLength = pagerWingLength
|
|
|
|
|
|
Me.PageUrl = pageUrl
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Public Sub New(currentPage As Integer,
|
|
|
|
|
|
totalSize As Integer,
|
|
|
|
|
|
pageUrl As String)
|
|
|
|
|
|
Me.CurrentPage = currentPage
|
|
|
|
|
|
Me.PageSize = SettingsWrapper.DefaultPagerListPageSize
|
|
|
|
|
|
Me.TotalSize = totalSize
|
|
|
|
|
|
Me.PagerWingLength = SettingsWrapper.DefaultPagerListWingLength
|
|
|
|
|
|
Me.PageUrl = pageUrl
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Public ReadOnly Property MaxPages As Integer
|
|
|
|
|
|
Get
|
|
|
|
|
|
Dim intPages = Me.TotalSize \ Me.PageSize
|
|
|
|
|
|
|
|
|
|
|
|
If Me.TotalSize Mod Me.PageSize > 0 Then
|
|
|
|
|
|
intPages += 1
|
|
|
|
|
|
End If
|
|
|
|
|
|
|
|
|
|
|
|
Return intPages
|
|
|
|
|
|
|
|
|
|
|
|
End Get
|
|
|
|
|
|
End Property
|
|
|
|
|
|
|
|
|
|
|
|
End Class
|
