Emmanuele Sassi
30 lines
557 B
VB.net
30 lines
557 B
VB.net
Public Class MainMenuVM
|
|
|
|
' Definizione comandi
|
|
Private m_cmdDoorList As ICommand
|
|
Private m_cmdMachineStatus As ICommand
|
|
Private m_cmdStatistics As ICommand
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "DoorList"
|
|
|
|
Public ReadOnly Property DoorList_Command As ICommand
|
|
Get
|
|
If m_cmdDoorList Is Nothing Then
|
|
m_cmdDoorList = New Command(AddressOf DoorList)
|
|
End If
|
|
Return m_cmdDoorList
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub DoorList()
|
|
|
|
End Sub
|
|
|
|
#End Region ' DoorList
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|