Demetrio Cassarino
49 lines
1.1 KiB
VB.net
49 lines
1.1 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class AngleVM
|
|
Inherits SceneUserControlVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Title = EGT_ADDCONSTRAINT.ToUpper()
|
|
|
|
DirectCast(Map.refSceneButtonVM.m_AngleUC, SceneUserControlV).Preview.Visibility = Visibility.Hidden
|
|
DirectCast(Map.refSceneButtonVM.m_AngleUC, SceneUserControlV).Annulla.Visibility = Visibility.Hidden
|
|
|
|
LoadParamList()
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "METHODS"
|
|
|
|
Public Overrides Sub LoadParamList()
|
|
' ' Inserisci Angolo
|
|
AddGenericParam(New _TextBlockParam(EGT_MESSAGE, EgtMsg(110048), ParamType.STR))
|
|
' Angolo
|
|
AddGenericParam(New _TextBoxParam(EgtMsg(110006), 0, ParamType.DOUB, Visibility.Visible, True))
|
|
End Sub
|
|
|
|
Public Overrides Sub Conferma()
|
|
LoadEditParametric()
|
|
Close()
|
|
End Sub
|
|
|
|
Public Overrides Sub ShowPreview()
|
|
End Sub
|
|
|
|
Public Overrides Sub Annulla()
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub Close()
|
|
Map.refSceneButtonVM.RemoveUC(Map.refSceneButtonVM.m_AngleUC)
|
|
SolidManagerM.ManageUndoRedo()
|
|
End Sub
|
|
|
|
#End Region ' Methods
|
|
|
|
End Class
|