Dario Sassi
56 lines
1.4 KiB
VB.net
56 lines
1.4 KiB
VB.net
Imports System.ComponentModel
|
|
|
|
Public Class PartDoor
|
|
Implements INotifyPropertyChanged
|
|
|
|
Private m_Door As Part
|
|
Public Property Door As Part
|
|
Get
|
|
Return m_Door
|
|
End Get
|
|
Set(value As Part)
|
|
m_Door = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_IsChecked As Boolean
|
|
Public Property IsChecked As Boolean
|
|
Get
|
|
Return m_IsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_IsChecked = value
|
|
m_Door.IsActive = IsChecked
|
|
End Set
|
|
End Property
|
|
Public Sub SetIsChecked(bIsChecked As Boolean)
|
|
IsChecked = bIsChecked
|
|
m_Door.IsActive = IsChecked
|
|
NotifyPropertyChanged("IsChecked")
|
|
Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
|
|
End Sub
|
|
|
|
Private m_IsVisible As Visibility
|
|
Public Property IsVisible As Visibility
|
|
Get
|
|
Return m_IsVisible
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_IsVisible = value
|
|
End Set
|
|
End Property
|
|
|
|
Public ReadOnly Property Type As String
|
|
Get
|
|
Return Door.TypePart
|
|
End Get
|
|
End Property
|
|
|
|
Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
|
|
End Class
|