Emmanuele Sassi
47 lines
1.5 KiB
VB.net
47 lines
1.5 KiB
VB.net
Imports EgtUILib
|
|
|
|
Namespace EgtCAM5
|
|
|
|
Public Class OperationPropertyExpanderViewModel
|
|
Inherits ViewModelBase
|
|
|
|
Private m_SelectedOperation As OperationListBoxItem
|
|
Public Property SelectedOperation As OperationListBoxItem
|
|
Get
|
|
Return m_SelectedOperation
|
|
End Get
|
|
Set(value As OperationListBoxItem)
|
|
If value IsNot m_SelectedOperation Then
|
|
Dim x = EgtSetCurrMachining(value.Id)
|
|
m_SelectedOperation = value
|
|
|
|
m_SelectedOperation.NotifyPropertyChanged("Invert")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
'Private m_Depth As String
|
|
'Public Property Depth As String
|
|
' Get
|
|
' EgtGetMachiningParam(MCH_MP.DEPTH, m_Depth)
|
|
' Return m_Depth
|
|
' End Get
|
|
' Set(value As String)
|
|
' If value <> m_Depth Then
|
|
' If EgtSetMachiningParam(MCH_MP.NAME, value) Then
|
|
' m_Depth = value
|
|
' End If
|
|
' End If
|
|
' 'OnPropertyChanged("Depth")
|
|
' End Set
|
|
'End Property
|
|
|
|
Sub New()
|
|
Application.Msn.Register(Application.SELECTEDOPERATION, Sub(SelectedOperation As OperationListBoxItem)
|
|
Me.SelectedOperation = SelectedOperation
|
|
End Sub)
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace |