Emmanuele Sassi
40 lines
1.2 KiB
VB.net
40 lines
1.2 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports EgtUILib
|
|
|
|
Namespace EgtCAM5
|
|
|
|
Public Class MachGroupPanelViewModel
|
|
Inherits ViewModelBase
|
|
|
|
Private m_MachGroupList As New ObservableCollection(Of String)
|
|
Public Property MachGroupList As ObservableCollection(Of String)
|
|
Get
|
|
Return m_MachGroupList
|
|
End Get
|
|
Set(value As ObservableCollection(Of String))
|
|
If value IsNot m_MachGroupList Then
|
|
m_MachGroupList = value
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub LoadMachGroups()
|
|
' Carico i gruppi di lavorazione nella lista
|
|
Dim nId = EgtGetFirstMachGroup()
|
|
While nId <> GDB_ID.NULL
|
|
Dim sName As String = String.Empty
|
|
EgtGetMachGroupName(nId, sName)
|
|
MachGroupList.Add(sName)
|
|
nId = EgtGetNextMachGroup(nId)
|
|
End While
|
|
End Sub
|
|
|
|
Sub New()
|
|
Application.Msn.Register(Application.LOADMACHGROUP, Sub()
|
|
LoadMachGroups()
|
|
End Sub)
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace |