Demetrio Cassarino
74 lines
2.2 KiB
VB.net
74 lines
2.2 KiB
VB.net
Imports EgtBEAMWALL.Core
|
|
Imports EgtUILib
|
|
|
|
Public Class BTLFeatureVM
|
|
Inherits Core.BTLFeatureVM
|
|
|
|
Public Overrides Property bDO As Boolean
|
|
Get
|
|
Return m_BTLFeatureM.bDO
|
|
End Get
|
|
Set(value As Boolean)
|
|
If EgtBeamEnableProcess(nFeatureId, value) Then
|
|
m_BTLFeatureM.bDO = value
|
|
NotifyPropertyChanged(NameOf(bDO))
|
|
EgtDraw()
|
|
End If
|
|
End Set
|
|
End Property
|
|
Friend Sub SetDo(bValue As Boolean)
|
|
If EgtBeamEnableProcess(nFeatureId, bValue) Then
|
|
m_BTLFeatureM.bDO = bValue
|
|
NotifyPropertyChanged(NameOf(bDO))
|
|
End If
|
|
End Sub
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(BTLFeatureM As BTLFeatureM, BTLPartM As BTLPartM)
|
|
m_BTLFeatureM = BTLFeatureM
|
|
m_BTLPartM = BTLPartM
|
|
NotifyPropertyChanged(NameOf(Calc_Background))
|
|
End Sub
|
|
|
|
Sub New(BTLFeatureM As BTLFeatureM)
|
|
m_BTLFeatureM = BTLFeatureM
|
|
m_BTLPartM = Nothing
|
|
NotifyPropertyChanged(NameOf(Calc_Background))
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
' funzione che aggiorna lo stato e gli errori dopo calcolo
|
|
Friend Sub CalcFeatureUpdate(ERR As Integer, ROT As Integer, MSG As String)
|
|
EgtSetInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW, ITG_PROJ_ERR, ITG_PROD_ERR), ERR, True)
|
|
EgtSetInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW, ITG_PROJ_MSG, ITG_PROD_MSG), MSG, True)
|
|
EgtSetInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW, ITG_PROJ_ROT, ITG_PROD_ROT), ROT, True)
|
|
m_BTLFeatureM.nCALC_ERR = ERR
|
|
m_BTLFeatureM.nCALC_ROT = ROT
|
|
m_BTLFeatureM.sCALC_MSG = MSG
|
|
If ERR = 0 Then
|
|
m_BTLFeatureM.nState = CalcStates.OK
|
|
ElseIf ERR = 17 Then
|
|
m_BTLFeatureM.nState = CalcStates.WARNING
|
|
ElseIf ERR > 0 Then
|
|
m_BTLFeatureM.nState = CalcStates.ERROR_
|
|
ElseIf ERR < 0 Then
|
|
m_BTLFeatureM.nState = Core.CalcStates.INFO
|
|
End If
|
|
NotifyPropertyChanged(NameOf(Calc_Background))
|
|
NotifyPropertyChanged(NameOf(CALC_ROT_Visibility))
|
|
NotifyPropertyChanged(NameOf(CALC_ERR_Letter))
|
|
NotifyPropertyChanged(NameOf(CALC_ERR_Foreground))
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|