RenzoL
36 lines
818 B
VB.net
36 lines
818 B
VB.net
Imports System.Collections.ObjectModel
|
|
Imports EgtUILib
|
|
|
|
Public Class FeatureListVM
|
|
|
|
Private m_FeatureColumns As New ObservableCollection(Of String)
|
|
Public Property FeatureColumns As ObservableCollection(Of String)
|
|
Get
|
|
Return m_FeatureColumns
|
|
End Get
|
|
Set(value As ObservableCollection(Of String))
|
|
m_FeatureColumns = value
|
|
End Set
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property Description_Msg As String
|
|
Get
|
|
Return EgtMsg(61603)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
Sub New()
|
|
' creo riferimento in Map
|
|
Map.SetRefFeatureListVM(Me)
|
|
' aggiungo le colonne alla tabella
|
|
FeatureColumns.Add("colDO")
|
|
FeatureColumns.Add("colCALC")
|
|
FeatureColumns.Add("colDESC")
|
|
End Sub
|
|
|
|
End Class
|