NicolaP
60 lines
1.2 KiB
VB.net
60 lines
1.2 KiB
VB.net
Imports System.IO
|
|
Imports EgtUILib
|
|
|
|
Public Class ModifStartEndCutWindowVM
|
|
|
|
Private m_Title As String = String.Empty
|
|
Public Property Title As String
|
|
Get
|
|
Return m_Title
|
|
End Get
|
|
Set(value As String)
|
|
m_Title = value
|
|
End Set
|
|
End Property
|
|
Public ReadOnly Property ValueMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 35)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property OkMsg As String
|
|
Get
|
|
Return EgtMsg(91651) 'Ok
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ExitMsg As String
|
|
Get
|
|
Return EgtMsg(91652) 'Annulla
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sValue As String
|
|
Public Property sValue As String
|
|
Get
|
|
Return m_sValue
|
|
End Get
|
|
Set(value As String)
|
|
m_sValue = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New()
|
|
|
|
End Sub
|
|
|
|
Friend Function SetVal(dVal As Double) As Boolean
|
|
sValue = DoubleToString(dVal, 3)
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function GetVal() As Double
|
|
Dim dVal As Double = 0
|
|
StringToDouble(sValue, dVal)
|
|
Return dVal
|
|
End Function
|
|
|
|
End Class
|
|
|