Emmanuele Sassi
a312eef399
- Aggiunta possibilità di getire progressbar e output message presenti nella StatusBar da LUA. - Inizio scrittura della struttura per MTables. - Aggiunta la possibilità di aggiungere nuovi gruppi di lavorazione. - Gestita uscita da NewMachiningCmd(in OperationList) con Esc.
123 lines
2.8 KiB
VB.net
123 lines
2.8 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.Collections.ObjectModel
|
|
Imports EgtUILib
|
|
|
|
Public Class MTableListBox
|
|
Implements INotifyPropertyChanged
|
|
|
|
Private m_Name As String
|
|
Public Property Name As String
|
|
Get
|
|
Return m_Name
|
|
End Get
|
|
Set(value As String)
|
|
m_Name = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_MachineList As ObservableCollection(Of MTableMachineListBox)
|
|
Public Property MachineList As ObservableCollection(Of MTableMachineListBox)
|
|
Get
|
|
Return m_MachineList
|
|
End Get
|
|
Set(value As ObservableCollection(Of MTableMachineListBox))
|
|
m_MachineList = Value
|
|
End Set
|
|
End Property
|
|
|
|
'Private m_OnPar As Boolean
|
|
'Public Property OnPar As Boolean
|
|
' Get
|
|
' Return m_OnPar
|
|
' End Get
|
|
' Set(value As Boolean)
|
|
' m_OnPar = value
|
|
' End Set
|
|
'End Property
|
|
|
|
'Private m_Oper As Boolean
|
|
'Public Property Oper As Boolean
|
|
' Get
|
|
' Return m_Oper
|
|
' End Get
|
|
' Set(value As Boolean)
|
|
' m_Oper = value
|
|
' End Set
|
|
'End Property
|
|
|
|
'Private m_Mach As Boolean
|
|
'Public Property Mach As Boolean
|
|
' Get
|
|
' Return m_Mach
|
|
' End Get
|
|
' Set(value As Boolean)
|
|
' m_Mach = value
|
|
' End Set
|
|
'End Property
|
|
|
|
'Private m_MachUp As Boolean
|
|
'Public Property MachUp As Boolean
|
|
' Get
|
|
' Return m_MachUp
|
|
' End Get
|
|
' Set(value As Boolean)
|
|
' m_MachUp = value
|
|
' End Set
|
|
'End Property
|
|
|
|
'Private m_MachDw As Boolean
|
|
'Public Property MachDw As Boolean
|
|
' Get
|
|
' Return m_MachDw
|
|
' End Get
|
|
' Set(value As Boolean)
|
|
' m_MachDw = value
|
|
' End Set
|
|
'End Property
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class MTableMachineListBox
|
|
|
|
Private m_MachName As String
|
|
Public Property MachName As String
|
|
Get
|
|
Return m_MachName
|
|
End Get
|
|
Set(value As String)
|
|
m_MachName = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_NcGenerate As Boolean
|
|
Public Property NcGenerate As Boolean
|
|
Get
|
|
Return m_NcGenerate
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_NcGenerate = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_Makeraw As Boolean
|
|
Public Property Makeraw As Boolean
|
|
Get
|
|
Return m_Makeraw
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_Makeraw = value
|
|
End Set
|
|
End Property
|
|
|
|
End Class
|
|
|
|
Public Class MTableAssociationGridBox
|
|
|
|
End Class
|