Emmanuele Sassi
0532c0c486
- gestione ribs completata - nuove funzionalita' introdotte su tabella TFS - correzioni e migliorie varie
64 lines
1.2 KiB
VB.net
64 lines
1.2 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class ChooseReferenceWndVM
|
|
|
|
Friend Event m_CloseWindow(bDialogResult As Boolean)
|
|
|
|
Public Enum References As Integer
|
|
TL = 1
|
|
TR = 2
|
|
BL = 3
|
|
BR = 4
|
|
TC = 5
|
|
ML = 6
|
|
MR = 7
|
|
BC = 8
|
|
MC = 9
|
|
End Enum
|
|
|
|
Private m_ReferenceList() As Boolean = {False, False, True, False, False, False, False, False, False}
|
|
Public Property ReferenceList As Boolean()
|
|
Get
|
|
Return m_ReferenceList
|
|
End Get
|
|
Set(value As Boolean())
|
|
m_ReferenceList = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SelReference As References
|
|
Get
|
|
Return Array.IndexOf(m_ReferenceList, True) + 1
|
|
End Get
|
|
Set(value As References)
|
|
m_ReferenceList(value - 1) = True
|
|
End Set
|
|
End Property
|
|
|
|
' Definizione comandi
|
|
Private m_cmdOk As ICommand
|
|
|
|
#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()
|
|
RaiseEvent m_CloseWindow(True)
|
|
End Sub
|
|
|
|
#End Region ' Ok
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|