Demetrio Cassarino
98 lines
2.6 KiB
VB.net
98 lines
2.6 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports EgtBEAMWALL.Core
|
|
Imports EgtBEAMWALL.DataLayer.DatabaseModels
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class StatisticsTimePanelVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
'Public ReadOnly Property ViewPage_Visibility As Visibility
|
|
' Get
|
|
' Return If(Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE, Visibility.Visible, Visibility.Collapsed)
|
|
' End Get
|
|
'End Property
|
|
|
|
'Public ReadOnly Property MachiningPage_Visibility As Visibility
|
|
' Get
|
|
' Return If(Map.refMainMenuVM.SelPage = Pages.MACHINING OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE, Visibility.Visible, Visibility.Collapsed)
|
|
' End Get
|
|
'End Property
|
|
|
|
Private m_ViewPage_Visibility As Visibility = Visibility.Collapsed
|
|
Public Property ViewPage_Visibility As Visibility
|
|
Get
|
|
If Map.refMainMenuVM.SelPage = Pages.VIEW Then
|
|
Return Visibility.Visible
|
|
Else
|
|
Return m_ViewPage_Visibility
|
|
End If
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_ViewPage_Visibility = value
|
|
NotifyPropertyChanged(NameOf(ViewPage_Visibility))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_MachiningPage_Visibility As Visibility = Visibility.Collapsed
|
|
Public Property MachiningPage_Visibility As Visibility
|
|
Get
|
|
If Map.refMainMenuVM.SelPage = Pages.MACHINING Then
|
|
Return Visibility.Visible
|
|
Else
|
|
Return m_MachiningPage_Visibility
|
|
End If
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_MachiningPage_Visibility = value
|
|
NotifyPropertyChanged(NameOf(MachiningPage_Visibility))
|
|
End Set
|
|
End Property
|
|
|
|
#Region "ToolTip"
|
|
|
|
Public ReadOnly Property TotalTime_ToolTip As String
|
|
Get
|
|
Return EgtMsg(61978)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property DoneTime_ToolTip As String
|
|
Get
|
|
Return EgtMsg(61979)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property RemainingTime_ToolTip As String
|
|
Get
|
|
Return EgtMsg(61980)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' ToolTip
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in Map
|
|
Map.SetRefStatisticsTimePanelVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Sub SetStatisticsTimePanel_Visibility()
|
|
NotifyPropertyChanged(NameOf(ViewPage_Visibility))
|
|
NotifyPropertyChanged(NameOf(MachiningPage_Visibility))
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|