- spostamento + cambio nome

2024-10-03 16:30:55 +02:00
parent 6da345d8c5
commit 1aa26ca644
50 changed files with 34 additions and 189 deletions
@@ -0,0 +1,28 @@
+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