Nicola Pievani
6260fb00d4
-> quando avvio la selezione delle lastre da DataBase rendo visibili quelle con stato "AVAILABLE"
24 lines
606 B
VB.net
24 lines
606 B
VB.net
Imports EgtUILib
|
|
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports EgtWPFLib5
|
|
Imports EgtPHOTOLib
|
|
|
|
Public Class OmagPhotoVM
|
|
Inherits VMBase
|
|
|
|
Private m_OmagPhotoContent As ProjectSlabV = Nothing
|
|
|
|
Public ReadOnly Property OmagPhotoContent As ContentControl
|
|
Get
|
|
If IsNothing(m_OmagPhotoContent) Then
|
|
Dim ProjectSlabView As New ProjectSlabV
|
|
ProjectSlabView.DataContext = New ProjectSlabVM
|
|
m_OmagPhotoContent = ProjectSlabView
|
|
End If
|
|
Return m_OmagPhotoContent
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|