Emmanuele Sassi
29 lines
519 B
VB.net
29 lines
519 B
VB.net
Public Class MainMenuVM
|
|
Inherits VMBase
|
|
|
|
' Definizione comandi
|
|
Private m_cmdPage As ICommand
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "Page"
|
|
|
|
Public ReadOnly Property Page_Command As ICommand
|
|
Get
|
|
If m_cmdPage Is Nothing Then
|
|
m_cmdPage = New Command(AddressOf Page)
|
|
End If
|
|
Return m_cmdPage
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Page(nPage As Integer)
|
|
Map.refFiveLakesUIVM.SetSelPage(nPage)
|
|
End Sub
|
|
|
|
#End Region ' Page
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|