Daniele Bariletti
67 lines
1.7 KiB
VB.net
67 lines
1.7 KiB
VB.net
Imports EgtUILib.EgtInterface
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class SelOptionVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
Private m_SelTypeList As New List(Of String)({"Line", "Arc", "Loop", "Solid", "Face", "None"})
|
|
Public Property SelTypeList As List(Of String)
|
|
Get
|
|
Return m_SelTypeList
|
|
End Get
|
|
Set(value As List(Of String))
|
|
m_SelTypeList = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SelType As Integer
|
|
Public Property SelType As Integer
|
|
Get
|
|
Return m_SelType
|
|
End Get
|
|
Set(value As Integer)
|
|
m_SelType = value
|
|
SelectionChanged()
|
|
End Set
|
|
End Property
|
|
#End Region 'Field & Properties
|
|
|
|
Sub New()
|
|
Select Case Map.refSceneHostV.m_SelType
|
|
Case GDB_TY.CRV_LINE
|
|
m_SelType = 0
|
|
Case GDB_TY.CRV_ARC
|
|
m_SelType = 1
|
|
Case GDB_TY.CRV_COMPO
|
|
m_SelType = 2
|
|
Case GDB_TY.SRF_MESH
|
|
m_SelType = 3
|
|
Case GDB_TY.SRF_FRGN
|
|
m_SelType = 4
|
|
Case Else
|
|
m_SelType = 5
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub SelectionChanged()
|
|
Select Case m_SelType
|
|
Case 0
|
|
Map.refSceneHostV.m_SelType = GDB_TY.CRV_LINE
|
|
Case 1
|
|
Map.refSceneHostV.m_SelType = GDB_TY.CRV_ARC
|
|
Case 2
|
|
Map.refSceneHostV.m_SelType = GDB_TY.CRV_COMPO
|
|
Case 3
|
|
Map.refSceneHostV.m_SelType = GDB_TY.SRF_MESH
|
|
Case 4
|
|
Map.refSceneHostV.m_SelType = GDB_TY.SRF_FRGN
|
|
Case 5
|
|
Map.refSceneHostV.m_SelType = GDB_TY.NONE
|
|
End Select
|
|
NotifyPropertyChanged(NameOf(SelType))
|
|
Map.refSceneButtonV.MenuSelType.IsOpen = False
|
|
End Sub
|
|
|
|
End Class
|