Demetrio Cassarino
51 lines
1.3 KiB
VB.net
51 lines
1.3 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class ExtremityVM
|
|
Inherits SceneUserControlVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
Title = EGT_ADDCONSTRAINT.ToUpper()
|
|
|
|
DirectCast(Map.refSceneButtonVM.m_ExtremityUC, SceneUserControlV).Preview.Visibility = Visibility.Hidden
|
|
DirectCast(Map.refSceneButtonVM.m_ExtremityUC, SceneUserControlV).Annulla.Visibility = Visibility.Hidden
|
|
|
|
LoadParamList()
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "METHODS"
|
|
|
|
Public Overrides Sub LoadParamList()
|
|
' Scegli quale estremità vincolare
|
|
AddGenericParam(New _TextBlockParam(EGT_MESSAGE, EgtMsg(110047), ParamType.STR))
|
|
Dim ExtremityOptionList As New List(Of ParamCmBx)({New ParamCmBx("Start"),
|
|
New ParamCmBx("End")})
|
|
' Estremità
|
|
AddGenericParam(New _ComboBoxParam(EgtMsg(110046), ExtremityOptionList, 0, Visibility.Visible))
|
|
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_ExtremityUC)
|
|
SolidManagerM.ManageUndoRedo()
|
|
End Sub
|
|
|
|
#End Region ' Methods
|
|
|
|
End Class
|