Nicola Pievani
93 lines
2.3 KiB
VB.net
93 lines
2.3 KiB
VB.net
Imports System.IO
|
|
Imports System.Collections.ObjectModel
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class CompoType
|
|
Inherits VMBase
|
|
|
|
Public Brand As New ObservableCollection(Of CompoBrandDir)
|
|
|
|
Private m_IsSelectedBtn As Boolean = False
|
|
Public Property IsSelectedBtn As Boolean
|
|
Get
|
|
Return m_IsSelectedBtn
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_IsSelectedBtn = value
|
|
NotifyPropertyChanged("IsSelectedBtn")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_Name As String
|
|
Public ReadOnly Property Name As String
|
|
Get
|
|
Return m_Name
|
|
End Get
|
|
End Property
|
|
Public Sub SetName(Name As String)
|
|
m_Name = Name
|
|
End Sub
|
|
|
|
Private m_DDFName As String
|
|
Public ReadOnly Property DDFName As String
|
|
Get
|
|
Return m_DDFName
|
|
End Get
|
|
End Property
|
|
Public Sub SetDDFName(DDFName As String)
|
|
m_DDFName = DDFName
|
|
End Sub
|
|
|
|
Private m_Path As String
|
|
Public ReadOnly Property Path As String
|
|
Get
|
|
Return m_Path
|
|
End Get
|
|
End Property
|
|
Public Sub SetPath(Path As String)
|
|
m_Path = Path
|
|
End Sub
|
|
|
|
Private m_JambSide As String
|
|
Public ReadOnly Property JambSide As String
|
|
Get
|
|
Return m_JambSide
|
|
End Get
|
|
End Property
|
|
Public Sub SetJambSide(JambSide As String)
|
|
m_JambSide = JambSide
|
|
End Sub
|
|
|
|
' lista dei marchi
|
|
Private m_BrandListPart As New ObservableCollection(Of String)
|
|
Public Property BrandListPart As ObservableCollection(Of String)
|
|
Get
|
|
Return m_BrandListPart
|
|
End Get
|
|
Set(value As ObservableCollection(Of String))
|
|
m_BrandListPart = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Function LoadListTemplate() As Boolean
|
|
Brand.Clear()
|
|
GetDirectoryCompoModel(m_Path, Brand)
|
|
If Brand.Count > 0 Then
|
|
For IndexModel As Integer = 0 To Brand.Count - 1
|
|
m_BrandListPart.Add(Brand(IndexModel).ModelDirGraphic)
|
|
Next
|
|
End If
|
|
|
|
Return True
|
|
End Function
|
|
|
|
Sub New(sName As String, sDDFName As String, sPath As String, sJambSide As String)
|
|
m_Name = sName
|
|
m_DDFName = sDDFName
|
|
m_Path = sPath
|
|
m_JambSide = sJambSide
|
|
LoadListTemplate()
|
|
End Sub
|
|
|
|
End Class
|