Dario Sassi
a4f75be46e
- drag diretto del pezzo da parcheggio a lastra - archi lavorati all'esterno con possibilità di inclinazione - possibilità di allungare e accorciare gli estremi dei tagli di una quantità a piacere - possibilità di bloccare la rotazione dei pezzi - possibilità di nesting automatico.
51 lines
1.0 KiB
VB.net
51 lines
1.0 KiB
VB.net
Imports System.IO
|
|
Imports EgtUILib
|
|
|
|
Public Class ModifStartEndCutWindowVM
|
|
|
|
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
|
|
|