RenzoL
74 lines
1.5 KiB
VB.net
74 lines
1.5 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
Imports EgtBEAMWALL.Core
|
|
|
|
Public Class ProjectTypeWndVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Friend Event m_CloseWindow(bDialogResult As Boolean)
|
|
|
|
Private m_TypeList As New ObservableCollection(Of BWType)({BWType.BEAM, BWType.WALL})
|
|
Public ReadOnly Property TypeList As ObservableCollection(Of BWType)
|
|
Get
|
|
Return m_TypeList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nSelType As BWType
|
|
Public Property nSelType As BWType
|
|
Get
|
|
Return m_nSelType
|
|
End Get
|
|
Set(value As BWType)
|
|
If value <> m_nSelType Then
|
|
m_nSelType = value
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
' Definizione comandi
|
|
Private m_cmdOk As ICommand
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "MESSAGES"
|
|
|
|
Public ReadOnly Property Choose_Msg As String
|
|
Get
|
|
Return EgtMsg(61879)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' MESSAGES
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "Ok"
|
|
|
|
Public ReadOnly Property Ok_Command As ICommand
|
|
Get
|
|
If m_cmdOk Is Nothing Then
|
|
m_cmdOk = New Command(AddressOf Ok)
|
|
End If
|
|
Return m_cmdOk
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Ok()
|
|
Select Case nSelType
|
|
Case BWType.BEAM, BWType.WALL
|
|
RaiseEvent m_CloseWindow(True)
|
|
Case Else
|
|
MessageBox.Show(EgtMsg(61880), EgtMsg(30009))
|
|
End Select
|
|
End Sub
|
|
|
|
#End Region ' Ok
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class |