Emmanuele Sassi
0532c0c486
- gestione ribs completata - nuove funzionalita' introdotte su tabella TFS - correzioni e migliorie varie
106 lines
2.2 KiB
VB.net
106 lines
2.2 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports EgtWPFLib5
|
|
Imports EgtUILib
|
|
|
|
Public Class ImportWndVM
|
|
Inherits VMBase
|
|
|
|
Private m_ImportedEntityList As ObservableCollection(Of GeomEntity)
|
|
Public ReadOnly Property ImportedEntityList As ObservableCollection(Of GeomEntity)
|
|
Get
|
|
Return m_ImportedEntityList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SelImportedEntity As GeomEntity
|
|
Public Property SelImportedEntity As GeomEntity
|
|
Get
|
|
Return m_SelImportedEntity
|
|
End Get
|
|
Set(value As GeomEntity)
|
|
m_SelImportedEntity = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ImportPartList As ObservableCollection(Of ImportPart)
|
|
Public ReadOnly Property ImportPartList As ObservableCollection(Of ImportPart)
|
|
Get
|
|
Return m_ImportPartList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SelImportPartList As ImportPart
|
|
Public Property SelImportPartList As ImportPart
|
|
Get
|
|
Return m_SelImportPartList
|
|
End Get
|
|
Set(value As ImportPart)
|
|
m_SelImportPartList = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(sFilePath As String)
|
|
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class GeomEntity
|
|
|
|
Private m_nId As Integer = GDB_ID.NULL
|
|
Public ReadOnly Property nId As Integer
|
|
Get
|
|
Return m_nId
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sName As String
|
|
Public ReadOnly Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|
|
|
|
Public Class ImportPart
|
|
|
|
Private m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_LayerList As List(Of ImportLayer)
|
|
Public ReadOnly Property LayerList As List(Of ImportLayer)
|
|
Get
|
|
Return m_LayerList
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|
|
|
|
Public Class ImportLayer
|
|
|
|
Private m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_EntityList As List(Of GeomEntity)
|
|
Public ReadOnly Property EntityList As List(Of GeomEntity)
|
|
Get
|
|
Return m_EntityList
|
|
End Get
|
|
End Property
|
|
|
|
End Class |