Files
EgtDOORCreator/AssemblyManager/AssemblyName.vb
T
Dario Sassi 37803687e8 EgtDOORCreator 1.9c3 :
- correzioni e modifiche varie per hardware manager
- correzione lettura LouverCutOut sbagliato che manda in loop.
2018-03-05 20:34:10 +00:00

55 lines
1.4 KiB
VB.net

Imports System.IO
Imports EgtWPFLib5
Public Class AssemblyName
Inherits VMBase
Private m_Name As String
Public Property Name As String
Get
Return m_Name
End Get
Set(value As String)
m_Name = value
m_GraphicName = Path.GetFileNameWithoutExtension(m_Name)
End Set
End Property
Private m_IsModified As Boolean
Public Property IsModified As Boolean
Get
Return m_IsModified
End Get
Set(value As Boolean)
m_IsModified = value
If m_IsModified Then
If Not m_GraphicName.Contains("*") Then m_GraphicName &= "*"
Else
m_GraphicName = Path.GetFileNameWithoutExtension(m_Name)
End If
NotifyPropertyChanged("GraphicName")
End Set
End Property
Private m_GraphicName As String
Public Property GraphicName As String
Get
Return m_GraphicName
End Get
Set(value As String)
m_GraphicName = value
End Set
End Property
Private m_SelAssembly As New Assembly
Public Property SelAssembly As Assembly
Get
Return m_SelAssembly
End Get
Set(value As Assembly)
m_SelAssembly = value
Map.refAssemblyPageVM.NotifyPropertyChanged("CurrAssembly")
End Set
End Property
End Class