Samuele E. Locatelli
38 lines
919 B
VB.net
38 lines
919 B
VB.net
Imports EgtBEAMWALL.Core
|
|
|
|
Public Class MainWindowVM
|
|
|
|
Private m_MachGroupList As New List(Of MyMachGroup)
|
|
Public Property MachGroupList As List(Of MyMachGroup)
|
|
Get
|
|
Return m_MachGroupList
|
|
End Get
|
|
Set(value As List(Of MyMachGroup))
|
|
m_MachGroupList = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SelMachGroup As MyMachGroup
|
|
Public Property SelMachGroup As MyMachGroup
|
|
Get
|
|
Return m_SelMachGroup
|
|
End Get
|
|
Set(value As MyMachGroup)
|
|
m_SelMachGroup = value
|
|
End Set
|
|
End Property
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
'' Avvio l'inizializzazione della mappa passandogli il riferimento al MainWindowVM
|
|
'Map.BeginInit(Me)
|
|
'' Creo Model della MainWindow
|
|
'm_MainWindowM = New MainWindowM
|
|
m_MachGroupList.Add(New beammachgroup(43, "Mach7", "Essetre-FAST"))
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
End Class
|