Emmanuele Sassi
45 lines
1.0 KiB
VB.net
45 lines
1.0 KiB
VB.net
Public Class BottomPanelVM
|
|
Inherits VMBase
|
|
|
|
Friend Enum PartFeatureTab As Integer
|
|
STRUCTURE_ = 0
|
|
PART = 1
|
|
FEATURE = 2
|
|
End Enum
|
|
|
|
Private m_SelPartFeatureTab As PartFeatureTab
|
|
Public Property SelPartFeatureTab As Integer
|
|
Get
|
|
Return m_SelPartFeatureTab
|
|
End Get
|
|
Set(value As Integer)
|
|
m_SelPartFeatureTab = value
|
|
End Set
|
|
End Property
|
|
Friend Sub SetSelPartFeatureTab(SelPartFeatureTab As PartFeatureTab)
|
|
m_SelPartFeatureTab = SelPartFeatureTab
|
|
NotifyPropertyChanged("SelPartFeatureTab")
|
|
End Sub
|
|
|
|
Private m_sCurrDraw As String
|
|
Public ReadOnly Property sCurrDraw As String
|
|
Get
|
|
Return m_sCurrDraw
|
|
End Get
|
|
End Property
|
|
Friend Sub SetCurrDraw(sCurrDraw As String)
|
|
m_sCurrDraw = sCurrDraw
|
|
NotifyPropertyChanged(NameOf(sCurrDraw))
|
|
End Sub
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in EgtCAM5Map
|
|
Map.SetRefBottomPanelVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
End Class
|