Demetrio Cassarino
44 lines
1.2 KiB
VB.net
44 lines
1.2 KiB
VB.net
Imports EgtBEAMWALL.Core.ConstGen
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class ProdProjManagerVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELD & PROPERTIES"
|
|
|
|
' Selezione Tab Prod / Proj
|
|
Private m_SelProdProj As ProdProj
|
|
Public Property SelProdProj As Integer
|
|
Get
|
|
Return m_SelProdProj
|
|
End Get
|
|
Set(value As Integer)
|
|
m_SelProdProj = value
|
|
NotifyPropertyChanged(NameOf(SelProdProj))
|
|
End Set
|
|
End Property
|
|
|
|
Public ReadOnly Property PartManager_Visibility As Visibility
|
|
Get
|
|
Return If((Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE) AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Map.refProjectVM.BTLStructureVM.SelectionType = BTLStructureVM.SelectionTypes.SELECT_ AndAlso Not Map.refFreeContourManagerVM.bIsActive, Visibility.Visible, Visibility.Collapsed)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property FreeContourManager_Visibility As Visibility
|
|
Get
|
|
Return Map.refProjectVM.FreeContourManager_Visibility
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
Map.SetRefProdProjManagerVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
End Class
|